VB動(dòng)態(tài)添加控件的簡(jiǎn)單方法

1、學(xué)習(xí)資料收集于網(wǎng)絡(luò)，僅供參考VB動(dòng)態(tài)添加控件并對(duì)其進(jìn)行拖放操作改變位置用 Controls.Add 添加控件Dim WithEvents mypic As PictureBoxPrivate Sub Command1_Click()Set mypic = Controls.Add("VB.PictureBox", "mypic")mypic.Left = 50mypic.Top = 50mypic.Visible = TrueEnd Sub至于拖放操作， 在程序中設(shè)置好 mypic 控件的有關(guān)屬性后， 處理 mypic 的有關(guān)事件即可注意：如果是控件數(shù)組

2、的話(huà)， 建議采用： load控件數(shù)組名 ( 索引 ) 的方法添加控件' 可先手工畫(huà)一個(gè)控件， Visable 設(shè)置為 False ，Index 設(shè)置為 0' 若需要多個(gè)就用 load object(index) 來(lái)加載，并把它們的 visable 設(shè)置為 true ；不需要多個(gè)就真接把原有的那個(gè)的 visable 設(shè)成顯示就行了。Private Declare Function ReleaseCapture Lib "user32" () As LongPrivate Declare Function SendMessage Lib "user32

3、" Alias "SendMessageA" ( _ByVal hwnd As Long, ByVal wMsg As Long, _ByVal wParam As Long, lParam As Any) As LongPrivateSub Command1_MouseDown(IndexAs Integer,ButtonAs Integer,_Shift As Integer, X As Single, Y As Single)If Button = 1 ThenReleaseCapture'移動(dòng)控件SendMessage Command1(Index

4、).hwnd, &HA1, 2, 0&學(xué)習(xí)資料學(xué)習(xí)資料收集于網(wǎng)絡(luò)，僅供參考End IfEnd SubPrivate Sub Form_Click()On Error GoTo endsubFor i = 1 To 5Load Command1(i)'生成控件Command1(i).Top = Command1(i - 1).TopCommand1(i).Left = Command1(i - 1).Left + Command1(i - 1).WidthCommand1(i).Visible = TrueNextExit SubEnd Sub例如：添加一個(gè)commandbuttonPrivate Sub Form_Load().Visible = True.Width = 500學(xué)習(xí)資料學(xué)習(xí)資料收集于網(wǎng)絡(luò)