module1.bas

未完成的聊天软件

Attribute VB_Name = "Module1"
'--这是一个公用的模块
Option Explicit


'--一个强制卸载所有窗体的过程
Public Sub EndForms()
    Dim obj As Form
    For Each obj In Forms
        Unload obj
    Next
    End
End Sub
'--关闭服务器的过程
Public Sub CloseServer()
    '--首先销毁服务器
    frmfirst.serobj.DestroyServer
    Set frmfirst.serobj = Nothing
    Call EndForms '--卸载所有窗口
End Sub
'--关闭客户端的过程
Public Sub CloseClient()
    frmfirst.cliobj.DestroyClient
    Set frmfirst.cliobj = Nothing
    Call EndForms
End Sub