描述如下:
窗体上有按钮A
按下按钮A以后,进行某项操作,在操作进行的过程当中,屏幕当中出现一条信息
提示操作当前进行的阶段
如:正在更新数据库,请稍候...
操作结束后,提示: 操作结束,然后该提示窗体自动关闭?
Private Sub Command1_Click()
frmStatus.Show
DoEvents
frmStatus.label1.Caption = "正在更新数据库,请稍候..."
DoEvents
处理你的程序
frmStatus.label1.Caption = "操作结束"
Unload frmStatus
End Sub
在窗体上添加一个label空件,根据你当时的操作,而动代改变label空件的caption 属性,例:
……
me.label1.caption="opening database ,wait for ……"
……
frmStatus.Show
DoEvents
frmStatus.label1.Caption = "正在更新数据库,请稍候..."
DoEvents
处理你的程序
frmStatus.label1.Caption = "操作结束"
Unload frmStatus