VB6为什么这不会改变？ [复选框和文本框]

Question

如果未勾选复选框，为什么文本框中的文本不会更改？ 如果未选中，则文本框的文本应为“-g no”，但单击Command1时不会更改。 有解决方案吗 可能是一些非常简单的事情，但我只是没有成功。 ：\\

我的代码：

Private Sub Command1_Click()
    If Check1.Enabled = True Then
        If TextPass.Text = "" Then
            Text1.Text = "-o " & TextPool.Text & ":" & TextPort.Text & " -u " & TextUser.Text & " -g yes " & "-t " & Combo1.ListIndex
        Else
            Text1.Text = "-o " & TextPool.Text & ":" & TextPort.Text & " -u " & TextUser.Text & " -p " & TextPass.Text & " -g yes " & "-t " & Combo1.ListIndex
        End If
    Else
        If TextPass.Text = "" Then
            Text1.Text = "-o " & TextPool.Text & ":" & TextPort.Text & " -u " & TextUser.Text & " -g no " & "-t " & Combo1.ListIndex
        Else
            Text1.Text = "-o " & TextPool.Text & ":" & TextPort.Text & " -u " & TextUser.Text & " -p " & TextPass.Text & " -g no " & "-t " & Combo1.ListIndex
        End If
    End If
End Sub

感谢帮助！ 或者只是修复我的代码。

Answer 1

因为您可以选中或取消选中Check1 ，所以很明显它已启用，所以您的条件

If Check1.Enabled = True Then

永远都是真的。 您实际想要做的是查看是否选中 Check1 ，条件

If Check1.Value = 1 Then

Answer 2

你所要做的就是改变

check1.enabled = true

进入：

check1.value = vbchecked

所以结果，（请不要忘记评价我的答案！Thansk！）

Private Sub Command1_Click()
    If Check1.value = vbChecked Then
        If TextPass.Text = "" Then
            Text1.Text = "-o " & TextPool.Text & ":" & TextPort.Text & " -u " & TextUser.Text & " -g yes " & "-t " & Combo1.ListIndex
        Else
            Text1.Text = "-o " & TextPool.Text & ":" & TextPort.Text & " -u " & TextUser.Text & " -p " & TextPass.Text & " -g yes " & "-t " & Combo1.ListIndex
        End If
    Else
        If TextPass.Text = "" Then
            Text1.Text = "-o " & TextPool.Text & ":" & TextPort.Text & " -u " & TextUser.Text & " -g no " & "-t " & Combo1.ListIndex
        Else
            Text1.Text = "-o " & TextPool.Text & ":" & TextPort.Text & " -u " & TextUser.Text & " -p " & TextPass.Text & " -g no " & "-t " & Combo1.ListIndex
        End If
    End If
End Sub