-2

私は6つのTextBoxと6つのCheckBoxを持っています。ここで、TextBox1 を CheckBox1 で無効にし、Same CheckBox で再度有効にします。どのようにそれを行うことができますか？

Edit1 15.55 14/02/2013

私は私の問題を解決するためにそうしました！

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
TextBox1.Enabled = False
ElseIf CheckBox1.Checked = False Then
TextBox1.Enabled = True End If End Sub `

4

5 に答える 5

5

これでうまくいきます。他のチェック ボックスをさらに追加するだけです。

Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            TextBox1.Enabled = True
        Else
            TextBox1.Enabled = False
        End If
End Sub

これが何をするか：checkbox1 がチェックされている場合、checked_changed イベントが発生し、内部のコードが実行されます。if ステートメントは、チェックボックスがチェックされているかどうかを確認します。チェックされている場合は textbox1 を有効に設定し、そうでない場合は無効に設定します。プログラムを作成するときは、有効なプロパティを必ず有効または無効に設定してください。最初から有効にしたい場合は、それがデフォルトです...それ以外の場合は、プロパティビューで無効に設定してください。

于 2013-02-14T16:02:47.230 に答える
1 
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    TextBox1.Enabled = CheckBox1.Checked
End Sub
于 2013-02-14T14:29:41.130 に答える
0

以下のこのチュートリアルを見てください。その後、チェックボックス コントロールのイベントを見て、最も適切なものを選択します。テキストボックスで変更するプロパティはEnabledです。

http://www.youtube.com/watch?v=4PbUryXqZ50

于 2013-02-14T14:14:54.613 に答える
0

これは、オブジェクトを背後に送信できるレイヤーが組み込まれている場合に機能します（したがって、物を非表示にします）。これを使用して、他の選択に応じてテキスト ボックスやその他のアイテムを表示したり非表示にしたりします。

Private Sub checkbox_Click()
    If (checkbox = True) Then

    ActiveSheet.Shapes("textbox").ZOrder msoSendToFront
    ActiveSheet.Shapes("textbox").ZOrder msoSendToFront

    Else

    ActiveSheet.Shapes("textbox").ZOrder msoSendToBack
    ActiveSheet.Shapes("textbox").ZOrder msoSendToBack

    End If

End Sub
于 2013-11-15T16:05:54.613 に答える