发表于 2009-1-5 19:48
| 
涓涓疄鐢ㄧ殑VB灞忓箷绋嬪簭
鍙戝竷: 2008-7-15 14:23 | 浣滆: 缃戠粶杞浇 | 鏉ユ簮: 缃戠粶杞浇 | 鏌ョ湅: 14娆
涓涓疄鐢ㄧ殑VB灞忓箷绋嬪簭
浣滆咃細鑼冩槑涔
鍦╒B5.0鍏锋湁闈㈠悜瀵硅薄鐨勭▼搴忚璁℃濇兂鍙婂彲瑙嗗寲鐨勭紪绋嬫柟寮忥紝鍙紑鍙戝嚭鍚勭澶氬獟浣撳簲鐢ㄧ▼搴忥紝棰囧緱杞欢璁捐鑰呴潚鐫愩傜瑪鑰呮渶杩戝簲鐢╒B5.0缂栧埗浜嗕竴绋嬪簭锛屾垚鍔熷疄鐜颁簡鈥滃浘鏂囧苟鑼傗濈殑灞忓箷鏁堟灉锛屽嵆锛氬睆骞曞嚭鐜扮敤鎴烽夊畾鐨勪竴骞呰祻蹇冩偊鐩殑鍥惧儚锛屽湪鍥惧儚涓嬫柟鏈変竴琛屽瓧骞曠紦缂撳湴浠庡睆骞曞彸杈瑰悜宸﹁竟绉诲姩锛屽叏閮ㄦ枃瀛楃Щ鑷冲乏杈规秷澶卞悗锛屼粠鍙宠竟鍙堝钩婊戞嫋鍑哄瓧骞曪紝瀛楀箷绉诲姩杩囩▼涓棦涓嶅奖鍝嶅浘鍍忕殑鏁翠綋鏁堟灉鍙堣兘瀵瑰浘鍍忚繘琛屾彁绀恒佽鏄庯紝浣垮簲鐢ㄧ▼搴忕晫闈㈠厖婊♀滄椿鎬р濄
鐜板皢璁捐鐨勬暣涓繃绋嬩粙缁嶅涓嬶細
(1)鍒涘缓涓涓柊鐩爣鏂囦欢(Project1)锛屽苟寤虹珛涓涓獥浣揊orm1銆
(2)鍦‵orm1涓婇厤缃竴涓鏃跺櫒鎺т欢Timer1銆佹爣绛炬帶浠禠abel1銆佸浘鍍忔帶浠禤icture1銆
(3)鍚勬帶浠跺睘鎬ц缃細
Timer1鐨凟nabled璁剧疆涓衡淭rue鈥濄
鐢↙abel1鐨凢ont璁剧疆灞忓箷涓嬫柟寰幆绉诲姩鐨勬彁绀轰俊鎭瓧浣撳強澶у皬锛孎oreColor璁剧疆瀛椾綋棰滆壊锛孉utoSize璁剧疆涓篢rue锛孊ackStyle璁剧疆涓衡0锛峵ransparent鈥濄
Picture1鐨凙utoSize璁剧疆涓篎alse锛孒eight璁句负5435锛學idth璁句负8235锛孲calemode璁剧疆涓衡3锛峱ixel鈥濄
(4)绋嬪簭浠ｇ爜娓呭崟锛
PrivateSubForm_Load()
鈥茶缃浘鍍忔帶浠禤icture1灞炴э紝鍦ㄥ睆骞曟樉绀哄浘鍍廝icture1顎怭icture=LoadPicture(鈥矯:\Pwin95\Setup.bmp鈥)Picture1顎怓oreColor=RGB(255锛10锛110)Picture1顎怓ontItalic=TruePicture1顎怓ontBold=TruePicture1顎怲op=155Picture1顎怢eft=635鈥插皢鏍囩鎺т欢Label1鐨凜aption灞炴ц缃负灞忓箷涓嬫柟寰幆绉诲姩鐨勬彁绀轰俊鎭疞abel1顎怌aption=鈥虫睙瑗跨渷榛庡窛鍘胯亴涓氫腑涓撶數鑴戝璁捐鈥矻abel1顎怢eft=WidthLabel1顎怲op=5653Timer1顎怚nterval=375Form1顎怶indowstate=2EndSubPrivateSubTimer1_Timer()IfLabel1顎怢eft<0锛峀abel1顎怶idthThenLabel1顎怢eft=WidthEndIfLabel1顎怢eft=Label1顎怢eft锛255EndSub绋嬪簭涓殑鍥惧儚鍙婄Щ鍔ㄥ瓧骞曞彲渚濊嚜宸卞枩濂界伒娲昏璁★紝浠ヨ揪鍒版渶浣虫晥鏋溿傝嫢灞忓箷鏄剧ず澶氬箙鍥惧儚锛岄渶璁剧疆濂藉嚑涓浘鍍忔帶浠禤icture鐨勫睆骞曟樉绀轰綅缃紝鍒嗗埆璋冪敤鍑芥暟LoadPicture(鈥.bmp鏂囦欢鍚嶁)鍗冲彲銆傝绋嬪簭璁捐涔熼傜敤VB3.0銆乂B4.0銆
