国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

處理過程時的鼠標(biāo)顯示

2019-11-18 17:53:05
字體：大 中 小
供稿：網(wǎng)友
為讓你的程序更加專業(yè)一點，我們往往需要在程序處理過程時的鼠標(biāo)形狀顯示為“沙漏”狀態(tài)。我們一般的方法是在子程序的開始及結(jié)尾編程來改變鼠標(biāo)形狀，這樣十分煩瑣且容易忘記。我們還可以以下面的方法來實現(xiàn)這一目標(biāo)：
1、創(chuàng)建一個新類，命名為：CHourGlass；
2、在此類中加入以下代碼：
PRivateSubClass_Initialize()
Screen.MousePointer=vbHourglass
EndSub
PrivateSubClass_Terminate()
Screen.MousePointer=vbDefault
EndSub
3、在子程序的開始加入下面代碼：
DimMyHourGlassAsCHourGlass
SetMyHourGlass=NewCHourGlass->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 资阳市| 文昌市| 襄城县| 尉氏县| 甘泉县| 额济纳旗| 韶关市| 长治市| 丹寨县| 东明县| 吉木萨尔县| 蒙山县| 朝阳市| 清流县| 建德市| 泗水县| 永州市| 寿光市| 武汉市| 日照市| 金华市| 时尚| 和平县| 潜山县| 满洲里市| 定西市| 邵东县| 博客| 涡阳县| 休宁县| 东丰县| 保康县| 涿鹿县| 太仓市| 山东| 德兴市| 公主岭市| 武安市| 汕尾市| 彭州市| 民和|