Checkbox & MsgBox

[Spy1]

Heey, weer een vraagje van me

        If b2color.Text = "" Then
            MsgBox("Aap, je bent wat vergeten!")
        ElseIf CheckBox2.Checked = False Then

            Exit Sub
        End If

Nou, dit is het probleem. Als de checkbox op 'False' staat, dan moet hij niet de MsgBox laten zien want als de CheckBox op 'False' staat kan er niks worden getypt in de TextBox.
Weet iemand hier een oplossing voor? Deze code heb ik onder mijn button code vandaan gehaald.

Maikel

 

[That Guy]

okaaaaay, vat je vraag niet helemaal, maar zoiets?:

' drop deze code inje button:

if CheckBox2.value <= 1 then
   [COLOR="SeaGreen"]' doe dus niets, want de checkbox staat aangekruist OF is 'grijs'[/COLOR]
else
   if len(b2color.text) < 1 then [COLOR="seagreen"]'len() pakt de lengte van een string[/COLOR]
      msgbox "blablablabla"
   end if
end if

noot de dubbele if-then.


[edit] het kan ook zijn dat je de '<=' bij de 1e regel moet omdraaien [/edit]

 

[Spy1]

Error 2 'value' is not a member of 'System.Windows.Forms.CheckBox'. E:\Documents and Settings\Remco\Mijn documenten\Visual Studio 2008\Projects\Textdraw maker\Textdraw maker\Form1.vb 54 12 Textdraw maker

Die error geeft ie bij 'if CheckBox2.value <= 1 then'

 

[b0xden]

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If b2color.Text = "" And CheckBox2.Checked = True Then
            MsgBox("Je bent wat vergeten aap")
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = False Then
            b2color.ReadOnly = True
        Else
            b2color.ReadOnly = False
        End If
        'dit wilt zeggen dat als de checkbox aangevinkt staat, je niet kan typen in de textbox
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        b2color.ReadOnly = True
        'zodat hij default op ReadOnly staat, kan je ook op form aanpassen
    End Sub
End Class

dit is denk ik wat je bedoelt, zeg maar als er iets niet duidelijk is

 

[That Guy]

tjsa, mijn code was vb6, moet de TS wel zeggen dat 't voor .NET is