使用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  

[1] [2] 下一页