VB6开发 用户控件OCX

VB6 中创建一个主窗体工程后，再添加一个 ActiveX用户控件工程

 

 

 在用户控件窗体中可以添加 文本框和按钮的控件

 

 

 属性

Public strUrl As String

方法

'发送消息
Public Sub WebSocketSendMsg(ByVal SendMsg As String)
On Error GoTo ErrTrap
    'Dim sMsg As String
    'sMsg = msgInput.Text
    
    Call ShowMsg("Send " & SendMsg) '显示消息

    If SendMsg <> "" Then
        websock.send (SendMsg)
    End If
Exit Sub

事件

定义事件

Public Event eCtiWebSocketOpen(ByVal strMsg As String) 'WebSocket Open

执行事件

Private Sub websock_onopen()
    Dim sMsg As String   
    sMsg = "OnOpen"
    Call ShowMsg(sMsg) '显示消息
    
    '事件
    RaiseEvent eCtiWebSocketOpen(sMsg)
    
Exit Sub

在主窗体工程中添加 此用户控件

 

将控件加到部件中

将用户控件拖到 窗体上

调用用户控件的方法

Private Sub butOpen_Click()
    Call Me.CtiClient1.WebSocketOpen
End Sub

Private Sub butClose_Click()
    Call Me.CtiClient1.WebSocketClose
End Sub

用户控件的事件

'用户控件 连接成功
Private Sub CtiClient1_eCtiWebSocketOpen(ByVal strMsg As String)
    strMsg = strMsg & Chr(13) & Chr(10)
    Me.msgListboxCti.Text = Me.msgListboxCti.Text & strMsg
End Sub

'用户控件 关闭
Private Sub CtiClient1_eCtiWebSocketClose(ByVal strMsg As String)
    strMsg = strMsg & Chr(13) & Chr(10)
    Me.msgListboxCti.Text = Me.msgListboxCti.Text & strMsg
End Sub

生成OCX