Hvordan tester jeg svaret fra en Msgbox med "vbYesNo"

Taget fra hjælpen ;)

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?"    ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
Title = "MsgBox Demonstration"    ' Define title.
Help = "DEMO.HLP"    ' Define Help file.
Ctxt = 1000    ' Define topic
        ' context.
        ' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then    ' User chose Yes.
    MyString = "Yes"    ' Perform some action.
Else    ' User chose No.
    MyString = "No"    ' Perform some action.
End If

Snowball

mit program:

Private Sub Form_Load()
Dim strPress As String
strPress = MsgBox("test", vbYesNo, "test")
If (strPress = 6) Then  'clicked yes
Label1.Caption = "hey"
End If
End Sub

i = MsgBox ("bla bla bla")
Herefter ligger svaret i variablen i.

Og her kan du se, hvad der er trykket:

vbOK 1   
vbCancel 2   
vbAbort    3   
vbRetry    4   
vbIgnore 5
vbYes 6
vbNo 7

The following constants can be used anywhere in your code in place of the actual values:

MsgBox Arguments
Constant Value Description
vbOKOnly 0 OK button only (default)
vbOKCancel 1 OK and Cancel buttons
vbAbortRetryIgnore 2 Abort, Retry, and Ignore buttons
vbYesNoCancel 3 Yes, No, and Cancel buttons
vbYesNo 4 Yes and No buttons
vbRetryCancel 5 Retry and Cancel buttons
vbCritical 16 Critical message
vbQuestion 32 Warning query
vbExclamation 48 Warning message
vbInformation 64 Information message
vbDefaultButton1 0 First button is default (default)
vbDefaultButton2 256 Second button is default
vbDefaultButton3 512 Third button is default
vbDefaultButton4 768 Fourth button is default
vbApplicationModal 0 Application modal message box (default)
vbSystemModal 4096 System modal message box
vbMsgBoxHelpButton 16384 Adds Help button to the message box
VbMsgBoxSetForeground 65536 Specifies the message box window as the foreground window
vbMsgBoxRight 524288 Text is right aligned
vbMsgBoxRtlReading 1048576 Specifies text should appear as right-to-left reading on Hebrew and Arabic systems



MsgBox Return Values
Constant Value Description
vbOK 1 OK button pressed
vbCancel 2 Cancel button pressed
vbAbort 3 Abort button pressed
vbRetry 4 Retry button pressed
vbIgnore 5 Ignore button pressed
vbYes 6 Yes button pressed
vbNo 7 No button pressed


Snowball

Tak til Webpsycho det virkede som det skulle. Også tak til andre forslag.
Firstchoice

det var så lidt... sku det være en anden gang... ;)

//WebPsycho OuT!

Det var så lidt, men var det ikke snowball, der svarede først?