紧急求助：各位高手帮忙！先谢

chuanzhang

各位高手，小弟如今正在关键的时刻
请高手指点几个问题，是关于控件的问题
谢谢！！

chuanzhang

高手帮忙啊

fengrh

1.窗體事件 on open
Private Sub Form_Open(Cancel As Integer)
Me!ActiveX控件1.Visible = False
End Sub
2.日期控件 on Got Focus
Private Sub 日期__on GotFocus()
Me!in.Visible = True
End Sub
3.ActiveX控件1 on Click
Private Sub ActiveX控件1_Click()
Me!日期= Me!ActiveX控件1
End Sub
4.日期控件 on Lost Focus
Private Sub 日期控件 _LostFocus()
Me!ActiveX控件1.Visible = False
End Sub

[此贴子已经被作者于2003-11-5 13:46:16编辑过]