8 replies to this topic

[j0rd4nn]

Always happens to me :(

It's a really small code, but a problem nonetheless:

Private Sub Command1_Click()

If Text1.Text = "jordan" Or "Jordan" And Text2.Text = "fail" Or "fail" Then

Let MsgBox = "Congratulations, 2 out of 2 correct."

Else: MsgBox = "Unlucky, you got 1 or less incorrect."

End If

End Sub

It's obvious; you input a word, click the button and a pop-up happens telling you if you got it correct or not. For some reason, there something wrong with the MsgBox = "" code I'm using, any help here lads?

Well anyway, I want it to verify if the inputted words are jordan and fail, if so or if not a message box will appear. Thanks in advance lads, I really do appreciate it.

As a side note, do I need to tell it to check for Jordan and jordan or will jordan check for the letter regardless of capitalization?

[WingedPanther]

I can almost guarantee it should be:

Private Sub Command1_Click()
If (Text1.Text = "jordan" Or Text1.Text="Jordan") And (Text2.Text = "fail" Or Text2.Text = "fail") Then
Let MsgBox = "Congratulations, 2 out of 2 correct."
Else: MsgBox = "Unlucky, you got 1 or less incorrect."
End If
End Sub

[j0rd4nn]

Doesn't work :/

I get this error for specifics (sorry I forgot to post it before hand):

Quote

Compile error:
Function call on left-hand side of assignment much return Variant or Object

And then it highlights the first MsgBox as shown:

MsgBox =

[j0rd4nn]

I'm coding in VB6, proberly should of mentioned this.

When I get home tomorrow, I'll try it out. Thanks

[j0rd4nn]

Yeah I no thanks, but for now I'm keeping it simple.

Learn a bit, then use the tutorial, then from there add everything I know and build a new unique program so to speak. Helps me understand how it works instead of just reading you know.

[j0rd4nn]

I found it out, and thought I would share it:

Private Sub Command1_Click()
If (Text1.Text = "jordan" Or Text1.Text="Jordan") And (Text2.Text = "fail" Or Text2.Text = "fail") Then
Let intMsg = MsgBox  ("Congratulations, 2 out of 2 correct.")
Else: intMsgBox = MsgBox ("Unlucky, you got 1 or less incorrect.")
End If
End Sub

This part of the code:

If (Text1.Text = "jordan" Or Text1.Text="Jordan") And (Text2.Text = "fail" Or Text2.Text = "fail") Then

The brackets "(" ")" are not necessary, but just looks better, and more organised. :)

Thanks for the help.

[Xav]

MsgBox() returns a VB constant, such as vbYes or vbNo or vbCancel etc. These are actually binary integer constants, but it is easier to reference them via the built-in ones.

If you want to store the result of a MsgBox (in other words, what the user clicked) then you need a variable of the appropriate data type.