Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy Arkance Systems [www.cadforum.cz]
CZ | SK | EN | DE
Přihlášení
či registrace
   právě nás čte: 7941 
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

 

NápovědaCAD diskuze, rady, výměna zkušeností

 
CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion 360, 3ds Max a s dalšími CAD aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy Arkance Systems (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.cadstudio.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoMsgBox - bez potvrzení

 Odpovědět Odpovědět archiv
Autor
Lukáš Záruba Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 02.lis.2007
Lokalita: ČR (SČ)
Používám:
inventor 2015
Stav: Offline
Bodů: 429
Přímý odkaz na tuto zprávu Téma: MsgBox - bez potvrzení
    Zasláno: 05.pro.2018 v 10:04
1)Je možné napsat MsgBox tak aby neopsahoval potvrzovají okono "ok" a jen se na chvíly zobrazil bez nutnosti "odkliknout"

2) Jo možné změnit i název zprávy? nyní mi to samou generuje text "ylxfjvov" a já nevím co dělám špatně.


Připojené náhledyPřihlaste se pro zobrazení plné verze - 4903/MATH_BOX_2018-12-05_10-02-48.JPG

  

Pokud ANO tak jak to mám udělat.
Budu rád za radu i případně všelijaké postřehy.
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Dodáváme produkty Autodesk
Stav: Offline
Bodů: 21434
Přímý odkaz na tuto zprávu Zasláno: 05.pro.2018 v 10:35
Titulek standardního MsgBoxu je parametr - 3.parametr při vyvolání - viz:
 
MsgBox("Text zprávy", OK, "Titulek")
 
Zmizení zprávy po timeoutu je složitější - viz tip:
Vladimír Michl (moderátor)
Arkance Systems s.r.o. - www.arkance-systems.cz
(podpora viz hd.cads.cz)
Zpět nahoru
Lukáš Záruba Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 02.lis.2007
Lokalita: ČR (SČ)
Používám:
inventor 2015
Stav: Offline
Bodů: 429
Přímý odkaz na tuto zprávu Zasláno: 05.pro.2018 v 12:06
OK, DÍKY ZA RADU. TITULEK MI JIŽ FUNGUJE.


Připojené náhledyPřihlaste se pro zobrazení plné verze - 4903/MATH_BOX_2.JPG



Nedaří se mi však implementovat zmizení zprávy po timeoutu. Když upravím ilogic z odkazu tak mi vše funguje ale nechce mi to chodit v jiném pravidle. Můžete mi ukázet jak na to?

Potřebuji v pravidle:

docname=ThisDoc.FileName(False) 'e.g. "tracker9864-rev6-7-2013"
Dim matches As System.Text.RegularExpressions.MatchCollection
Dim match As System.Text.RegularExpressions.Match
Dim groups As System.Text.RegularExpressions.GroupCollection
matches = System.Text.RegularExpressions.Regex.Matches(docname, "\b.*\..*\.(.)\b") '*****-****: $1/$2 = tracker9864/rev6
'matches = System.Text.RegularExpressions.Regex.Matches(docname, "\b(.{7})(.{3}).*\b") 'NNNNNNRRR*: $1/$2 = tracker/9864
If matches.count>0 Then
 For Each match In matches
  groups = match.Groups ' parenthesis 1
  iProperties.Value("Project", "Revision Number") = groups.item(1).Value
  MsgBox("ÚSPĚCH - zapsána revize: " & groups.item(1).Value, OK, "REVIZE")
 Next
 Else
 MsgBox("Revize se nepovedla - zkus to opravit", OK, "REVIZE")
End If 
Vyměnit MSGBOXy za tyto:
Imports System.Threading.Tasks

Dim timeout = 0.5 ' secs - JAK DLOUHO M� B�T VID�NA
Dim msg As New Form() With { .Enabled = False }
Task.Delay(TimeSpan.FromSeconds(timeout)).ContinueWith(
  Sub(t) 
    msg.Close() 
  End Sub ,
TaskScheduler.FromCurrentSynchronizationContext())
MessageBox.Show(msg, "�chp�ch", "TITULEK")
'MessageBox.Show(msg, "ZDE JE TO CO CHCI ZD�LIT", "ZDE JE NADPIS ZPR�VY")
Jde to vůbec zkombinovat????
Budu rád za radu i případně všelijaké postřehy.
Zpět nahoru
Petr Žídek Zobrazit panel
Arkance Systems support
Arkance Systems support
Arkance Systems - Autorizovaný dealer Autodesk
Arkance Systems

Přihlášen: 11.čvc.2016
Lokalita: ČR (OS)
Používám:
Inventor 2021, Fusion 360
Stav: Offline
Bodů: 5
Přímý odkaz na tuto zprávu Zasláno: 05.pro.2018 v 12:31
Dobrý den,

co třeba takhle?
Dim docname As String  
docname=ThisDoc.FileName(False) 'e.g. "tracker9864-rev6-7-2013"

Dim timeout = 1 
Dim msg As New Form() With { .Enabled = False }

Dim matches As System.Text.RegularExpressions.MatchCollection
Dim match As System.Text.RegularExpressions.Match
Dim groups As System.Text.RegularExpressions.GroupCollection
matches = System.Text.RegularExpressions.Regex.Matches(docname,"\b.*\..*\.(.)\b") 

If matches.Count>0 Then
 	For Each match In matches
  	groups = match.Groups 
  	iProperties.Value("Project", "Revision Number") = groups.Item(1).Value  				
		Task.Delay(TimeSpan.FromSeconds(timeout)).ContinueWith(
  			Sub(t) 
    			msg.Close() 
  			End Sub ,
		TaskScheduler.FromCurrentSynchronizationContext())
  		MessageBox.Show(msg,"ÚSPĚCH - zapsána revize: " & groups.Item(1).Value, "REVIZE")
 	Next
Else
	Task.Delay(TimeSpan.FromSeconds(timeout)).ContinueWith(
  			Sub(t) 
    			msg.Close() 
  			End Sub ,
	TaskScheduler.FromCurrentSynchronizationContext())
	MessageBox.Show(msg,"Revize se nepovedla - zkus to opravit", "REVIZE")
End If 
Zpět nahoru
Lukáš Záruba Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 02.lis.2007
Lokalita: ČR (SČ)
Používám:
inventor 2015
Stav: Offline
Bodů: 429
Přímý odkaz na tuto zprávu Zasláno: 05.pro.2018 v 12:44
Děkuji za radu ale pořád to hlásí tuto chybu:


Připojené náhledyPřihlaste se pro zobrazení plné verze - 4903/MATH_BOX_3.JPG


Budu rád za radu i případně všelijaké postřehy.
Zpět nahoru
Petr Žídek Zobrazit panel
Arkance Systems support
Arkance Systems support
Arkance Systems - Autorizovaný dealer Autodesk
Arkance Systems

Přihlášen: 11.čvc.2016
Lokalita: ČR (OS)
Používám:
Inventor 2021, Fusion 360
Stav: Offline
Bodů: 5
Přímý odkaz na tuto zprávu Zasláno: 05.pro.2018 v 12:54
Dobrý den,

ještě úplně nahoru vložit

Imports System.Threading.Tasks

při kopírování mi to vypadlo.
Zpět nahoru
Lukáš Záruba Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 02.lis.2007
Lokalita: ČR (SČ)
Používám:
inventor 2015
Stav: Offline
Bodů: 429
Přímý odkaz na tuto zprávu Zasláno: 05.pro.2018 v 12:56
OK, DÍKY UŽ TO FUNGUJE
Budu rád za radu i případně všelijaké postřehy.
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 10956:evalVBS vyhodnotí VBScript kód z AutoLISPu.
Tip 9934:Jak rozpoznat sestavu od svařence ve VBA nebo iLogic?
Tip 12074:Jak v iLogic zobrazit dočasnou zprávu, jen na pár vteřin?
Tip 8909:iLogic pravidlo pro změření délky smyčky v náčrtu.
Tip 13916:AutoCAD mi po prvním spuštění hlásí, že už uplynuly 3 dny mého Trial období.
Tip 10120:Nefungující připojení na WMS zdroj dat v Civil3D 2015.


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,695 sekund.