在vb6.0提示框(msgbox)里,怎么能添加上一个带超级链接功能的标签(label)呢?请高手指点
我用form窗体自制了一个貌似msgbox窗体的提示框,不好用。自制的提示框和msgbox有什么区别呢?在代码里运行时,如果用msgbox,代码走到这,用鼠标点了提示框上...
我用form窗体自制了一个貌似msgbox窗体的提示框,不好用。自制的提示框和msgbox有什么区别呢?在代码里运行时,如果用msgbox,代码走到这,用鼠标点了提示框上的按钮以后,程序才会继续往下运行。但是我自制的提示框,运行到该行时,虽然也弹出提示框,但是程序不等我点提示框上按钮,还是往下执行,即虽然弹出提示框,但是程序不停止,还是继续往下执行。请高手指点,在vb的msgbox里如何加入一个带超级连接功能的标签。thanks
我的源代码是这样写的。
提示框部分代码:
Dim tForm As New Form1
If Not tForm.Visible Then
tForm.Show 1
End If
Set tForm = Nothing
调用的部分代码:
If ufMBox Is Nothing Then
Set ufMBox = CreateObject("UFMsgBox.MsgBoxInfo")
ufMBox.UFMsgBox strError, vbInformation,pustrMsgTitle
End If
。。就是代码走到ufMBox.UFMsgBox这行的时候,会弹出提示框,问题:
如果用vb自带的msgbox的话,在这出现提示框后,鼠标点击提示框的按钮后,代码才会往下走;但是我用自带的提示框的,代码走到这,也会出现提示框,但是鼠标还没点击提示框上的按钮,代码会继续往下走。。问题就是这样了,郁闷死了,弄了一天也没找到原因。。各位朋友,你们知道为什么吗 ?先谢过了~~
谢谢大家的回复,你们的建议到是我以前试过的,都不成功~
有没有知道:自制的提示框窗体,和vb自带的提示框msgbox有什么区别吗 ?为什么用msgbox代码就可以在那停止住?自己制作的就不行呢~???? 展开
我的源代码是这样写的。
提示框部分代码:
Dim tForm As New Form1
If Not tForm.Visible Then
tForm.Show 1
End If
Set tForm = Nothing
调用的部分代码:
If ufMBox Is Nothing Then
Set ufMBox = CreateObject("UFMsgBox.MsgBoxInfo")
ufMBox.UFMsgBox strError, vbInformation,pustrMsgTitle
End If
。。就是代码走到ufMBox.UFMsgBox这行的时候,会弹出提示框,问题:
如果用vb自带的msgbox的话,在这出现提示框后,鼠标点击提示框的按钮后,代码才会往下走;但是我用自带的提示框的,代码走到这,也会出现提示框,但是鼠标还没点击提示框上的按钮,代码会继续往下走。。问题就是这样了,郁闷死了,弄了一天也没找到原因。。各位朋友,你们知道为什么吗 ?先谢过了~~
谢谢大家的回复,你们的建议到是我以前试过的,都不成功~
有没有知道:自制的提示框窗体,和vb自带的提示框msgbox有什么区别吗 ?为什么用msgbox代码就可以在那停止住?自己制作的就不行呢~???? 展开
4个回答
展开全部
自制一个貌似msgbox窗体:比如名字是frmmsgbox,属性窗口中把StartUpPosition设置为1,这样调用:
frmmsgbox .show 1,me
就OK了
frmmsgbox .show 1,me
就OK了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
窗口调用模式不对。
自制一个貌似msgbox窗体:frmmsgbox,这样调用:
frmmsgbox .show 1
就OK了
自制一个貌似msgbox窗体:frmmsgbox,这样调用:
frmmsgbox .show 1
就OK了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
自己用窗体做个提示框 每次调用
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
自己做个窗口就行了!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询