Checkboxes

[lenin42001]

Please could someone help. Here is the code we've placed in the command button for a form entitled Intelligent Personality Checker. There are three check-boxes Cinema, Mobile Phones & Beer & Food, also a text box. A command button entitled Process is supposed to put aforementioned text into the text box when the command button (btnProcess) is pressed but it doesn't work.
Can anyone give any clues as to why this doesnt function? I've inserted the code
below into the command-click box to no effect..........

Private Sub btnProcess_Click()
   txtResult.Text = "................."
   If Check1.Checked Then
      txtResult.Text += "Cinema"
   End If
   If Check2.Checked Then
      txtResult.Text += "Mobiles"
   End If
   If Check3.Checked Then
      txtResult.Text += "Beer and Food"
   End If
   txtResult.Text += "........You really must get a life"
End Sub

[hariharanmca]

Please could someone help. Here is the code we've placed in the command button for a form entitled Intelligent Personality Checker. There are three check-boxes Cinema, Mobile Phones & Beer & Food, also a text box. A command button entitled Process is supposed to put aforementioned text into the text box when the command button (btnProcess) is pressed but it doesn't work.
Can anyone give any clues as to why this doesnt function? I've inserted the code
below into the command-click box to no effect..........


Private Sub btnProcess_Click()
txtResult.Text = "................."
If Check1.Checked Then
txtResult.Text += "Cinema"
End If
If Check2.Checked Then
txtResult.Text += "Mobiles"
End If
If Check3.Checked Then
txtResult.Text += "Beer and Food"
End If
txtResult.Text += "........You really must get a life"




End Sub

it doesn't work???, Is this method did not responce any reply...?

[willakawill]

Private Sub btnProcess_Click()
   txtResult.Text = "................."
   If Check1.Checked Then
      txtResult.Text += "Cinema"
   End If
   If Check2.Checked Then
      txtResult.Text += "Mobiles"
   End If
   If Check3.Checked Then
      txtResult.Text += "Beer and Food"
   End If
   txtResult.Text += "........You really must get a life"
End Sub

Hi. You are using a c operator '+='. This does not exist in vb. Try this instead:

Private Sub btnProcess_Click()
   txtResult.Text = "................."
   If Check1.Checked Then
      txtResult.Text =  txtResult.Text & "Cinema"
   End If
   If Check2.Checked Then
      txtResult.Text =  txtResult.Text & "Mobiles"
   End If
   If Check3.Checked Then
      txtResult.Text =  txtResult.Text & "Beer and Food"
   End If
   txtResult.Text =  txtResult.Text & "........You really must get a life"
End Sub

[hariharanmca]

Private Sub btnProcess_Click()
   txtResult.Text = "................."
   If Check1.Checked Then
      txtResult.Text += "Cinema"
   End If
   If Check2.Checked Then
      txtResult.Text += "Mobiles"
   End If
   If Check3.Checked Then
      txtResult.Text += "Beer and Food"
   End If
   txtResult.Text += "........You really must get a life"
End Sub

Hi. You are using a c operator '+='. This does not exist in vb. Try this instead:

Private Sub btnProcess_Click()
   txtResult.Text = "................."
   If Check1.Checked Then
      txtResult.Text =  txtResult.Text & "Cinema"
   End If
   If Check2.Checked Then
      txtResult.Text =  txtResult.Text & "Mobiles"
   End If
   If Check3.Checked Then
      txtResult.Text =  txtResult.Text & "Beer and Food"
   End If
   txtResult.Text =  txtResult.Text & "........You really must get a life"
End Sub

Hoooo....

But it will work in VB.Net...(i Thought its VB.Net Program)

[lenin42001]

Help I think its in Visual Basic6. Does this make any difference...........?

[hariharanmca]

Help I think its in Visual Basic6. Does this make any difference...........?

Yes sure that VB.Net will support OOPs Concept but VB won't support so it will no work

[lenin42001]

what should i do..................?

[willakawill]

what should i do..................?

Did you try the code I posted for you?
The button click event syntax that you posted is vb6, not .net

[Pragash]

Try this code
I don't know much more knowledge about vb but try this code

Private Sub btnProcess_Click()
txtResult.Text = "................."
If Check1.Checked Then
   txtResult.Text = txtResult.Text & "Cinema"
End If
If Check2.Checked Then
   txtResult.Text = txtResult.Text & "Mobiles"
End If
If Check3.Checked Then
   txtResult.Text = txtResult.Text & "Beer and Food"
End If
txtResult.Text = txtResult.Text & "........You really must get a life"
End Sub

[willakawill]

Hi Pragash. You may notice that your reply is identical to the reply that I posted already.