Hej! Testa att lägga in ett DoEventEgen dialogbox
Jag sitter med en vb6 applikation och försöker ordna ett eget felmeddelande.
I felmeddelandet kan man välja ok/avbryt.
Det går bra att öppna felmeddelandet osv men koden direkt efter fortsätter att köras direkt, och jag hinner inte trycka ok/avbryt.
Det jag vill är att koden ska pausa tills man tryckt ner en knapp, typ som en msgbox fungerar.
Någon som har något förslag?
lite kod:
Private ErrMess As frmMissing
Set ErrMess = New frmMissing
If pApp.ModalState = True Then
Load ErrMess
ErrMess.LblText.Caption = "The opening of '" & GetActiveDocument.Name........
ErrMess.show
-->här fortsätter koden direkt, kan man stoppa när tills ett värde kommer tillbaka från dialogen
Do Until pApp.ModalState = False
pApp.Activate
Sv: Egen dialogbox
<code>
ErrMess.LblText.Caption = "The opening of '" & GetActiveDocument.Name........
ErrMess.show
' -->här fortsätter koden direkt, kan man stoppa när tills ett värde kommer tillbaka från dialogen
DoEvent
</code>