按键隐藏的问题

01ymym · 发表于 2008-12-31 21:29:01

请教一个关于按键隐藏的问题。见附件

Henry D. Sy · 发表于 2008-12-31 21:31:25

Private Sub Command1_Click()
Me.Text2.Visible = True
Me.Command4.Visible = True
End Sub

Private Sub Form_Load()
Me.Text2.Visible = False
Me.Command4.Visible = False
End Sub

WDLRCZT · 发表于 2008-12-31 21:33:54

附件是应该是你要的结果

01ymym · 发表于 2008-12-31 21:35:34

还能再按确定再隐藏啊

[ 本帖最后由 01ymym 于 2008-12-31 21:38 编辑 ]

WDLRCZT · 发表于 2008-12-31 21:37:50

我已经把你错误代码禁用了

WDLRCZT · 发表于 2008-12-31 21:43:33

不明白你的意思

Henry D. Sy · 发表于 2008-12-31 21:44:05

原帖由 01ymym 于 2008-12-31 21:35 发表
还能再按确定再隐藏啊

当然可以

01ymym · 发表于 2008-12-31 21:46:30

就是查询后，按下“确定”再将它们隐藏起来。

Henry D. Sy · 发表于 2008-12-31 21:46:37

Dim bln As Boolean
Private Sub Command1_Click()
If Not bln Then
      Me.Text2.Visible = True
      Me.Command4.Visible = True
      bln = True
Else
      Me.Text2.Visible = False
      Me.Command4.Visible = False
      bln = False
End If
End Sub

Private Sub Form_Load()
bln = False
Me.Text2.Visible = False
Me.Command4.Visible = False
End Sub

Henry D. Sy · 发表于 2008-12-31 21:51:40

更简单的代码就是
Private Sub Command1_Click()
Me.Text2.Visible = Not Me.Text2.Visible
Me.Command4.Visible = Not Me.Command4.Visible
End Sub

Private Sub Form_Load()
Me.Text2.Visible = False
Me.Command4.Visible = False
End Sub

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 按键隐藏的问题

本帖子中包含更多资源

本帖子中包含更多资源

回复 4# 的帖子

群介绍
主题无相 (随机显示版	同地区群块其他地区)