为什么我在一个窗体onload的时候我选择取消没用?
代码如下:
Private Sub MDIForm_Unload(Cancel As Integer)
message = MsgBox("是否确定退出系统??", 36, "消息演示")
If message = 1 Then
    End
    Else
    Exit Sub
End If
End Sub
我选择取消的时候为什么他还是要退出?大家给指点一下并不是我偷懒,资料也查了就是没有解决阿

解决方案 »

  1.   

    顺便问问
    为什么我这个代码不行啊
    Private Sub MDIForm_Load()
    Dim username As String
    username = frmlogin.username.Text
    StatusBar1.Panels(5).Text = "当前操作员:" + username
    End Sub
    老是为空
    frmlogin.username是一个下拉框
    大家指点一下
      

  2.   

    Private Sub Form_Unload(Cancel As Integer)    If MsgBox("是否确定退出系统?", vbYesNo) = vbNo Then
            Cancel = 1
        End IfEnd Sub
      

  3.   

    试试,在模块中声明一个全局变量(x),在frmloginx窗体Unload前,x = frmlogin.username.Text,然后:Private Sub MDIForm_Load()
        Dim username As String
        username = x
        StatusBar1.Panels(5).Text = "当前操作员:" + username
    End Sub
      

  4.   

    第二个问题是因为你将login窗体卸载后才显示MDI窗体的,因此在显示时login窗体上的comboBox也就没有任何内容了,解决的办法是建立一个全局的变量,将login上的comboBox中的内容赋给它,然后在MDI窗体中调用就可以了