使用vb建立DCOM服务器端及客户端应用的详细过程(2)
本节介绍如何建立DCOM客户端应用,及其注意事项。(本人使用的是西文版vb6)
1.打开vb,在"file"菜单单击"New Project",选择"Standard EXE"并单击"OK".
2.在"Project"菜单, 单击"References".
3.单击"browse",选择"C:\DCOMDemo\Server\proDCOMDemoServer.exe",单击"ok", 并选中该引用.
4.在工程里插入一个模块,放置两个CommandButton, 两个textbox,以及三个label到form1上 . 设置如下属性:
Control Name Property Value ------------------------------------------------------------------ Module Module1 Name modDCOMDemoClient
Form Form1 Name frmDCOMDemoClient Caption DCOM Demo - Client
CommandButton Command1 Name cmdServerTime Caption &Get Server Time
Command2 Name cmdComputeNumbers Caption &Compute Numbers
Text Box Text1 Name txtX TabStop True TabIndex 0
Text2 Name txtY TabStop True TabIndex 1
Label Label1 Name lblAnswerAdd Label2 Name lblAnswerSubtract Label3 Name lblServerTime 注意:现在还不要给工程更改名称,即名称仍为"PROJECT1" 5.拷贝如下代码到模块里,(不是Form1上):
Option Explicit
Public oServer As New _ proDCOMDemoServer.clsDCOMDemoServer
6.拷贝如下代码到frmDCOMDemoClient代码窗口:
Option Explicit Private Sub Form_Load() ''''设置文本框的初始化值. txtX.Text = "1" txtY.Text = "2" End Sub
Private Sub txtX_GotFocus() txtX.SelStart = 0 txtX.SelLength = Len(txtX.Text) End Sub
Private Sub txtY_GotFocus() txtY.SelStart = 0 txtY.SelLength = Len(txtY.Text) End Sub
Private Sub cmdServerTime_Click() ''''获取服务器端的程序,并将返回值显示在lblServerTime标签里. lblServerTime.Caption = oServer.ServerTime End Sub
Private Sub cmdComputeNumbers_Click() lblAnswerAdd.Caption = oServer.AddNumbers _ (CInt(txtX.Text), CInt(txtY.Text)) lblAnswerSubtract.Caption = oServer.SubtractNumbers _ (CInt(txtX.Text), CInt(txtY.Text)) End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As _ Integer)
Set oServer = Nothing End Sub
7.在"Project"菜单, 单击"Project1 Properties."
8.单击"General",设置如下属性:
Project Type: Standard EXE
Startup Object: frmDCOMDemoClient
Project Description: DCOM Demo Project - Client
9.单击"Make",设置如下属性:
Application Title: proDCOMDemoClient
10.单击"Compile",设置如下属性:
Compile to P-Code: <Selected>
11.单击"OK"
12.在"File"菜单, 单击"Save Project As",保存的文件名称如下所述:
Directory File Filename Extension ---------------------------------------------------------------- C:\DCOMDemo\Client Module modDCOMDemoClient .bas Form1 frmDCOMDemoClient .frm &nbs [1] [2] 下一页 没有相关教程
|