Public Sub ICON_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
baseMainform.visible=not baseMainform.visible '设置主窗体显示
End Sub
Public Sub ICON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
' baseMainform.visible=not baseMainform.visible '设置主窗体显示 11-12日改成显示聊天窗口
If QQClient.Ready Then
QQClient.OpenChatWindow()
Else
Functions.Execute("内部通讯登陆",yqqip,yqqport,yqqname,yqqpassword)
End If
End Sub
这个双击事件生效了 为啥单击事件不生效