|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
“通过有能力的DBA的一个简单计划,MySQL可以达到令人难以想像的运行速度,”一位资深DBA如此表示。MySQL中没有多余的功能来拖累CPU或占用内存。access|鼠标指针
Access中怎样设定鼠标指针?
成绩:
怎样设定鼠标指针?
办法一:
PrivateDeclareFunctionalxSetCursorLib"user32"Alias"SetCursor"(ByValhCursorAsLong)AsLong
将指定的鼠标指针设为以后指针
PrivateDeclareFunctionalxGetCursorLib"user32"Alias"GetCursor"()AsLong
猎取今朝选择的鼠标指针的句柄
PrivateSubMouseType()
获得摆布形光标的值
Screen.MousePointer=9设屏幕鼠标为9(摆布型鼠标)。
lngMouseOne=alxGetCursor()前往摆布型鼠标在WINDOWS(200098XP)的值。
Screen.MousePointer=7设屏幕鼠标为11(沙漏)。
lngMouseTwo=alxGetCursor()前往摆布型鼠标在WINDOWS(200098XP)的值。
Screen.MousePointer=0重设屏幕鼠标为0(ACCESS自断定)。
blTextout=False
blTextlook=False
EndSub
办法二:
任意找一个.cur文件copy到mdb文件不异的目次
PrivateDeclareFunctionCopyCursorLib"user32"Alias"CopyIcon"(ByValhcurAsLong)AsLong
PrivateDeclareFunctionLoadCursorFromFileLib"user32"Alias"LoadCursorFromFileA"(ByVallpstrCurFileAsString)AsLong
PrivateDeclareFunctionGetCursorLib"user32"()AsLong
PrivateDeclareFunctionSetSystemCursorLib"user32"(ByValhcurAsLong,ByValidAsLong)AsLong
PrivateConstOCR_NORMAL=32512
DimlngMyCursorAsLong
DimlngSystemCursorAsLong
PrivateSubcmdMyCursor_Click()变动指针款式
DimstrCurFileAsString
strCurFile=CurrentProject.Path+"Cursor.cur"
可随便挪用其他的.cur鼠标款式文件,以到达显现各类指针的目标
lngMyCursor=LoadCursorFromFile(strCurFile)
lngSystemCursor=GetCursor()
lngSystemCursor=CopyCursor(lngSystemCursor)
SetSystemCursorlngMyCursor,OCR_NORMAL
Text1.SetFocus
Text1.Text="鼠标指针已设定为您要的形态"
cmdMyCursor.Enabled=False
cmdSystemCursor.Enabled=True
EndSub
PrivateSubcmdSystemCursor_Click()恢复体系指针款式
SetSystemCursorlngSystemCursor,OCR_NORMAL
Text1.SetFocus
Text1.Text="鼠标指针已恢复为体系形态"
cmdMyCursor.Enabled=True
cmdSystemCursor.Enabled=False
lngSystemCursor=0
EndSub
PrivateSubForm_Close()
IflngSystemCursor0ThenSetSystemCursorlngSystemCursor,OCR_NORMAL
EndSub
PrivateSubForm_Unload(CancelAsInteger)
IflngSystemCursor0ThenSetSystemCursorlngSystemCursor,OCR_NORMAL
EndSub
DBaaS系统其实具有更大的市场机遇:像其他云服务一样,DBaaS意味着更短的销售周期,更少的启动费用,持续不断的收入,也意味着比之前更多的客户。 |
|