馃柋锔忓垰鎺ヨЕVB鐨勬椂鍊欙紝浣犳槸涓嶆槸瑙夊緱绐椾綋涓婇偅浜涙寜閽€佹枃鏈灏卞儚涓€鍫嗛檶鐢熺殑鏈哄櫒闆朵欢锛熷埆鎱岋紝鍜变滑浠婂ぉ灏辨妸杩欎簺"闆朵欢"鐨勪娇鐢ㄨ鏄庝功鎺板紑浜嗘弶纰庝簡璁层€備綘淇′笉淇★紵鐪嬪畬杩欑瘒锛屼綘涔熻兘鍍忔惌绉湪涓€鏍风帺杞琕B鎺т欢锛?/p>

涓€銆佸熀纭€灞炴€ц缃細缁欐帶浠剁┛琛ｆ湇

鈥?strong>鈥嬮棶棰橈細灞炴€ф€庝箞璁剧疆鎵嶄笉浼氳鐣岄潰鍍忔墦缈荤殑璋冭壊鐩橈紵鈥?/strong>鈥?br/> 鍜变滑鍏堣浣忎笁涓渶甯哥敤鐨勫睘鎬э細

1. 鈥?strong>鈥婲ame灞炴€р€?/strong>鈥嬶細灏卞儚缁欒嚜瀹跺瀛愯捣鍚嶅瓧锛屾瘡涓帶浠堕兘瑕佹湁涓敮涓€鏍囪瘑銆傛瘮濡傛妸鎸夐挳鍛藉悕鎴?btnOK"锛屼竴鐪嬪氨鐭ラ亾鏄‘璁ゆ寜閽€?/li>
2. 鈥?strong>鈥婥aption灞炴€р€?/strong>鈥嬶細鐩稿綋浜庡簵闂ㄥ彛鐨勬嫑鐗屻€傛寜閽笂鏄剧ず"鎻愪氦"杩樻槸"鍙栨秷"锛屽叏鐪嬭繖涓缃€?/li>
3. 鈥?strong>鈥婤ackColor灞炴€р€?/strong>鈥嬶細鑳屾櫙鑹茶缃鍏嬪埗锛佸崈涓囧埆鎼炴垚绾㈤厤缁匡紝閫変釜鏌斿拰鐨?F0F0F0鐏扮櫧璋冩渶淇濋櫓銆?/li>

浜屻€佸父鐢ㄦ柟娉曞ぇ鍏細璁╂帶浠跺姩璧锋潵

鈥?strong>鈥嬮棶棰橈細濡備綍璁╂帶浠跺儚鏅鸿兘瀹跺眳涓€鏍峰惉璇濓紵鈥?/strong>鈥?br/> 璇曡瘯杩欏嚑涓?榄旀硶鍜掕"锛?/p>

1. 鈥?strong>鈥婥ls鏂规硶鈥?/strong>鈥嬶細灏卞儚榛戞澘鎿︼紝鐬棿娓呯┖绐椾綋涓婄殑鏂囧瓧鍜屽浘褰€傛瘮濡傚仛瀹屾暟瀛﹂灞曠ず绛旀鍓嶏紝鍏堟潵鍙?code>Me.Cls銆?/li>
2. 鈥?strong>鈥婱ove鏂规硶鈥?/strong>鈥嬶細璁╂帶浠惰烦琛楄垶锛?code>Form1.Move 100,100,200,200杩欒浠ｇ爜鑳借绐椾綋韫﹀埌灞忓箷(100,100)浣嶇疆锛屽彉鎴?00x200澶у皬銆?/li>
3. 鈥?strong>鈥婬ide/Show鏂规硶鈥?/strong>鈥嬶細鐜╂崏杩疯棌蹇呭銆傜櫥褰曟垚鍔熸椂Form2.Show鏄剧ず涓荤晫闈紝鍚屾椂Me.Hide钘忚捣鐧诲綍绐楀彛銆?/li>

vb澶嶅埗
' 娓呭睆+绉诲姩+闅愯棌涓夎繛鍑?/span>
Private Sub btnClear_Click()
    Me.Cls
    txtInput.Move 50, 50
    lblTips.Hide
End Sub

涓夈€佷簨浠跺鐞嗭細鐐瑰嚮鑳屽悗鐨勬晠浜?/h3>

鈥?strong>鈥嬮棶棰橈細鐐逛笅鎸夐挳鐨勯偅0.1绉掑彂鐢熶簡浠€涔堬紵鈥?/strong>鈥?br/> 杩欏氨寰楄璇碫B鐨勪簨浠堕┍鍔ㄦ満鍒朵簡锛?/p>

1. 鈥?strong>鈥婥lick浜嬩欢鈥?/strong>鈥嬶細鏈€甯哥敤鐨?寮€鍏?銆傚弻鍑绘寜閽嚜鍔ㄧ敓鎴愮殑Private Sub btnOK_Click()灏辨槸鐐瑰嚮鍝嶅簲鍏ュ彛銆?/li>
2. 鈥?strong>鈥婰oad浜嬩欢鈥?/strong>鈥嬶細绐椾綋鍔犺浇鏃剁殑鑷姩鎿嶄綔銆傚湪Form_Load閲屽垵濮嬪寲鏁版嵁锛屽氨鍍忓紑搴楀墠鎵撴壂鍗敓銆?/li>
3. 鈥?strong>鈥婱ouseMove浜嬩欢鈥?/strong>鈥嬶細榧犳爣鍒掕繃鏃剁殑缁嗚吇鍙嶉銆傚仛鍥剧墖鏌ョ湅鍣ㄦ椂锛岀敤杩欎釜浜嬩欢瀹炵幇鏀惧ぇ闀滄晥鏋滆秴鍚堥€傘€?/li>

鈥?strong>鈥嬩簨浠惰Е鍙戦『搴忓皬鍓у満鈥?/strong>鈥嬶細

1. 榧犳爣鎸変笅 鈫?瑙﹀彂MouseDown
2. 榧犳爣鏉惧紑 鈫?瑙﹀彂MouseUp
3. 鏈€鍚庢墠杞埌Click浜嬩欢鐧诲満

---

鍥涖€侀珮鎵嬬鎴胯彍锛氭帶浠惰仈鍔ㄦ妧宸?/h3>

鈥?strong>鈥嬮棶棰橈細鎬庝箞璁╀笅鎷夋鍜屽垪琛ㄦ璺冲弻浜鸿垶锛熲€?/strong>鈥?br/> 璇曡瘯杩欎釜缁勫悎鎶€锛?/p>

1. 鈥?strong>鈥嬫帶浠舵暟缁勨€?/strong>鈥嬶細鎶婄浉浼煎姛鑳界殑鎸夐挳鎵撳寘澶勭悊锛屼唬鐮侀噺鐩存帴鍑忓崐锛?/li>
2. 鈥?strong>鈥嬪姩鎬佸姞杞解€?/strong>鈥嬶細杩愯鏃剁敤Controls.Add鍒涘缓鏂版帶浠讹紝姣旈潤鎬佹憜鏀剧伒娲诲崄鍊嶃€?/li>
3. 鈥?strong>鈥嬫暟鎹粦瀹氣€?/strong>鈥嬶細鎶婃暟鎹簱瀛楁鐩存帴鍏宠仈鍒版枃鏈锛岀渷鍘绘墜鍔ㄨ祴鍊奸夯鐑︺€?/li>

vb澶嶅埗
' 鍔ㄦ€佸垱寤烘枃鏈绀轰緥
Dim txtNew As New TextBox
txtNew.Name = "txtDynamic"
txtNew.Text = "鎴戞槸鏂版潵鐨?
Me.Controls.Add(txtNew)

---

鐙瑙佽В锛氫粠鑿滈笩鍒伴珮鎵嬬殑蹇呯粡涔嬭矾

鍦ㄦ暀杩?00+瀛﹀憳鍚庯紝鎴戝彂鐜颁笁涓垚闀挎嵎寰勶細

1. 鈥?strong>鈥嬪睘鎬ц缃己杩棁鈥?/strong>鈥嬶細鍧氭寔鐢?code>btn鍓嶇紑琛ㄧず鎸夐挳锛?code>txt鍓嶇紑琛ㄧず鏂囨湰妗嗭紝涓変釜鏈堝悗鐪嬩唬鐮佹竻鏅板緱鍍忚灏忚
2. 鈥?strong>鈥嬩簨浠舵棩蹇楁硶鈥?/strong>鈥嬶細鍦ㄦ瘡涓簨浠跺鐞嗗紑澶村姞Debug.Print "浜嬩欢瑙﹀彂锛? & Now锛岃繍琛屾椂灏卞鍚屾湁浜嗛€忚鐪?/li>
3. 鈥?strong>鈥嬫帶浠跺垎韬湳鈥?/strong>鈥嬶細鎶婂父鐢ㄥ姛鑳藉皝瑁呮垚鑷畾涔夋帶浠跺簱锛屾柊椤圭洰寮€鍙戦€熷害鎻愬崌70%

鏈夊鍛樻浘鐢∕ove鏂规硶+Timer鎺т欢鍋氬嚭浜嗗脊鐞冩父鎴忥紝杩欒鏄嶸B鐨勬綔鍔涜繙瓒呬綘鐨勬兂璞★紒涓嬫褰撲綘瀵圭潃灞炴€х獥鍙ｅ彂鍛嗘椂锛屼笉濡ㄦ兂鎯筹細杩欎釜璁剧疆濡傛灉璋冩垚鏋佺鍊硷紝浼氱鎾炲嚭浠€涔堟湁瓒ｆ晥鏋滐紵