用VB编写小型的网络系统
---- Visual Basic 以 下 简 称(VB) 十 一 个 功 能 强 大 的 编 程 语 言。 特 别 是4.0 以 后, 支 持 了OLE Automation 技 术, 给 编 程 带 来 了 更 大 的 方 便。 前 些 时, 我 试 着 编 写 一 个 支 持 网 络 的 数 据 库。 但 是 由 于 没 有 联 网, 所 以 没 法 测 试。 于 是, 我 想 到 了OLE Automation, 用 它 就 可 以 在 一 台 机 器 上 测 试 网 络 功 能。 经 过 改 动, 还 可 以 用 它 通 过Modem 来 进 行 联 机。 下 面, 我 介 绍 一 下 如 何 用Visual Basic 编 写 小 型 的 网 络 系 统。
---- 首 先, 建 立 一 个 支 持 网 络OLE Automation
---- 启 动VB。 在 窗 体Form1 中 建 立 一 个 列 表 框List 1, 在 它 上 面 建 一 个Frame1, 设 置 它 的Caption 属 性 为 空。 在 它 中 间 建 立 一 个Label1, 同 样, 设 置 它 的Caption 也 为 空。 最 后, 在List1 上 建 立 一 个Caption 为UserList 的Label2。 最 后, 把 一 个 定 时 器Timer1 安 上, 把 它 的Interval 设 为3000,Enabled 设 为False 就 行 了。 至 此,NetWorkConnection 的 窗 体 部 分 就 完 成 了。
---- 随 后, 在VB 的Tools 菜 单 中 选Options, 按 照 填 好 各 项 内 容。
---- 接 下 来, 在Insert 菜 单 中 选 取Module 建 立 一 个 新 的 模 块Module1。 在(General) 中 输 入 填 写 进 下 列 代 码。
(UserInfo数据类型)
Type UserInfo
Username As String
Alias As Integer
End Type
(最大的用户数)
Public Const MaxUser = 10
(定义消息)
Public Const Msg_User_LogOn = 1
Public Const Msg_User_LogOff = 2
(设定数据类型)
Public Users (MaxUser) As UserInfo
Public Inbox (MaxUser) As String
Public UserSystemInbox As Integer
Public Online(MaxUser) As Boolean
Sub main()
Form1.Show
End Sub
---- UserInfo 数 据 类 型 记 录 了 已 经 登 录 的 用 户 的 用 户 名 和 别 名。 在 显 示 和 通 讯 时 只 使 用 别 名。 用 户 名 只 作 为 判 断 用 户 是 否 有 效 时 用。 出 于 安 全 考 虑, 以 上 数 据 用 户 不 能 随 意 访 问, 必 须 通 过 下 面 的 子 程 序 来 访 问。
---- 在Insert 菜 单 中 选 取Class Module 建 立 一 个 新 的 类Class1。 更 名 为Common, 并 设 置 它 的 各 个 属 性。
---- 填 写 进 下 列 代 码。
---- ( 提 供 获 取 用 户ID 值 的 功 能, 用 户 可 以 通 过 此 功 能 使 用 别 名 来 返 回ID 值)
Public Function GetUserID(Alias As String) As Integer
For i = 1 To MaxUser
If Users(i).Alias = Alias Then GetUserID = i
Next i
End Function
---- ( 提 供 获 得 系 统 信 息 的 功 能。 用 户 可 以 通 过 它 了 解 用 户 是 否 有 改 动)
Public Function GetSystemMessage() As Integer
GetSystemMessage = UserSystemInbox
End Function
---- ( 提 供 获 得 用 户 信 息 的 功 能。 用 它 来 获 取 所 有 在 线
用 户 的 别 名, 中 间 用"|" 分 开。)
Public Function GetUserInfo() As String
For i = 1 To MaxUser
If Users(i).Username < > "" Then
temp = temp + Users(i).Alias + "|"