Diskuzní fórum, poradna
CAD diskuze, rady, výměna zkušeností |
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
MsgBox - bez potvrzení |
Odpovědět | archiv |
Autor | |
Lukáš Záruba
TOP uživatel Přihlášen: 02.lis.2007 Lokalita: ČR (SČ) Používám: inventor 2015 Stav: Offline Bodů: 429 |
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ě. Pokud ANO tak jak to mám udělat.
|
|
Budu rád za radu i případně všelijaké postřehy.
|
|
Vladimír Michl
Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
Moderátor Arkance Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Online Bodů: 21470 |
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:
|
|
Lukáš Záruba
TOP uživatel Přihlášen: 02.lis.2007 Lokalita: ČR (SČ) Používám: inventor 2015 Stav: Offline Bodů: 429 |
Zasláno: 05.pro.2018 v 12:06 |
OK, DÍKY ZA RADU. TITULEK MI JIŽ FUNGUJE.
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
|
|
Budu rád za radu i případně všelijaké postřehy.
|
|
Petr Žídek
Arkance Systems support Arkance Systems Přihlášen: 11.čvc.2016 Lokalita: ČR (OS) Používám: Inventor 2021, Fusion 360 Stav: Offline Bodů: 5 |
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 |
|
Lukáš Záruba
TOP uživatel Přihlášen: 02.lis.2007 Lokalita: ČR (SČ) Používám: inventor 2015 Stav: Offline Bodů: 429 |
Zasláno: 05.pro.2018 v 12:44 |
Děkuji za radu ale pořád to hlásí tuto chybu:
|
|
Budu rád za radu i případně všelijaké postřehy.
|
|
Petr Žídek
Arkance Systems support Arkance Systems Přihlášen: 11.čvc.2016 Lokalita: ČR (OS) Používám: Inventor 2021, Fusion 360 Stav: Offline Bodů: 5 |
Zasláno: 05.pro.2018 v 12:54 |
Dobrý den, ještě úplně nahoru vložit Imports System.Threading.Tasks |
|
Lukáš Záruba
TOP uživatel Přihlášen: 02.lis.2007 Lokalita: ČR (SČ) Používám: inventor 2015 Stav: Offline Bodů: 429 |
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.
|
|
Pro technickou podporu CAD
kontaktujte Helpdesk
Odpovědět | |
Přejít na fórum | Oprávnění fóra Nemůžete vytvářet nová témata v tomto fóru Nemůžete odpovídat na témata v tomto fóru Nemůžete vymazávat vaše příspěvky v tomto fóru Nemůžete upravovat vaše příspěvky v tomto fóru Nemůžete vytvářet ankety v tomto fóru Nemůžete hlasovat v anketách v tomto fóru |
Stránka byla vygenerována za 0,867 sekund.