搜索
网页浏览界面的设计1．添加一个窗体，设计一个网络浏览的工具栏（一个图像列表控件为工具栏添加图像，一个工具栏控件为它指定图像列表控件，插入按钮并设按钮的图像和显示及名称）2．添加一个WebBrowser控件(工程/部件，选择microsoftinternetcontrols，将此控件添加到工具箱上，再从工具箱上拖入它到窗体上)，添加一个组合框装网址和一个标签等控件，3.编写代码：PrivateSubForm_Load()’窗体装入时添加浏览的网址Combo1.AddItemhttp：//：//：//‘单击工具栏按钮浏览、返回，前进，后退的代码PrivateSubtbToolBar_ButtonClick(ByValButtonAsButton)SelectCaseButton.IndexCase1‘浏览指定网址WebBrowser1.Navigate2Combo1.TextCase2‘后退一个网页WebBrowser1.GoBackCase3‘前进一个网页WebBrowser1.GoForwardCase4‘暂停WebBrowser1.stopCase5‘返回管理员工作界面UnloadMeForm3.ShowEndSelectEndSub网络聊天界面设计1窗体上设置两个Winsock控件（工程/部件菜单，选择其中Microsoftwinsockcontrol6.0）Winsock2作为服务器与Winsock1作为客户机，设置两个文本框，用于存放聊天消息与聊天记录，一个组合框用于存放聊天对象地址，四个按钮如图所示。2、在窗体装入事件中设置Winsock2为侦听服务器设置其侦听端口，在组合框1中添加对方的网址（为测试方便，我们添加了本机地址127.0.0.1），PrivateSubForm_Load()'窗体装入事件Winsock2.Listen'设置服务器的侦听Winsock2.LocalPort=2000'设置服务器的侦听端口Combo1.AddItem127.0.0.1‘本机地址EndSub3、在连接按钮单击事件中设置Winsock1为客户机，设置联接的主机地址与连接服务器端口，设计连接成功事件代码返回连接成功消息。PrivateSubCommand1_Click()'连接Winsock1.RemoteHost=Combo1.Text'客户机设置联接的主机地址Winsock1.RemotePort=2000'客户机连接服务器端口Winsock1.Connect'客户机设置联接Command2.Enabled=TrueCommand4.Enabled=TrueEndSubPrivateSubWinsock1_Connect()'连接成功信息返回MsgBox连接成功！Command1.Enabled=FalseEndSub4、在发送按钮单击事件中设置Winsock1发送字符串代码PrivateSubCommand2_Click()'客户机发送字符串DimstrsAsStringstrs=Winsock1.LocalHostName+：+Text1Winsock1.SendDatastrs'发送字符串主机名：消息Text1=EndSub5、服务器侦听到服务请求事件中设计关闭已开服务器和添加侦听到的请求代码PrivateSubWinsock2_ConnectionRequest(ByValrequestIDAsLong)IfWinsock2.StatesckCloseThen'如果服务器已开则关掉它Winsock2.CloseEndIfWinsock2.Acceptrequested'服务器添加侦听到的服务请求EndSub6、服务器接收到消息后的处理代码PrivateSubWinsock2_DataArrival(ByValbytesTotalAsLong)DimstrgetAsStringWinsock2.GetDatastrget'服务器接收到消息送入字符串strgetIfstrget=^close^Then'服务器接收到关闭请求Winsock2.Close'服务器关闭Winsock2.Listen'服务器继续侦听EndIfText2.Text=Text2.Text+strget+vbCrLf'文本框2显示聊天记录EndSub7、清空聊天记录代码设计PrivateSubCommand3_Click()'清空记录Text2=EndSub：8退出代码设计PrivateSubCommand4_Click()'退出IfWinsock2.StatesckCloseThenWinsock2.Close'如果服务器已开(已有请求)则关掉它IfWinsock1.StatesckCloseThenWinsock1.Close'如果客户机已开(已有请求)则关掉它Me.HideForm3.ShowEndSub