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

Узнай цену своей работы

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

Этот код создает кнопку. А если это 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
Похожие ответы