国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板: 朝阳市| 华阴市| 剑川县| 泾阳县| 潍坊市| 怀集县| 嘉祥县| 勃利县| 绥芬河市| 丁青县| 蓝山县| 亳州市| 昭觉县| 霍山县| 当涂县| 韶关市| 滁州市| 全椒县| 静宁县| 太康县| 栾城县| 内丘县| 湖北省| 交城县| 都兰县| 古丈县| 镇远县| 东台市| 四川省| 清徐县| 郴州市| 兴海县| 泾源县| 敖汉旗| 天峻县| 达日县| 罗江县| 高淳县| 遵义县| 泰州市| 兰考县|