Sự kiện click chuột trái cho GroupBox trong VB.Net? (1 người xem)

[Thanh Bình PV]

Mọi người cho em hỏi là em có 2 GroupBox đều đặt thuộc tính Enabled = False.
Vậy làm cách nào khi mình nhấn chuột trái vô GroupBox1 thì thuộc tính Enabled = true còn GroupBox2 là Enabled = False và ngược lại ạ.
Em sử dụng mã dưới nhưng mà chỉ thể hiện GroupBox2 là Enabled = True và GroupBox1 là Enabled = False thôi ạ.
Em cảm ơn.

Public Class Form1
    Private Sub GroupBox1_Mouseclick(sender As Object, e As MouseEventArgs) Handles Me.Click
        Me.GroupBox1.Enabled = True
        Me.GroupBox2.Enabled = False
    End Sub
    Private Sub GroupBox2_Mouseclick(sender As Object, e As MouseEventArgs) Handles Me.Click
        Me.GroupBox1.Enabled = False
        Me.GroupBox2.Enabled = True
    End Sub
End Class

 

[Vô danh Tiểu tốt]

Private Sub MainFormClick(sender As Object, e As EventArgs)
            Dim x = Me.PointToClient(Cursor.Position).X
            Dim y = Me.PointToClient(Cursor.Position).Y
            If x > groupBox1.Left AndAlso x < (groupBox1.Left + groupBox1.Width) Then
                If y > groupBox1.Top AndAlso y < (groupBox1.Top + groupBox1.Height) Then
                    Debug.WriteLine("in 1")
                End If
            End If
        End Sub

Viết bằng C# rồi dùng công cụ chuyển thành VB.NET tình cờ phát hiện ra cái từ "AndAlso". Search tiếp "AndAlso" mới biết là anh VB.NET học mót được ưu điểm của toán tử && của anh C nên đẻ ra AndAlso. Tưởng mấy thứ đơn giản biết hết mà giờ toát mồ hôi với sự tiến hóa VB.NET . Còn anh "And" thì vẫn giữ nguyên bản cho các cụ có tật thấy cái gì tiến hóa với thời các cụ tý là bô bô phê phán.

 

[YêuCN]

Mọi người cho em hỏi là em có 2 GroupBox đều đặt thuộc tính Enabled = False.
Vậy làm cách nào khi mình nhấn chuột trái vô GroupBox1 thì thuộc tính Enabled = true còn GroupBox2 là Enabled = False và ngược lại ạ.
Em sử dụng mã dưới nhưng mà chỉ thể hiện GroupBox2 là Enabled = True và GroupBox1 là Enabled = False thôi ạ.
Em cảm ơn.

Public Class Form1
    Private Sub GroupBox1_Mouseclick(sender As Object, e As MouseEventArgs) Handles Me.Click
        Me.GroupBox1.Enabled = True
        Me.GroupBox2.Enabled = False
    End Sub
    Private Sub GroupBox2_Mouseclick(sender As Object, e As MouseEventArgs) Handles Me.Click
        Me.GroupBox1.Enabled = False
        Me.GroupBox2.Enabled = True
    End Sub
End Class

Sao ko dùng check box thử bạn

 

[Thanh Bình PV]

Sao ko dùng check box thử bạn

CheckBox thì em sử dụng được ạ. Nhưng em vẫn muốn đơn giản hơn nên đang tìm theo hướng dùng chuột trái click ạ.

Bài đã được tự động gộp: 21/2/20

Private Sub MainFormClick(sender As Object, e As EventArgs)
            Dim x = Me.PointToClient(Cursor.Position).X
            Dim y = Me.PointToClient(Cursor.Position).Y
            If x > groupBox1.Left AndAlso x < (groupBox1.Left + groupBox1.Width) Then
                If y > groupBox1.Top AndAlso y < (groupBox1.Top + groupBox1.Height) Then
                    Debug.WriteLine("in 1")
                End If
            End If
        End Sub

Viết bằng C# rồi dùng công cụ chuyển thành VB.NET tình cờ phát hiện ra cái từ "AndAlso". Search tiếp "AndAlso" mới biết là anh VB.NET học mót được ưu điểm của toán tử && của anh C nên đẻ ra AndAlso. Tưởng mấy thứ đơn giản biết hết mà giờ toát mồ hôi với sự tiến hóa VB.NET . Còn anh "And" thì vẫn giữ nguyên bản cho các cụ có tật thấy cái gì tiến hóa với thời các cụ tý là bô bô phê phán.

Em dùng Visual Studio để viết Code mà dùng mã Code của anh không được ạ.