BeforeOpenProject 里
Dim frm As New Form1
frm.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
e.HideSplashForm = True ‘或 frm.TopMost = True
frm.ShowDialog() '模式打开
If bl_取消 Then
e.Cancel = True
End If
If bl_确定 Then
'你的策略
msgbox(str_机器码)
msgbox(str_注册码)
End If
全局class 里 昨天少了一个代码,你把他加进去,是点击上面的关闭按钮是获取系统消息
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg = 161 And m.WParam = 20 Then
bl_取消 = True
Me.Close()
End If
MyBase.WndProc(m)
End Sub
[此贴子已经被作者于2013-12-26 11:05:25编辑过]