99问答网
所有问题
VB中Screen.MousePointer = 11什么意思
如题所述
举报该问题
推荐答案 2011-10-21
VB中Screen是指桌面,即没有任何窗口打开的情况,所以这语句就是修改桌面的鼠标指针。
至于后面数字的含义,你可以看一下任意一个窗体的MousePointer属性,11-Hourglass意思是沙漏,表示系统繁忙。
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://99.wendadaohang.com/zd/zzvvvjeWW.html
其他回答
第1个回答 2011-10-21
调用系统中鼠标图标中的繁忙图标。表示程序正忙。
张志晨
给你一个小程序,你耐心地试一下就知道了。
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 15
Screen.MousePointer = i
MsgBox "Screen.MousePointer =" & i
Next
End Sub
本回答被网友采纳
第2个回答 2011-10-21
设置鼠标的样式为11所对应的值,11:等待的沙漏
相似回答
vb
如何控制鼠标呈等待状态
答:
Me.
MousePointer
=
11
'鼠标呈现漏斗等待状态 Me.MousePointer = 0 '鼠标恢复为默认状态
vb
6.0中进度条的使用方法
答:
应用后,在工具箱就可以看到进度条控件(ProgressBar)了.
Screen.MousePointer
=
vbHourglass
答:
VbHourglass 11
沙漏(表示等待状态)
。VbNoDrop 12 不允许放下。VbArrowHourglass 13 箭头和沙漏。VbArrowQuestion 14 箭头和问号。VbSizeAll 15 四向尺寸线。VbCustom 99 通过 MouseIcon 属性所指定的自定义图标。说明 在鼠标指针越过窗体或对话框上的控件时...
急!!!
VB
loading
答:
Private Sub Command1_Click()If Text1.Text = "" Then Me.
MousePointer
=
11
End Sub 安装上面的例子把你的sql语句查询过程换成If Text1.Text = "",
如何可以用
VB
找到指向图标
答:
搜索ICO文件试一试吧
VB
如何实现查询数据库并显示出来?
答:
Screen.MousePointer
=
11
Dim Rs_Data As New ADODB.Recordset Dim Irowcount As Long Dim Icolcount As Long Dim XlApp As New Excel.Application Dim xlbook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim xlQuery As Excel.QueryTable With Rs_Data If .State = adStateOpen Then .Close End If...
VB
调用EXCEL最后保存退出的问题
答:
Screen.MousePointer
=
11
sXLSPath = appdisk & "maindata.xls"Open sXLSPath For Output As #1 Close #1 Set MyExcel = CreateObject("excel.application")Set MyBook = MyExcel.Workbooks.Open(sXLSPath)Set MySheet = MyExcel.ActiveSheet MySheet.Range("A1:O1").Select With MyExcel....
寻求
VB
发送邮件源码~~
答:
Screen.MousePointer
=
11
VB
Mail.MAPIMess.FetchUnreadOnly = 0 VBMail.MAPIMess.Action =
vb
MessageFetch VBMail.Statusbar1.Panels(1) = "收信箱里共有" + Format$(VBMail.MAPIMess.MsgCount) + "邮件" Screen.MousePointer = 0End SubPublic Function GetRCList(msg As Control, RCType As Integer...
vb中
利用ComBox控件、TxtBox控件、命令按钮!实现条件查询,并把符合条件...
答:
Screen.MousePointer
=
11
Set db = New ADODB.Connection db.CursorLocation = adUseClient db.ConnectionString = sConnect db.ConnectionTimeout = 15 db.Open mOpenDB = True '标记连接成功 Screen.MousePointer = 0 On Error GoTo 0 Exit FunctionmErrDb: Screen.MousePointer = 0 MsgBox "数据库连接失败 !
大家正在搜
VB中case什么意思
vb中randomize什么意思
VB中rnd什么意思
vb中boolean什么意思
lcase在vb中什么意思
VB中mid什么意思
vb中inc什么意思
vb中msgbox是什么意思
vb中len什么意思
相关问题
在VB中语句 Me.MousePointer = 11是什么...
Screen.MousePointer = vbHourgl...
Screen.MousePointer = vbDefaul...
vb6中Screen.MousePointer用来改变鼠标的...
VB中MouseDown 和 MouseUp 有什么区别啊?
vb 如何控制鼠标呈等待状态
VB里面超链接设置了mouseicon和mousepoint...
vb问题请高手帮忙