机关文明上网宣传教育:VB的CommonDialog组件

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/01 07:57:39
此组件为弹出一个对话框,这个对话框上面有个“打开”的按钮,此按钮是否可以有触发事件,就是说我想实现当按下此按钮后,要弹出另外一个"form"的事情

Private Sub Command1_Click()
CommonDialog1.Filter = "*.*|*.*"
CommonDialog1.ShowOpen
Form2.Show
End Sub

Private Sub Command1_Click()
Form1.Hide
Form2.Show
End Sub