VB控件数组怎么定义? vb如何定义控件数组?
VB\u600e\u4e48\u7528\u4ee3\u7801\u521b\u5efa\u63a7\u4ef6\u6570\u7ec4\uff1f\u5148\u5b9a\u4e49\u4e00\u4e2a\u63a7\u4ef6(Option1)\uff0c\u7136\u540e\u4fee\u6539index\u503c\u4e3a0 ,\u5c31\u521b\u5efa\u4e86\u63a7\u4ef6\u6570\u7ec4\uff0c\u8bbe\u7f6e\u4f60\u8981\u521b\u5efa\u63a7\u4ef6\u6570\u7ec4\u7684\u5176\u5b83\u5c5e\u6027.
Private Sub Form_Load()
Dim i%
For i = 1 To 3
Load Option1(i) ' \u8fd9\u53e5\u662f\u5173\u952e,,,,,
Option1(i).Top = Option1(0).Top
Option1(i).Left = Option1(i - 1).Left + Option1(i - 1).Width + 200
Option1(i).Visible = True
Next
Option1(0).Caption = "10"
Option1(1).Caption = "15"
Option1(2).Caption = "20"
Option1(3).Caption = "30"
End Sub
Private Sub Option1_Click(Index As Integer)
Text1.FontSize = Val(Option1(Index).Caption)
End Sub
\u4f46\u662f\u4e5f\u5f97\u5148\u753b\u7b2c\u4e00\u4e2a\u63a7\u4ef6\u554a\u3002\u753b\u4e00\u4e2aOption1\uff0c\u628a\u4ed6\u7684Index\u8bbe\u7f6e\u4e3a0.\u518d\u5efa\u4e00\u4e2aCommand1\u7528\u4e8e\u6dfb\u52a0\u5176\u4ed6\u7684.
\u4ee3\u7801\u5982\u4e0b\u3002
\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d
Private Sub Command1_Click()
Load Option1(Option1.UBound + 1)
Option1(Option1.UBound).Visible = True
Option1(Option1.UBound).Move Option1(0).Left, Option1(Option1.UBound - 1).Top + Option1(0).Height
End Sub
Private Sub Check1_Click(Index As Integer)
If Check1(Index).Value = 0 Then
Me.BackColor = &H8000000F
ElseIf Check1(Index).Value = 1 Then
Me.BackColor = &H8000000D
End If
End Sub
你再试试
第一张画的第一个控件。画一个选项1,该指数设置为0。 COMMAND1用来添加额外的代码如下所示。
建设。
==========
私人小组Command1_Click()
负载选项1(Option1.UBound + 1)
选项1(Option1.UBound的)。可见= TRUE
选项1(Option1.UBound的)。移动选项1(0)。左,选项(Option1.UBound的 - 1)。上衣+选项1(0)。身高
END SUB
控件数组是由一组相同类型的控件组成。它们共用一个控件名,绝大部分的属性也相同,但有一个属性不同,即Index属性的值不同。当建立控件数组时,系统给每个元素赋一个唯一的索引号(Index),通过属性窗口的Index属性,可以知道该控件的下标是多少,第1个元素下标是0。例如,控件数组LblTm(6)表示控件数组名为LblTm的第7个元素。
控件数组最大的特点是:控件数组共享同样的事件过程。所以适用于若干个控件执行的操作相似的场合,例如,控件数组cmdShuzi有10个命令按钮,则不管单击哪个命令按钮,就会调用同一个单击事件过程。为了区分是控件数组中的哪个元素触发了事件,在程序运行时,通过传送给过程的索引值(即下标值)来确定。
一个控件数组至少包含一个元素,最多可达32768个。
绛旓細鍦╒isual Basic锛圴B锛変腑锛鎺т欢鏁扮粍鏄竴缁勫叿鏈夌浉鍚屽睘鎬у拰浜嬩欢澶勭悊绋嬪簭鐨勬帶浠剁殑闆嗗悎銆傚畠浠氳繃鍏变韩鐩稿悓鐨勫悕绉板拰绱㈠紩鍊兼潵绠$悊锛屽厑璁稿紑鍙戣呬互绫讳技鏁扮粍鐨勬柟寮忔搷浣滆繖浜涙帶浠躲傛帶浠舵暟缁勫湪VB涓壒鍒湁鐢紝鍥犱负瀹冨厑璁稿紑鍙戣呬互鏇寸畝娲併佹洿楂樻晥鐨勬柟寮忓鐞嗗涓浉浼肩殑鎺т欢銆傚湪VB涓垱寤烘帶浠舵暟缁勬椂锛屽紑鍙戣呴鍏堥渶瑕佸湪绐椾綋涓婂垱寤...
绛旓細鎺т欢鏁扮粍 7.5.1 鎺т欢鏁扮粍鐨勬蹇 鎺т欢鏁扮粍鏄敱涓缁勭浉鍚岀被鍨嬬殑鎺т欢缁勬垚銆傚畠浠叡鐢ㄤ竴涓帶浠跺悕锛岀粷澶ч儴鍒嗙殑灞炴т篃鐩稿悓锛屼絾鏈変竴涓睘鎬т笉鍚岋紝鍗矷ndex灞炴х殑鍊间笉鍚屻傚綋寤虹珛鎺т欢鏁扮粍鏃讹紝绯荤粺缁欐瘡涓厓绱犺祴涓涓敮涓鐨勭储寮曞彿(Index)锛岄氳繃灞炴х獥鍙g殑Index灞炴э紝鍙互鐭ラ亾璇ユ帶浠剁殑涓嬫爣鏄灏戯紝绗1涓厓绱犱笅鏍囨槸0銆
绛旓細鏄繖涔堝畾涔夌殑锛氭暟缁勪腑鐨勭涓涓厓绱犵殑涓嬫爣绉颁负涓嬬晫锛屾渶鍚庝竴涓厓绱犵殑涓嬫爣绉颁负涓婄晫锛屽叾浣欑殑鍏冪礌杩炵画鍦板垎甯冨湪涓婁笅鐣屼箣闂达紝涓旀暟缁勫湪鍐呭瓨涓篃鏄敤杩炵画鐨勫尯鍩熸潵瀛樺偍鐨勶紝鎵浠ユ暟缁勬瘡缁寸殑闀垮害涓嶈兘瓒呰繃Long鏁版嵁绫诲瀷鐨勬渶澶у硷紝鍗264鈥1=263銆傛妸VB锛嶯ET鏁扮粍褰撲綔涓涓璞℃潵澶勭悊锛屽氨鎰忓懗鐫鏁扮粍绫诲瀷鏄崟涓紩鐢ㄧ被鍨嬶紝鏁扮粍...
绛旓細鍏堝畾涔変竴涓帶浠(Option1)锛岀劧鍚庝慨鏀筰ndex鍊间负0 ,灏卞垱寤轰簡鎺т欢鏁扮粍锛岃缃綘瑕佸垱寤烘帶浠舵暟缁勭殑鍏跺畠灞炴.\x0d\x0aPrivate Sub Form_Load()\x0d\x0a Dim i%\x0d\x0a For i = 1 To 3\x0d\x0a Load Option1(i) ' 杩欏彞鏄叧閿,,,\x0d\x0a Option1(i).Top = Option...
绛旓細鍦ㄧ獥浣撶┖鐧戒綅缃紝鍗曞嚮榧犳爣鍙抽敭閫夋嫨鈥滅矘璐村懡浠も濄傚脊鍑衡淢icrosoft Visual Basic鈥濆璇濇锛屾鏃惰闂綘鏄惁鍒涘缓涓涓鎺т欢鏁扮粍锛岄夋嫨鈥滄槸鈥濊繘琛屽垱寤猴紝骞跺皢鏂板缓鐨勫懡浠ゆ寜閽嫋鍒板悎閫傜殑浣嶇疆銆傛寜杩欐牱鐨勬柟娉曪紝鍦ㄥ鍒躲佺矘璐达紝鍒涘缓涓や釜鍛戒护鎸夐挳锛屾牴鎹垱寤虹殑鍏堝悗锛屽叾Index灞炴т緷娆℃槸0銆1銆2銆3.灏嗗畠浠殑caption灞炴у垎鍒敼...
绛旓細浣犵殑杩囩▼鍚嶇О涓嶆槸鏁扮粍鎺т欢鐨勮繃绋嬶紝浣犳柊寤烘帶浠讹紝澶嶅埗榛忚创灏辫兘寮瑰嚭鏄笉鏄寤虹珛鎺т欢鏁扮粍鐨勬彁绀猴紝杩欏氨鑳藉缓绔嬫帶浠舵暟缁勶紝鍙屽嚮鎺т欢寰楀埌涓嬮潰鐨勮繃绋嬪悕锛歅rivate Sub Check1_Click(Index As Integer)If Check1(Index).Value = 0 Then Me.BackColor = &H8000000F ElseIf Check1(Index).Value = 1 Then Me....
绛旓細1銆佹墦寮鍓嶉潰鏉匡紝鍦ㄦ帶鍒舵澘涓夋嫨鏁扮粍鐭╅樀搴撲腑鐨勬暟缁勬斁鍒板墠闈㈡澘涓娿2銆佹墦寮鍚庨潰鏉匡紝鎵惧埌瀵瑰簲鐨勬暟缁勩傜劧鍚庡彸閿彍鍗曚腑鐐瑰嚮灞炴с3銆侀粯璁ょ殑鏁扮粍鐨勫睘鎬т负1缁寸殑锛屾垜浠皢鍏舵敼涓2銆4銆佸啀娆″洖鍒板墠闈㈡澘锛屽湪鏁板煎簱涓紝灏嗘暟鍊兼彃鍏鎺т欢鎷栧叆浜岀淮鏁扮粍涓殑鐏拌壊鍖哄煙銆5銆佹鏃跺墠闈㈡澘涓紝鏁扮粍鐨勫舰鐘跺彂鐢熶簡鍙樺寲銆6銆佹鏃剁偣...
绛旓細渚嬪浣犵紪绋嬩腑鎵鐢ㄥ埌鐨勬寜閽紝鏂囨湰妗嗙瓑绛夛紝杩欑被涓滆タ鏄帶浠讹紝鐢ㄤ粬浠墍缁勬垚鐨勬暟缁勫氨鏄鎺т欢鏁扮粍锛屾帶浠舵暟缁勭殑鐢ㄩ斿緢澶氾紝鍙互鏂逛究浣犵殑缂栫▼锛屽苟涓斿彲浠ラ潪甯告柟渚跨殑瀹屾垚涓浜涗竴鑸帶浠舵墍涓嶈兘瀹屾垚鐨勫姛鑳姐傚叿浣撳垱寤烘柟娉曪細浣犲彲浠ョ洿鎺ュ鍒讹紝绮樿创鎺т欢锛屾垨鑰呮槸鍦ㄥ睘鎬х獥鍙d腑灏哊涓帶浠剁殑鍚嶅瓧鏀规垚涓涓悕瀛楋紙涓汉鎺ㄨ崘鍓嶈呫傦級...
绛旓細鍦╒B6涓湁鎺т欢鏁扮粍锛屽湪VB.Net涓ソ鍍忔病鏈変簡銆傛墍璋撴帶浠舵暟缁勶紝鏄寚鍚屼竴绫绘帶浠讹紝鍚嶇О鐩稿悓锛屾帶浠剁殑Index灞炴т负鎺т欢鏁扮粍涓嬫爣锛屾帶浠剁殑鏂规硶涓甫鏈塈ndex鍙傛暟锛岀敤浠ュ尯鍒暟缁勪腑鏄摢涓帶浠惰Е鍙戠殑浜嬩欢銆傚缓绔嬫帶浠舵暟缁勬渶绠娲佺殑鏂瑰紡灏辨槸鍦ㄧ晫闈笂澶嶅埗绮樿创鎺т欢锛岄偅鏃剁郴缁熷氨浼氳闂槸鍚﹀缓绔嬫帶浠舵暟缁勩備緥濡傦細鎸夐挳Command鐨刢lick浜嬩欢锛...
绛旓細1绉嶆槸鐩存帴娣诲姞 '涓嬮潰娣诲姞浜嗕竴涓猺ichtext myfrom.Controls.Add("RichText.RichTextctrl.1", "text1", myform)鈥 娣诲姞textbox myfrom.Controls.Add("vb.TextBox", "text1", myform)2 涓绉嶆槸鎺т欢鏁扮粍鐢熸垚 棣栧厛绐楀彛涓婃斁涓涓帶浠剁储寮曞畾浣0锛屾瘮濡傚厛鏀剧疆涓涓猼extbox1(0)鐢熸垚浠g爜 load textbox1(1...