VB6.0如何实现像"正在计算,请稍后..."的提示,执行完成后,该提示消失

出现该提示的后继代码继续执行,直到完成后,此提示消失,就像VFP中WAIT那样
看不出来字,只有文本框
Private Sub Command19_Click()
Text9.Visible = True
Text9.Text = "正在计算,请稍后....."
文本框放在列表框的上面,并且是最上层

第1个回答  2010-08-10
最简单的
在执行代码的第一行输入
text1.text=“正在计算,请稍后...”
在最后一行输入
text1.Visible =false
补充:
看不出来字?
是不是text一眨眼就不见了,若是则因为你的计算过程用时十分少
第2个回答  2012-04-21
后面加一句:DoEvents 就正常了。本回答被提问者采纳

VB6.0如何实现像"正在计算,请稍后..."的提示,执行完成后,该提示消失
在执行代码的第一行输入 text1.text=“正在计算,请稍后...”在最后一行输入 text1.Visible =false 补充:看不出来字?是不是text一眨眼就不见了,若是则因为你的计算过程用时十分少

如何用VB6.0编写一段程序,能实现某个程序运行结束后(例如QQ.EXE运行结束...
x = MsgBox("15秒后关闭计算机", vbYesNo, "警告") '弹出对话框 Timer1.Enabled = False '先将timer控件暂停监视 If x = vbYes Then '如果点击对话框“是”按钮 则执行关机 Shell "cmd \/c shutdown -s -t 15", 0 Else Timer1.Enabled = True '如果点 ”否“则继续监控 End If End...

vb6.0如何根据条件提醒
出现一个[消息]对话框,在此[消息]对话框中显示提示信息,等待用户单击按钮,并返回一个整型数值,告诉应用程序用户单击的是哪一个按钮。 说明:(1)[提示]参数:它是一个字符串表达式,表示显示在对话框中的提示信息。它可以是汉字,可以显示多行提示文字。 (2)[标题]参数:它是一个字符串表达式,是[消息]对话框标题...

VB6.0:请看一下这段代码哪里有问题,运行的时候提示“无效的过程调用或参...
在不改变代码功能的前提下,增加语句数量,这样当程序调试中出现错误时,更容易定位错误出现在哪一行代码。运行的结果,错在 “t2 = Left(strTemp, t1 - 1)”一行,在立即窗口中查询 t1 的值为 0 ,这样t1-1 的值为 -1,Left函数的第二个参数不合法。t1 为 0 ,可能是因为字符串 strTemp 中...

如何用VB6.0实现用对话框选择excel文件,并调用其中数据存成数组后进行...
Dim a() As String, tem As String Dim i As Integer '运行前请"工程-引用" "Microsoft Excel 12.0 Object Library" 打钩 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim j As Integer Private Sub Command1_Click()'xlApp.NewWorkbook....

在vb6.0中实现按钮触发选择对话框
在form1中添加一个按钮command1,代码如下:Private Sub command1_click()Dim a As Integer a = MsgBox("是否继续?", 1 + 64, "信息提示")If a = 1 Then Form2.Show Else End Unload Me End If End Sub 以上注解:单击按键1,如果选择确定,那么显示窗体2,否则退出程序。

vb6.0 遇到错误能不退出吗
On Error Resume Next 即可。意思是,程序遇到错误不理会,继续执行。或者使用GoTo,比如下面的代码计算肯定是溢出的,但程序不会退出,不过会提示:On Error GoTo ToExit Dim g, ErrNum As Boolean g = 1 Do Until ErrNum g = g * 1024 Loop ToExit:If Err.Number = 6 Then Print "程序...

Win7电脑安装VB6.0企业版出现错误提示怎么解决
1. 启用兼容性模式右击VB6.0企业版安装程序图标,选择“属性”。在属性窗口中,切换到“兼容性”选项卡。勾选“以兼容模式运行此程序”选项,并选择一个合适的操作系统版本。点击“确定”保存设置,再次运行安装程序。2. 安装VB6.0运行时文件有时候,缺少VB6.0的运行时文件会导致安装错误。可以从微软...

为什么我的电脑里用VB6.0编程时,一键入=号或空格或点键,程序就提示遇到...
首先确定你安装的版本是可以正常运行的(一般是没有什么问题的)然后把程序卸载然后重新安装,卸载的时候可能需要一些工具来辅助完成 如果你怀疑是杀毒软件误杀,可以查看相应的查杀报告

安装VB6.0时出现的问题,请问怎么解决?
3、继续点击下一步,出现以下提示错误。这个错误我直到现在还不明晰,尝试着退出360安全卫士和360杀毒软件,问题消失。4、在后续的安装中,不断出现,无法删除某个文件夹下的动态链接库文件(.dll),手动找到指定目录下的dll文件,删除,点击重试即可。另外就是在安装VB的时候尽量不要点击其他的程序,...

相似回答