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

首頁 > 學院 > 開發設計 > 正文

用VB自制屏幕保護程序

2019-11-18 17:29:42
字體：大 中 小
來源：轉載
供稿：網友
你是否已厭倦機上的屏幕保護程序，而又苦于難找到令自己滿意的。不急，“自己動手，豐衣足食”，你自己就可以制作精美的屏幕保護程序，只要你稍有VB編程知識。下面我們就用VB來編寫一個介紹自己家人的屏幕保護程序。
　　1、獲取屏保圖片：
　　從你家人的相片中，挑出你選定要作為圖片的，用掃描儀掃進你的電腦中，保存為“＊.bmp”格式。如果覺得效果不佳，可以用圖片處理軟件來加工，在這方面，photoshop、iphtotoEx　　EndSub
　　說明：第一個子程序是設置控件MMcontrol的屬性；
　　第二個子程序是控制該背景音樂的重復播放；
　　注意：選擇的背景音樂應該和屏幕保護程序的主題相一致，且其播放的時間應該是屏幕保護程序運行一周所需的時間的整數倍。
　　4、設置鍵盤和鼠標的響應：
　　要重新使用計算機，退出屏幕保護程序，就必須設置鍵盤和鼠標響應。其代碼如下：
　　PrivateSubForm_keydown()
　　End
　　EndSub
　　PrivateSubForm_Click()
　　End
　　EndSub
　　PrivateSubForm_MouseMove()
　　StaticX1,Y1AsSingle
　　DimX2,Y2AsSingle
　　X1=X
　　Y1=Y
　　IfX1=0AndY1=0Then
　　X1=X2
　　Y1=Y2
　　ExitSub
　　EndIf
　　If(X1<>X2)Or(Y1<>Y2)Then
　　End
　　EndIf
　　EndSub
　　說明：
　　第一個子程序的功能是按任意鍵時退出屏幕保護程序；
　　后兩個子程序的功能是在單擊或移動鼠標時退出屏幕保護程序；
　　5、生成MyFamily.scr程序：
　　就要大功告成了，選擇文件菜單中生成“＊.exe”項，生成MyFamily.Scr文件，保存在c:/windows目錄下，然后選擇控制面板，在顯示器屬性中選定你自己制作的這個屏幕保護程序。搞定！運行看看，如何？看著自己制作的屏幕保護程序，心里有一種成就感吧！->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 遂川县| 雅江县| 德兴市| 富源县| 佛教| 乃东县| 万全县| 疏附县| 辽阳县| 盐亭县| 广安市| 汤原县| 阿鲁科尔沁旗| 赤壁市| 邢台市| 鱼台县| 宜春市| 霍城县| 安化县| 桦甸市| 贵南县| 玉山县| 贞丰县| 孝义市| 确山县| 定边县| 奉贤区| 崇左市| 天峨县| 安顺市| 易门县| 西畴县| 龙井市| 拉孜县| 大英县| 乌拉特后旗| 隆昌县| 三江| 迁安市| 山阴县| 凉山|