7489
社区成员
- 全部
VB中MsgBox的问题！！！
VB6中，怎么有时用MsgBox造成程序死了或自动退出，而且是在编译成EXE时才成这样，在调试时又不出现这中情况。
那位遇到过，给个解决办法
那位遇到过，给个解决办法
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
knowledge_Is_Life 2008-05-01
不明LZ在说什么
爱我的人请呼吸 2008-04-09
那句SQL看了头皮发麻～～
cbm6666 2008-04-09
我晕啊.....这样子写代码, 牛....我也服了, 越看头越麻..............
设计时期的路径是在 ?:\Program Files\Microsoft Visual Studio\VB98
你编译成 exe 后是在那里运行的 ? 检查一下你的路径吧.
虽然没有条件可以测试你的代码, 而且代码也看不下去了, 但可以10000% 肯定,错不在 Msgbox
设计时期的路径是在 ?:\Program Files\Microsoft Visual Studio\VB98
你编译成 exe 后是在那里运行的 ? 检查一下你的路径吧.
虽然没有条件可以测试你的代码, 而且代码也看不下去了, 但可以10000% 肯定,错不在 Msgbox
-晴天 2008-04-09
应该不是MSGBOX的事情.
qixingl 2008-04-09
我还发现把MsgBox拿到if 外面就好了，放在里面就不行
qixingl 2008-04-09
Private Sub SearchLatentContact(sContactID As String)
Dim sSql As String
Dim Ret As Long
Dim sXml As String
Dim i As Integer
' Dim sTemp As String
On Error Resume Next
'2008-1-28 潜在界面增加“沟通过程”，多选，内容如下6项
sSql = "select latentcontact.contactid,latentcontact.name,latentcontact.sex,latentcontact.note,product.scode,latentcontact.result,latentcontact.reason,latentcontact.realcontactid,product.prodname,product.recid,latentcontact.question,latentcontact.communication1,latentcontact.communication2,latentcontact.communication3,latentcontact.communication4,latentcontact.communication5,latentcontact.communication6 " & _
"From latentcontact, latentproduct,product " & _
"where latentcontact.contactid = latentproduct.contactid and latentproduct.prodid = product.recid and product.recid = (select min(prodid) From latentproduct where latentproduct.contactid = latentcontact.contactid) " & _
"and latentcontact.contactid='" & sContactID & "' "
Call ClearedData(20)
edPdata(0).sName = "NAME"
edPdata(0).sValue = sSql
edPdata(0).iType = iaUserData
sXml = oIAApp.CreateRequest("ExecSQL", edPdata)
If Len(sXml) <= 0 Then
Exit Sub
End If
Ret = tcpClient.CSAP_Call(sXml) '发送请求
If AnalyRes(Ret) = 1 Then '分析请求返回的结果: 0 成功,1 失败
Exit Sub
End If
Call tcpClient.GetData(sXml)
If oIAApp.AnalyXML(sXml) = iaTransSuccess Then
Call oIAApp.GetColAndRowNumber(iColnum, iRownum)
If iRownum > 0 Then
Else
MsgBox "没有检索到潜在客户信息！"
End If
End If
Call SearchLatentPhone(sContactID)
If Customer.CONTACT.ContactID <> "" Then
Call SearchAllContact(Customer.CONTACT.ContactID, iCurContact)
End If
End Sub
Dim sSql As String
Dim Ret As Long
Dim sXml As String
Dim i As Integer
' Dim sTemp As String
On Error Resume Next
'2008-1-28 潜在界面增加“沟通过程”，多选，内容如下6项
sSql = "select latentcontact.contactid,latentcontact.name,latentcontact.sex,latentcontact.note,product.scode,latentcontact.result,latentcontact.reason,latentcontact.realcontactid,product.prodname,product.recid,latentcontact.question,latentcontact.communication1,latentcontact.communication2,latentcontact.communication3,latentcontact.communication4,latentcontact.communication5,latentcontact.communication6 " & _
"From latentcontact, latentproduct,product " & _
"where latentcontact.contactid = latentproduct.contactid and latentproduct.prodid = product.recid and product.recid = (select min(prodid) From latentproduct where latentproduct.contactid = latentcontact.contactid) " & _
"and latentcontact.contactid='" & sContactID & "' "
Call ClearedData(20)
edPdata(0).sName = "NAME"
edPdata(0).sValue = sSql
edPdata(0).iType = iaUserData
sXml = oIAApp.CreateRequest("ExecSQL", edPdata)
If Len(sXml) <= 0 Then
Exit Sub
End If
Ret = tcpClient.CSAP_Call(sXml) '发送请求
If AnalyRes(Ret) = 1 Then '分析请求返回的结果: 0 成功,1 失败
Exit Sub
End If
Call tcpClient.GetData(sXml)
If oIAApp.AnalyXML(sXml) = iaTransSuccess Then
Call oIAApp.GetColAndRowNumber(iColnum, iRownum)
If iRownum > 0 Then
Else
MsgBox "没有检索到潜在客户信息！"
End If
End If
Call SearchLatentPhone(sContactID)
If Customer.CONTACT.ContactID <> "" Then
Call SearchAllContact(Customer.CONTACT.ContactID, iCurContact)
End If
End Sub
cbm6666 2008-04-09
"代码已经检查好多遍了" 观念或思路不对看百遍与看一遍又有啥区别 ?
把代码贴出来看看吧.
把代码贴出来看看吧.
波导终结者 2008-04-09
换种编译模式，比如P-Code试试，或者改下MsgBox的参数，比如只有msgbox "ddd"试试，缩小范围。
真不行就用调试器载入试试。
真不行就用调试器载入试试。
舉杯邀明月 2008-04-09
没遇到过这样的现象。
qixingl 2008-04-09
代码已经检查好多遍了，而且只是在编译好后才出现，在VB6.0环境调试没问题，正常弹出MsgBox,在EXE下走到这就死了
dabie 2008-04-09
因该是代码问题,这个只能自己慢慢找原因
VB 实现倒计时自动关闭的MsgBox对话框 VB 实现倒计时自动关闭的MsgBox对话框。这种对话框对于需要在自动关闭的对话中时候，非常棒。VB 实现倒计时自动关闭的MsgBox对话框。这种对话框对于需要在自动关闭的对话中时候，非常棒。
vb中的msgbox的用法 1、作用 在消息框中显示信息，并... MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context]) 参数说明： (1)Prompt，必需的参数，为字符串，作为显示在消息框中的消息文本。其最大长度约为1024个字符，由所...
VB中的“msgbox”函数各参数详解 不知不觉已经学习VB一个月了，本人开始了关于这门语言查漏补缺的工作，特在此做记录，对于有疑问的朋友有一定帮助，编程高手请不要喷。 很多时候我们是用msgbox函数的时候只用到了其prompt参数，对于其他的参数我们...
vb中msgbox用法 vb中msgbox用法 VB中的函数，可实现弹出窗口.作用：在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。语法：MsgBox(prompt[, buttons] [, title] [, helpfile, ...
VB.NET 2019中 MSGBOX使用方法 步骤一： 首先我们从“工具箱”里面选Button控件，然后建一个Button控件，如图所示： ... MsgBox("a是提醒内容", vbOKOnly, "b是对话框标题") End Sub 步骤三： 可以直接运行，如图所示 祝您学习愉快...
vb如何判断MsgBox返回值 在vb中，我们经常使用MsgBox来做提示，但是怎么判断它的返回值是什么呢，这里要用到一个数据类型——VbMsgBoxResult dim a as vbmsgboxresult a =msgbox ("请选择一个按钮按下",vbyesno) if a=vbyes then msgbox...
vb msgbox各种图标样式及按钮样式 图标样式 error:vbCritical question:vbQuestion warning:vbExclamation info:vbInformation 按钮样式 确定:vbOKOnly 确定取消:vbOKCancel 终止重试忽略:vbAbortRetryIgnore 是否取消:vbYesNoCancel ...
VB MsgBox 函数 了解一下 MsgBox的返回值：该输出框会根据用户所点击的按钮的类型返回对应的常量：常数 值 描述vbOK 1 OK vbCancel 2 Cancel vbAbort 3 Abort vbRetry 4 Retry vbIgnore 5 Ignore vbYes...
VB中Msgbox提示框代码“vbOKOnly”与“vbOKCancel”的区别 遇到的问题 当我最开始时编辑的代码是这样的 If MsgBox("是否真的要退卡？", vbOKonly, "退卡提示") = vbok Then MsgBox"退卡成功！", vbOKOnly, "提示" end if ...
VB6.0的MsgBox语句 MsgBox的用法 形式 Promt Button: Title MsgBox的用法 分函数和语句，先讨论语句 形式 MsgBox (Prompt [,Buttons] [,Title] [,Helpfile,Context]) Promt 必选。字符串表达式。显示...
VB 提示框MsgBox用法 MsgBox是VB中的函数，可实现弹出窗口. 作用：在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。 语法： MsgBox(prompt[, buttons] [, title] [, helpfile, context]) 参数说明： ...
详解VB对话框InputBox和MsgBox “ 大家好，从本节课程开始，我们一起来学习VB中各种对话框的使用。” 本节课程呢，我们一起来学习InputBox和MsgBox对话框。这两个对话框在VB中非常的重要，使用频次很高，熟练的掌握它们，可以为编程带来更高的效率...
VB.NET MsgBox详解 vs2010 Interaction .MsgBox 方法 发送反馈 在对话框中显示消息，等待用户单击按钮，然后返回一个整数，该整数指示用户单击的按钮。 命名空间： Microsoft.VisualBasic 程序集： ...
VB6 MsgBox 函数 MsgBox(prompt[, buttons][, title][, helpfile, context]) 参数 prompt 作为消息显示在对话框中的字符串表达式。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，...
VB：MsgBox示例 VB：MsgBox示例 ━━━━━━━━━━━━━━━━━━━━━━━━━━ (1) 使用 MsgBox 函数，在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”，MsgBox函数的返回值...
vb中msgbox函数用法 在对话框中显示消息，...语法 :MsgBox(prompt[, buttons] [, title] [, helpfile, context]) MsgBox 函数的语法具有以下几个命名参数：部分 描述 Prompt 必需的。字符串表达式，作为显示在对话框中的消息。prompt 的
VB.NET的MsgBox 一、可用按钮（指定消息框显示哪些按钮） MsgBoxStyle.OkOnly = vbOKOnly = 0（确定按钮） MsgBoxStyle.OkCancel = vbOKCancel = 1（确定、取消按钮） MsgBoxStyle.AbortRetryIgnore = vbAbortRetryIgnore = 2（终止...
