Textbox1

[lestatjt]

hello,

I have a text box and CheckBox

if the text box is equal to 2, the CheckBox is otherwise invisible visible


' If Textbox1 = "" Then
'
' CheckBox.Visible = False
'
'
' Else
'
' CheckBox.Visible = True
'
'
' End If
'
cordially.

 

[Lakare]

Hi

I think it is something like this you mean. I have shown you a couple of functions to handle the checkbox.

Hope it helps.

Declare Function DlgFunction(identifier$, action, suppvalue)

Sub Main
    Begin Dialog Dialog1 186, 50, .DlgFunction
        OkButton  130, 6, 50, 14
        TextBox  5, 5, 57, 12, .TextBox1
        CheckBox  70, 8, 50, 8, "CheckBox", .CheckBox1
    End Dialog

    Dim CallDialog as Dialog1

    Dialog CallDialog

End Sub

Function DlgFunction(identifier$, action, suppvalue)
    
    Select Case action
        Case 1'Execute on startup
        Case 2'Execute when button pressed
        Case 3'Execute when text og combobox is changed
        Case 4'Execute when control focus is changed
        Case 5'Execute all the time (When mouse is moved)
            If DlgText("TextBox1") = "2" Then
                DlgEnable("CheckBox1"),0
                DlgValue("CheckBox1"),0
                DlgVisible("CheckBox1"),0
            Else
                DlgEnable("CheckBox1"),1
                DlgVisible("CheckBox1"),0
            End If
    End Select

End Function

Regards Lakare