按键隐藏的问题

01ymym

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

Henry D. Sy

呵呵，原来你更改过，我说的前提是没有更改过。

01ymym

可是省去了就什么也看不到了，包括“查询”按钮啊

Henry D. Sy

vba控件的visible默认为true，如果曾经没有更改过他的属性，这一句可以省略Me.Command1.Visible = True

01ymym

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

更简单的代码就是
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

Henry D. Sy

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

01ymym

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

Henry D. Sy

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

当然可以

WDLRCZT

不明白你的意思