MessageBox

[scw]

Goedeavond,

Ik probeer een pop up te creeren bij de focus van een tekstvak, ik kom tot zover:

Private Sub Tekstvak_GotFocus()
Dim strMsg As String
strMsg = strMsg & "Tekst die ik wil laten verschijnen"
MsgBox(strMsg, vbOKOnly, "TitelMessageBox") = vbOK
End Sub

Echter, wanneer ik de code wordt uitgevoerd krijg ik de volgende melding:

Compileerfout

Functie-oproep aan de linkerkant van de toewijzing moet een Variant of Object als resultaat geven


Wat doe ik verkeerd? Plus... ik zou de Messagebox als een vbInformation willen weergeven maar wel alleen met de OK knop erbij, kan dat??

Nou goed, ik zou blij zijn om dit voor elkaar te krijgen...

 

[madref]

De fout zit hier
MsgBox(strMsg, vbOKOnly, "TitelMessageBox") = vbOK

mak er van zoeits als:
if MsgBox strMsg, vbInformation+vbOKOnly, "TitelMessageBox" = vbOK then
...
...
end if

of
MsgBox strMsg, vbInformation+vbOKOnly, "TitelMessageBox"

als je de haakjes weglaat doet ie het ook

 

[scw]

Aaahhhh OK, het lag dus aan de haakjes waarom het niet wilde werken!! Nou goed, nu weet ik het voor eens en altijd. Ik heb de laatste mogelijkheid toegepast overigens...

Dank je Madref!