Как программно создать контрол UserControl? - VB

Формулировка задачи:

                    Листинг программы
                
Dim Path as string, I as object
Path = "VB.CommandButton"
Set I = Me.Controls.Add(Path, "NewButton1")
I.Visible = true

Этот код создает кнопку. А если это Winsock?

Решение задачи: «Как программно создать контрол UserControl?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Dim WithEvents wskSocket As VBControlExtender
 
Private Sub Form_Load()
    Licenses.Add "MSWinsock.Winsock"
    Set wskSocket = Me.Controls.Add("MSWinsock.Winsock", "wskSocket")
End Sub
Private Sub wskSocket_ObjectEvent(Info As EventInfo)
    MsgBox Info.Name
End Sub

Оцени полезность:

7 голосов , оценка 3.857 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы