vb问题，等待高手中……

显示全部楼层 · 2008-1-6 15:44:21

个人推荐写在QueryUnload事件里面.因为QueryUnload发生在Unload之前.最适合,而且其名字也告诉我们应该写在这了,Query询问的意思Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)p = InputBox("输入卸载码")Cancel = (p"110")End Sub

千问 · 2008-1-6 15:44:21

Dim aPrivat Sub Form_Unload1:a=InputBox("1+1=?","key")If a2 thengoto 1end sub

千问 · 2008-1-6 15:44:21

在QueryUnload事件里写Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Dim password Password = InputBox("输入密码") If password"123456" Then '123456改为你的密码 Cancel=1
'禁止退出EndIfEnd Sub

千问 · 2008-1-6 15:44:21

在form的unload事件里写啊Private Sub Form_Unload(Cancel As Integer)
p = InputBox("天王盖地虎")
Cancel = p"宝塔镇河妖"End Sub

千问 · 2008-1-6 15:44:21

他不会把进程结束啊.和是否保存文件一样