-2

我想在单击标签后立即禁用它,但是代码隐藏了标签。

我想要的是禁用它(使深灰色和不可点击),而不是让它消失。

  Label3.Enabled = False
4

1 回答 1

0

添加您的 onclick 事件,如下所示:

AddHandler Label3.Click, AddressOf MyClickMethod

跟踪您的点击状态并像这样实现您的方法:

Private _isActive As Boolean

Public Sub MyClickMethod(ByVal o As Object, ByVal e As EventArgs)
   If _isActive Then
       RemoveHandler Label3.Click, AddressOf MyClickMethod
       _isActive = False
   Else
       AddHandler Label3.Click, AddressOf MyClickMethod
       _isActive = True
   EndIf
End Sub

可能是我错过了一些语法,在视觉工作室之外打字

于 2013-02-18T09:46:11.803 回答