Как программно создать контрол 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д