VB中无法隐藏label

来源：百度知道 编辑：UC知道 时间：2024/05/17 00:51:17
代码如下
Private Sub Form_Lord()
Lbl1.Visible = False
lbl2.Visible = False
lbl3.Visible = False

End Sub

Private Sub CmdExit_Click()
Unload Me
End Sub

Private Sub CmdNo_Click()
lbl2.Visible = False
lbl3.Visible = True

End Sub

Private Sub CmdYes_Click()
lbl2.Visible = True
lbl3.Visible = False

End Sub

我是想让lbl2和lbl3 在刚打开窗口时 隐藏
但是现在是lbl1 lbl2 lbl3 全部出现
这个代码那里出问题了吗？

Private Sub Form_Load() '这儿应该是load，而不是lord
Lbl1.Visible = True '这儿应该是TRUE，而不是FALSE
Lbl2.Visible = False
Lbl3.Visible = False

End Sub

Private Sub CmdExit_Click()
Unload Me
End Sub

Private Sub CmdNo_Click()
Lbl2.Visible = False
Lbl3.Visible = True

End Sub

Private Sub CmdYes_Click()
Lbl2.Visible = True
Lbl3.Visible = False

End Sub
看楼主的意思 运行时lbl1应该是出现的，那楼主就有了两个小错误

Private Sub Form_Lord()

是

Private Sub Form_Load()

不细心啊

Private Sub Form_Load()
Lbl1.Visible = False
Lbl2.Visible = False
Lbl3.Visible = False
End Sub

Private Sub CmdExit_Click()
Unload Me
End Sub

Private Sub CmdNo_Click()
Lbl2.Visible = False
Lbl3.Visible = True
End Sub

Private Sub CmdYes_Click()
Lbl2.Visible = True