VB中控件数组如何使用 vb控件数组如何使用,请举例说明,谢谢,
\u5728VB\u4e2d\u4ec0\u4e48\u53eb\u505a\u63a7\u4ef6\u6570\u7ec4\uff1f\u63a7\u4ef6\u6570\u7ec4 7.5.1 \u63a7\u4ef6\u6570\u7ec4\u7684\u6982\u5ff5 \u63a7\u4ef6\u6570\u7ec4\u662f\u7531\u4e00\u7ec4\u76f8\u540c\u7c7b\u578b\u7684\u63a7\u4ef6\u7ec4\u6210\u3002\u5b83\u4eec\u5171\u7528\u4e00\u4e2a\u63a7\u4ef6\u540d\uff0c\u7edd\u5927\u90e8\u5206\u7684\u5c5e\u6027\u4e5f\u76f8\u540c\uff0c\u4f46\u6709\u4e00\u4e2a\u5c5e\u6027\u4e0d\u540c\uff0c\u5373Index\u5c5e\u6027\u7684\u503c\u4e0d\u540c\u3002\u5f53\u5efa\u7acb\u63a7\u4ef6\u6570\u7ec4\u65f6\uff0c\u7cfb\u7edf\u7ed9\u6bcf\u4e2a\u5143\u7d20\u8d4b\u4e00\u4e2a\u552f\u4e00\u7684\u7d22\u5f15\u53f7(Index)\uff0c\u901a\u8fc7\u5c5e\u6027\u7a97\u53e3\u7684Index\u5c5e\u6027\uff0c\u53ef\u4ee5\u77e5\u9053\u8be5\u63a7\u4ef6\u7684\u4e0b\u6807\u662f\u591a\u5c11\uff0c\u7b2c1\u4e2a\u5143\u7d20\u4e0b\u6807\u662f0\u3002\u4f8b\u5982\uff0c\u63a7\u4ef6\u6570\u7ec4LblTm(6)\u8868\u793a\u63a7\u4ef6\u6570\u7ec4\u540d\u4e3aLblTm\u7684\u7b2c7\u4e2a\u5143\u7d20\u3002 \u63a7\u4ef6\u6570\u7ec4\u6700\u5927\u7684\u7279\u70b9\u662f\uff1a\u63a7\u4ef6\u6570\u7ec4\u5171\u4eab\u540c\u6837\u7684\u4e8b\u4ef6\u8fc7\u7a0b\u3002\u6240\u4ee5\u9002\u7528\u4e8e\u82e5\u5e72\u4e2a\u63a7\u4ef6\u6267\u884c\u7684\u64cd\u4f5c\u76f8\u4f3c\u7684\u573a\u5408\uff0c\u4f8b\u5982\uff0c\u63a7\u4ef6\u6570\u7ec4cmdShuzi\u670910\u4e2a\u547d\u4ee4\u6309\u94ae\uff0c\u5219\u4e0d\u7ba1\u5355\u51fb\u54ea\u4e2a\u547d\u4ee4\u6309\u94ae\uff0c\u5c31\u4f1a\u8c03\u7528\u540c\u4e00\u4e2a\u5355\u51fb\u4e8b\u4ef6\u8fc7\u7a0b\u3002\u4e3a\u4e86\u533a\u5206\u662f\u63a7\u4ef6\u6570\u7ec4\u4e2d\u7684\u54ea\u4e2a\u5143\u7d20\u89e6\u53d1\u4e86\u4e8b\u4ef6\uff0c\u5728\u7a0b\u5e8f\u8fd0\u884c\u65f6\uff0c\u901a\u8fc7\u4f20\u9001\u7ed9\u8fc7\u7a0b\u7684\u7d22\u5f15\u503c\uff08\u5373\u4e0b\u6807\u503c\uff09\u6765\u786e\u5b9a\u3002 \u4e00\u4e2a\u63a7\u4ef6\u6570\u7ec4\u81f3\u5c11\u5305\u542b\u4e00\u4e2a\u5143\u7d20\uff0c\u6700\u591a\u53ef\u8fbe32768\u4e2a\u3002 7.5.2 \u63a7\u4ef6\u6570\u7ec4\u7684\u5efa\u7acb \u63a7\u4ef6\u6570\u7ec4\u7684\u5efa\u7acb\u6709\u4e24\u79cd\u65b9\u6cd5\uff1a 1.\u5728\u8bbe\u8ba1\u65f6\u5efa\u7acb 2.\u8fd0\u884c\u65f6\u6dfb\u52a0\u63a7\u4ef6\u6570\u7ec4 1.\u5728\u8bbe\u8ba1\u65f6\u5efa\u7acb \u5efa\u7acb\u7684\u6b65\u9aa4\u5982\u4e0b\uff1a \u2460 \u7a97\u4f53\u4e0a\u753b\u51fa\u67d0\u63a7\u4ef6\uff0c\u53ef\u8fdb\u884c\u63a7\u4ef6\u540d\u7684\u5c5e\u6027\u8bbe\u7f6e\uff0c\u8fd9\u662f\u5efa\u7acb\u7684\u7b2c\u4e00\u4e2a\u5143\u7d20\u3002 \u2461 \u9009\u4e2d\u8be5\u63a7\u4ef6\uff0c\u8fdb\u884c\u201c\u590d\u5236\u201d\u548c\u201c\u7c98\u8d34\u201d\u64cd\u4f5c\uff0c\u7cfb\u7edf\u4f1a\u63d0\u793a\uff08\u5047\u8bbe\u5148\u753b\u4e86\u4e00\u4e2a\u2018Command1\u2019\u547d\u4ee4\u6309\u94ae\uff09\uff1a \u201c\u5df2\u7ecf\u6709\u4e00\u4e2a\u63a7\u4ef6\u4e3a\u2018Command1\u2019\u3002\u521b\u5efa\u4e00\u4e2a\u63a7\u4ef6\u6570\u7ec4\u5417\uff1f\u201d \u5355\u51fbYes\u6309\u94ae\u540e\uff0c\u5c31\u5efa\u7acb\u4e86\u4e00\u4e2a\u63a7\u4ef6\u6570\u7ec4\u5143\u7d20\uff0c\u8fdb\u884c\u82e5\u5e72\u6b21\u201c\u7c98\u8d34\u201d\u64cd\u4f5c\uff0c\u5c31\u5efa\u7acb\u4e86\u6240\u9700\u4e2a\u6570\u7684\u63a7\u4ef6\u6570\u7ec4\u5143\u7d20\u3002 \u2462 \u8fdb\u884c\u4e8b\u4ef6\u8fc7\u7a0b\u7684\u7f16\u7a0b\u3002 2.\u8fd0\u884c\u65f6\u6dfb\u52a0\u63a7\u4ef6\u6570\u7ec4 \u5efa\u7acb\u7684\u6b65\u9aa4\u5982\u4e0b\uff1a \u2460 \u5148\u5728\u7a97\u4f53\u4e0a\u753b\u51fa\u67d0\u63a7\u4ef6\uff0c\u8bbe\u7f6e\u8be5\u63a7\u4ef6\u7684index\u503c\u4e3a0\uff0c\u8868\u793a\u8be5\u63a7\u4ef6\u4e3a\u6570\u7ec4\uff1b\u4e5f \u53ef\u8fdb\u884c\u63a7\u4ef6\u540d\u7684\u5c5e\u6027\u8bbe\u7f6e\uff0c\u8fd9\u662f\u5efa\u7acb\u7684\u7b2c\u4e00\u4e2a\u5143\u7d20\u3002 \u2461 \u5728\u7f16\u7a0b\u65f6\u901a\u8fc7Load\u65b9\u6cd5\u6dfb\u52a0\u5176\u4f59\u7684\u82e5\u5e72\u4e2a\u5143\u7d20\uff0c\u4e5f\u53ef\u4ee5\u901a\u8fc7Unload\u65b9\u6cd5\u5220\u9664 \u67d0\u4e2a\u6dfb\u52a0\u7684\u5143\u7d20\u3002 \u2462\u6bcf\u4e2a\u65b0\u6dfb\u52a0\u7684\u63a7\u4ef6\u6570\u7ec4\u901a\u8fc7\u8bbe\u7f6eleft\u548ctop\u5c5e\u6027\uff0c\u786e\u5b9a\u5176\u5728\u7a97\u4f53\u7684\u4f4d\u7f6e\uff0c\u5e76\u5c06Visible\u5c5e\u6027\u8bbe\u7f6e\u4e3aTrue. \u6765\u539fhttp://www.szerc.com/traintest/contentview.asp?contentid=4230
\u5728\u7a97\u4f53\u4e0a\u6dfb\u52a0\u4e00\u4e2aCommand\u63a7\u4ef6\uff0c\u5176\u5c5e\u6027Index\u8bbe\u4e3a0\uff0c\u8be5\u63a7\u4ef6\u5373\u4e3a\u5b54\u5bb6\u6570\u7ec4\u3002
Private Sub Command1_Click(Index As Integer)
MsgBox Command1(Index).Caption
Select Case Index
Case 0
a = a + 344
Case 1
a = a + 566
Case 2
a = a * 23
End Select
End Sub
Private Sub Form_Load()
For i = 1 To 4
Load Command1(i)
Command1(i).Top = Command1(i - 1).Top + 600
Command1(i).Visible = True
Command1(i).Caption = "Command" & (i + 1)
Next
End Sub
pivate|public|dim 数组名([上界] to 下界[,[上界] to 下界]……) as 类型说明词
方括号里的是可省略。 例:
Dim a(1 to 5) as string这个是声明一个有5个元素的1维数组,类型为字符串型。其元素有:a(1),a(2)a(3),a(4),a(5)这五个元素。
二维数组:
dim a(1 to 3 , 1 to 2) as string这个是声明一个有6个元素的2维数组,类型为字符串型。其元素有:a(1,1),a(1,2),a(2,1),a(2,2),a(3,1),a(3,2)这6个元素。
数组控件中属性都是一样的,就“索引”不同。所以控件数组一般都会通过循环语句进行控制。 电脑的屏保“变幻线”就使用了Line与Laber控件数组
绛旓細鍦╒B6涓湁鎺т欢鏁扮粍锛屽湪VB.Net涓ソ鍍忔病鏈変簡銆傛墍璋撴帶浠舵暟缁勶紝鏄寚鍚屼竴绫绘帶浠讹紝鍚嶇О鐩稿悓锛屾帶浠鐨Index灞炴т负鎺т欢鏁扮粍涓嬫爣锛屾帶浠剁殑鏂规硶涓甫鏈塈ndex鍙傛暟锛岀敤浠ュ尯鍒暟缁勪腑鏄摢涓帶浠惰Е鍙戠殑浜嬩欢銆傚缓绔嬫帶浠舵暟缁勬渶绠娲佺殑鏂瑰紡灏辨槸鍦ㄧ晫闈笂澶嶅埗绮樿创鎺т欢锛岄偅鏃剁郴缁熷氨浼氳闂槸鍚﹀缓绔嬫帶浠舵暟缁勩備緥濡傦細鎸夐挳Command鐨刢lick浜嬩欢锛...
绛旓細铏界劧缂虹渷鐘舵佷笅 Visual Basic 鍒嗛厤涓嬩竴涓彲鐢ㄧ殑鏁存暟浣滀负鎺т欢鏁扮粍涓柊鐨勬帶浠鐨 Index 鐨勫硷紝浣嗕篃鍙互鏀瑰彉璇ュ垎閰嶅煎苟璺宠繃涓浜涙暟銆備篃鍙互涓鏁扮粍涓鐨勭涓涓帶浠剁殑 Index 璁句竴涓潪 0 鐨勬暣鏁般傚鏋滃湪浠g爜涓紩鐢ㄤ竴涓 Index 鐨勫艰屽湪鎺т欢鏁扮粍涓病鏈夋墍鏍囪瘑鐨勬帶浠讹紝閭d箞灏嗕骇鐢熶竴涓猇isual Basic 杩愯鏃堕敊璇侷n...
绛旓細vb.net鍜寁b6.0涓嶅悓锛屾棤娉曠洿鎺浣跨敤鎺т欢鏁扮粍銆備笉杩囧彲浠ラ氳繃鍏朵粬鏂瑰紡鍙橀氫竴涓嬨傛瘮濡傜幇鍦ㄦ湁10涓猯abel锛岃灏嗚繖10涓猯abel鐨text灞炴х粺涓璁剧疆涓衡滆繖鏄X涓爣绛锯濓紙X涓1-10锛夈1.寤虹珛10涓猯abel锛屽悕绉板垎鍒负label1銆乴abel2銆乴abel3銆傘俵abel10 2.浠g爜锛欶or i = 1 To 10 Me.FindControl("label" & i)...
绛旓細鎺т欢鏁扮粍鍦ㄨ蒋浠剁紪绋嬩腑鐢ㄩ斿緢骞匡紝灏ゅ叾鏄В鍐冲涓浉鍚屾垨鐩镐技鐨勬帶浠鍜屼簨浠舵椂 鐢ㄦ硶鍏跺疄涔熷緢绠鍗曪紝濡備笅锛歅rivate Sub option1_Click(Index As Integer)select case index case 0'濡傛灉鍗曞嚮鐨勬槸option1锛0锛夋墍鍝嶅簲鐨勪簨浠 'case 1'濡傛灉鍗曞嚮鐨勬槸option1锛1锛夋墍鍝嶅簲鐨勪簨浠 'end select end sub ...
绛旓細VB.net涓病鏈鎺т欢鏁扮粍鐨勮娉曘傛浛浠f柟娉曪細路鍒涘缓涓涓帶浠剁殑绫诲瀷鏁扮粍锛 Button[]锛屽皢鎵鏈夌殑button鎺т欢鍒涘缓濂藉悗瀛樿繘鍘伙紝鍙互閬嶅巻瀹冿紱路鎴栧皢鎵鏈夎閬嶅巻鐨勬帶浠鏀惧湪涓涓鍣ㄥPanel涓紝浠ュ悗閬嶅巻杩欎釜瀹瑰櫒鐨勫瓙鎺т欢鍗冲彲銆--- 浣犵殑鎯呭喌锛屾帹鑽愭斁鍦ㄥ鍣ㄤ腑銆傛瘮濡備笅闈㈠氨鏄竴涓亶鍘嗗鍣ㄧ殑鎺т欢锛岀劧鍚庢壘鍑烘墍鏈夌殑鏂囨湰妗嗗苟...
绛旓細涓や釜闂涓璧峰洖绛斻備綘鍏堟寜姝e父鏂规硶娣诲姞涓涓狢ommand1,涔熸寜骞虫椂鐨勬柟寮忥紝璁剧疆浣犻渶瑕佺殑鎵鏈夊睘鎬э紝杩欐椂锛屽啀閫夊畾鎸夐挳锛屽鍒讹紝绮樿创锛岃闂綘鏄惁娣诲姞鎺т欢鏁扮粍锛岀偣鏄紝浜庢槸锛屽拰浣犲垰鎵嶇殑鎸夐挳灞炴у畬鍏ㄤ竴鏍鐨勬帶浠舵暟缁灏变骇鐢熶簡銆備笉鍋滅殑绮樿创锛屽氨浼氭湁涓澶х粍鎺т欢鏁扮粍浜嗐
绛旓細瑕浣跨敤鎺т欢鏁扮粍锛岃璁℃椂蹇呴』寤虹珛涓涓帶浠讹紝濡 璁捐鏃跺缓绔嬩竴涓枃鏈锛屽悕绉颁负 Text1 锛岃缃 Index 灞炴э紙 0 鍒 32767 涔嬮棿鐨勪换鎰忔暣鏁帮級鎺т欢鏁扮粍鐨涓嬫爣鍙互涓嶈繛缁紝鐢ㄥ埌鍝釜灏辨坊鍔犲摢涓 濡傛灉杩愯鏃跺彧闇瑕佸缓绔嬩竴涓 Text1(10) ,鐢ㄤ唬鐮 Load Text1(10)鏈濂藉啀璁剧疆 Visible 灞炴э紙榛樿涓 False 锛夊拰浣嶇疆 ...
绛旓細鎴戞墠鐢鏈绗ㄧ殑鍔炴硶锛屽彲浠ヤ綔涓轰簨浠跺垽鏂殑鏉′欢 寤虹珛涓涓悕涓"Label1"鐨勬暟缁 鏁堟灉濡傚浘 浠g爜濡備笅锛歅rivate Sub Label1_Click(Index As Integer)If Index = 0 Then For i = 0 To 1 If i = 0 Then Label1(i).ForeColor = vbRed Else Label1(i).ForeColor = vbBlack End ...
绛旓細浣跨敤for each ... next璇彞锛屼緥濡傦細鍦ㄤ竴涓獥浣撳缓绔嬩竴涓猅ext1()鏂囨湰妗鏁扮粍锛岃缃竴浜涗笉杩炵画鐨Index锛屾斁缃竴涓猅ext2鏂囨湰妗嗭紙璁剧疆澶氳锛屾粴鍔ㄦ潯锛夛紝澶嶅埗涓涓嬩唬鐮侊紝杩愯鍚庯紝鎵鏈塗ext1鐨勬枃鏈唴瀹瑰氨浼氬叏閮ㄥ鍒跺埌Text2涓 Option Explicit Dim i As Object Private Sub Form_Load()For Each i In Text1 Te...
绛旓細鍦ㄥ悇涓嚱鏁扮殑澶栭儴瀹氫箟鐨勬暟缁锛屾槸鍏ㄥ眬鍙橀噺锛屽彲浠ュ湪澶氫釜鎸夐挳鎺т欢閲鍙互閲嶅鍒╃敤鐨勩備緥濡傦細Dim a(20) As Integer Private Sub Command1_Click()For i = 1 To 20 a(i) = 10 * i Next i End Sub Private Sub Command2_Click()For i = 1 To 20 Print a(i);If i Mod 10 = 0 Then Print...