網络应用界面的设计.docVIP

网页浏览界面的设计 添加一个窗体，设计一个网络浏览的工具栏（一个图像列表控件为工具栏添加图像，一个工具栏控件为它指定图像列表控件，插入按钮并设按钮的图像和显示及名称） 添加一个WebBrowser控件(工程/部件，选择microsoft internet controls， 将此控件添加到工具箱上，再从工具箱上拖入它到窗体上)，添加一个组合框装网址和一个标签等控件， 3. 编写代码： Private Sub Form_Load() ’窗体装入时添加浏览的网址 Combo1.AddItem http：// Combo1.AddItem http：// Combo1.AddItem http：// End Sub ‘单击工具栏按钮浏览、返回，前进，后退的代码 Private Sub tbToolBar_ButtonClick(ByVal Button As Button) Select Case Button.Index Case 1 ‘浏览指定网址 WebBrowser1.Navigate2 Combo1.Text Case 2 ‘后退一个网页 WebBrowser1.GoBack Case 3 ‘前进一个网页 WebBrowser1. GoForward Case 4 ‘暂停 WebBrowser1.stop Case 5 ‘返回管理员工作界面 Unload Me Form3.Show End Select End Sub 网络聊天界面设计 1窗体上设置两个Winsock控件（工程 / 部件菜单，选择其中Microsoft winsock control 6.0） Winsock2作为服务器与Winsock1作为客户机，设置两个文本框，用于存放聊天消息与聊天记录，一个组合框用于存放聊天对象地址，四个按钮如图所示。 2、在窗体装入事件中设置Winsock2为侦听服务器设置其侦听端口，在组合框1中添加对方的网址（为测试方便，我们添加了本机地址）， Private Sub Form_Load()窗体装入事件 Winsock2.Listen 设置服务器的侦听 Winsock2.LocalPort = 2000 设置服务器的侦听端口 Combo1.AddItem ‘本机地址 End Sub 3、在连接按钮单击事件中设置Winsock1为客户机，设置联接的主机地址与连接服务器端口，设计连接成功事件代码返回连接成功消息。 Private Sub Command1_Click() 连接 Winsock1.RemoteHost = Combo1.Text 客户机设置联接的主机地址 Winsock1.RemotePort = 2000 客户机连接服务器端口 Winsock1.Connect 客户机设置联接 Command2.Enabled = True Command4.Enabled = True End Sub Private Sub Winsock1_Connect() 连接成功信息返回 MsgBox 连接成功！ Command1.Enabled = False End Sub 4、在发送按钮单击事件中设置Winsock1发送字符串代码 Private Sub Command2_Click() 客户机发送字符串 Dim strs As String strs = Winsock1.LocalHostName + ： + Text1 Winsock1.SendData strs 发送字符串 主机名：消息 Text1 = End Sub 5、服务器侦听到服务请求事件中设计关闭已开服务器和添加侦听到的请求代码 Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long) If Winsock2.State sckClose Then 如果服务器已开则关掉它 Winsock2.Close End If Winsock2.Accept requested 服务器添加侦听到的服务请求 End Sub 6、服务器接收到消息后的处理代码 Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long) Dim strget As String Winsock2.GetData strget 服务器接收到消息送入字符串strget If strget = ^close^