2

1 つの vb フォームに 2 つのテキスト ボックスがあります。txtMaterial がいっぱいだった場合、txtPackage を無効にしたい、またその逆も同様です。以下のコードを使用しましたが、うまくいきませんでした。誰かがそれを修正できますか。心から感謝する。tq。

Private Sub txtMaterial_TextChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMaterial.TextChanged
    txtMaterial.Enabled = True
    txtPackage.Enabled = False

End Sub

Private Sub txtPackage_TextChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPackage.TextChanged

    txtPackage.Enabled = True
    txtMaterial.Enabled = False

End Sub
4

3 に答える 3

0 
Private Sub txtMaterial_TextChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMaterial.TextChanged
    If txtMaterial.Text <> "" Then
        txtPackage.Enabled =False
    End If
End Sub
于 2013-07-02T04:44:23.923 に答える
0

追加したコメントに基づいて

Blockquote 2つ目として無効にしたいです。しかし、私の場合、txtMaterial に入力すると、txtPackage にも同時にテキストを入力できます。

あなたの問題の解決策はこれでなければなりません：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    txtPackage.Enabled = False
End Sub


Private Sub txtMaterial_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMaterial.TextChanged
    If Not String.IsNullOrEmpty(txtMaterial.Text) Then
        txtPackage.Enabled = True
    Else
        txtPackage.Enabled = False
    End If
End Sub
于 2013-07-03T11:23:49.267 に答える