Office中国论坛/Access中国论坛

标题: 按键隐藏的问题 [打印本页]

作者: 01ymym 时间: 2008-12-31 21:29
标题: 按键隐藏的问题
请教一个关于按键隐藏的问题。见附件

作者: Henry D. Sy 时间: 2008-12-31 21:31
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
附件是应该是你要的结果
[attach]34180[/attach]

作者: 01ymym 时间: 2008-12-31 21:35
还能再按确定再隐藏啊

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

作者: WDLRCZT 时间: 2008-12-31 21:37
我已经把你错误代码禁用了

作者: WDLRCZT 时间: 2008-12-31 21:43
标题: 回复 4# 的帖子
不明白你的意思

作者: Henry D. Sy 时间: 2008-12-31 21:44

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

当然可以

作者: 01ymym 时间: 2008-12-31 21:46
就是查询后，按下“确定”再将它们隐藏起来。

作者: Henry D. Sy 时间: 2008-12-31 21:46
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
更简单的代码就是
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

作者: 01ymym 时间: 2008-12-31 22:03
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.Command1.Visible = True
Me.Text2.Visible = False
Me.Command4.Visible = False
End Sub

还要加一句，谢谢

作者: Henry D. Sy 时间: 2008-12-31 22:07
vba控件的visible默认为true，如果曾经没有更改过他的属性，这一句可以省略Me.Command1.Visible = True

作者: 01ymym 时间: 2008-12-31 22:09
可是省去了就什么也看不到了，包括“查询”按钮啊

作者: Henry D. Sy 时间: 2008-12-31 22:12
呵呵，原来你更改过，我说的前提是没有更改过。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)