Question

vb6.0 点击退出按钮弹出对话框怎么弄???点击确定退出，点击取消返回原来的登陆界面

现在我弹出来的窗口只有确定没有取消

Answer 1

vbOKCancel表示含有【确定】、【取消】按钮，“= vbOK”是选择了【确定】按钮。
这样做非常简便：
Private Sub cmdExit_Click()
If MsgBox("确定要退出吗？", vbOKCancel, "警告") = vbOK Then
Unload Me '卸载登录窗体
Else
'什么也不做，留在登录窗体
End If
End Sub

祝你好运！

Answer 2

Private Sub Exit_Click()
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    Msg = "结束程序 ?"   ' 定义信息。
    Style = vbYesNo + vbCritical + vbDefaultButton2   ' 定义按钮。
    Title = "结束程序"   ' 定义标题。
    Help = "DEMO.HLP"   ' 定义帮助文件。
    Ctxt = 1000   ' 定义标题
    ' 上下文。
    ' 显示信息。
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbYes Then   ' 用户按下“是”。
        MyString = "Yes"   ' 完成某操作。
        Unload FrmComm
        Unload frmCeshi
        Unload frmchaxunNew
        End
    Else   ' 用户按下“否”。
        MyString = "No"   ' 完成某操作。
    End If
End Sub

Answer 3

StrPtr()是唯一能直观地告诉你空字符串和null字符串的不同的方法。

对于null字符串(vbNullString)，StrPtr的返回值为0；而对于空字符串，函数的返回值为非零。

例如：

Private Sub Command1_Click()
    Dim N As Integer,strtmp As String
    strtmp=InputBox("请输入一个数N", "输入框")
    If StrPtr(strtmp) = 0 Then  ' 判断若点击取消，什么都不做,返回原窗口  
    Else
        N=Val(strtmp)
        Print N；
    END If
END Sub

    

Answer 4

If MsgBox("请确认是否退出？", vbOKCancel) = vbOK Then
'退出
Else
'不退出
End If