为什么我在一个窗体onload的时候我选择取消没用?
代码如下:
Private Sub MDIForm_Unload(Cancel As Integer)
message = MsgBox("是否确定退出系统??", 36, "消息演示")
If message = 1 Then
End
Else
Exit Sub
End If
End Sub
我选择取消的时候为什么他还是要退出?大家给指点一下并不是我偷懒,资料也查了就是没有解决阿
代码如下:
Private Sub MDIForm_Unload(Cancel As Integer)
message = MsgBox("是否确定退出系统??", 36, "消息演示")
If message = 1 Then
End
Else
Exit Sub
End If
End Sub
我选择取消的时候为什么他还是要退出?大家给指点一下并不是我偷懒,资料也查了就是没有解决阿
为什么我这个代码不行啊
Private Sub MDIForm_Load()
Dim username As String
username = frmlogin.username.Text
StatusBar1.Panels(5).Text = "当前操作员:" + username
End Sub
老是为空
frmlogin.username是一个下拉框
大家指点一下
Cancel = 1
End IfEnd Sub
Dim username As String
username = x
StatusBar1.Panels(5).Text = "当前操作员:" + username
End Sub