Мне необходимо динамически создать TоolBar и добавить на него кнопки, не подключая mscomctrl.ocx на влкадке компонентов! (возникает вопрос зачем? Ответ: потому как динамически добавлять TreeView, ListView, TabStrip получилось только если как раз не подключая mscomctrl.ocx на влкадке компонентов, а если подключить то не будет работать вод код
- Код: Выделить всё
Option Explicit
Dim WithEvents ctlDynamic As VBControlExtender
Dim WithEvents ctlText As VB.TextBox
Dim WithEvents ctlCommand As VB.CommandButton
Private Sub ctlCommand_Click()
ctlText.Text = "You Clicked the Command button"
End Sub
Private Sub ctlDynamic_ObjectEvent(Info As EventInfo)
If Info.Name = "Click" Then
MsgBox ctlDynamic.object.SelectedItem.Text
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
Licenses.Add "MSComctlLib.ListViewCtrl" 'Ctrl
Set ctlDynamic = Controls.Add("MSComctlLib.ListViewCtrl", _
"myctl", Form1)
ctlDynamic.Move 1, 1, 2500, 3500
For i = 1 To 10
ctlDynamic.object.ListItems.Add , , "Item " & i
Next i
ctlDynamic.Visible = True
' add a textbox
Set ctlText = Controls.Add("VB.TextBox", "ctlText1", Form1)
ctlText.Move (ctlDynamic.Left + ctlDynamic.Width + 50), _
1, 2500, 100
ctlText.BackColor = vbYellow
ctlText.Visible = True
Set ctlCommand = Controls.Add("VB.CommandButton", _
"ctlCommand1", Form1)
ctlCommand.Move (ctlDynamic.Left + ctlDynamic.Width + 50), _
ctlText.Height + 50, 1500, 500
ctlCommand.Caption = "Click Me"
ctlCommand.Visible = True
End Sub
Ну или решить проблему добавление ListView, TreeView под другому тогда отпадет проблема динамически добавлять ToolBar!
