2.mht

本教程部分中将简单讨论COM和VB的相关内容

.navigater {
	FONT-SIZE: 12px; COLOR: #333333; LINE-HEIGHT: 19px; TEXT-DECORATION: =
none
}
A.navigater:hover {
	COLOR: #cc0000
}
.g1 {
	FONT-SIZE: 14px
}
.g2 {
	PADDING-LEFT: 21px; PADDING-TOP: 5px
}
.g3 {
	FONT-WEIGHT: bold; COLOR: #ab6503
}
.g4 {
	COLOR: #ff0000
}
.img {
	BORDER-RIGHT: #800000 1px solid; BORDER-TOP: #800000 1px solid; =
BORDER-LEFT: #800000 1px solid; BORDER-BOTTOM: #800000 1px solid
}
.img1 {
	BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; =
BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid
}
.f14 {
	FONT-SIZE: 14px; LINE-HEIGHT: 26px
}
.f20 {
	FONT-WEIGHT: bold; FONT-SIZE: 20px
}
.top_red {
	COLOR: #d70709; TEXT-DECORATION: none
}
.center01 {
	COLOR: #000000; LINE-HEIGHT: 20px
}
.center01 TD {
	COLOR: #000000; LINE-HEIGHT: 20px
}
.center01 A:link {
	COLOR: #000000; TEXT-DECORATION: none
}
.center01 A:visited {
	COLOR: #000000; TEXT-DECORATION: none
}
.center01 A:hover {
	COLOR: #2b7128; TEXT-DECORATION: underline
}
.center02 {
	COLOR: #194e00; LINE-HEIGHT: 20px
}
.center02 TD {
	COLOR: #194e00; LINE-HEIGHT: 20px
}
.center02 A:link {
	COLOR: #194e00; TEXT-DECORATION: none
}
.center02 A:visited {
	COLOR: #194e00; TEXT-DECORATION: none
}
.center02 A:hover {
	COLOR: #194e00; TEXT-DECORATION: underline
}
</STYLE>

<TABLE cellSpacing=3D0 cellPadding=3D0 width=3D760 align=3Dcenter =
bgColor=3D#f3f3f3=20
border=3D0 valign=3D"top">
  <TBODY>
  <TR class=3Dcenter01>
    <TD style=3D"PADDING-LEFT: 10px; PADDING-TOP: 10px" width=3D488><A=20
      href=3D"http://act.it.sohu.com/book/index.php">=C1=AC=D4=D8</A> =
&gt; <A=20
      =
href=3D"http://act.it.sohu.com/book/slist.php?class1=3D6">=B3=CC=D0=F2=C9=
=E8=BC=C6</A> &gt; <A=20
      href=3D"http://act.it.sohu.com/book/slist.php?class2=3D62">VB</A> =
&gt; <A=20
      =
href=3D"http://act.it.sohu.com/book/serialize.php?id=3D293">=BB=F9=D3=DAV=
B=B5=C4COM=B1=E0=B3=CC=C8=EB=C3=C5=BD=CC=B3=CC</A>=20
    </TD>
    <TD style=3D"PADDING-LEFT: 10px; PADDING-TOP: 10px" width=3D280>
      <DIV align=3Dcenter><FONT color=3D#0000ff><A=20
      =
href=3D"http://act.it.sohu.com/book/chapter.php?id=3D293&amp;volume=3D1&a=
mp;chapter=3D1">=C9=CF=D2=BB=D2=B3</A></FONT>&nbsp;&nbsp;&nbsp;&nbsp;&nbs=
p;&nbsp;&nbsp;&nbsp;=20
      <FONT color=3D#0000ff><A=20
      =
href=3D"http://act.it.sohu.com/book/serialize.php?id=3D293">=BB=D8=CA=E9=C4=
=BF</A></FONT>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
      <FONT color=3D#0000ff><A=20
      =
href=3D"http://act.it.sohu.com/book/chapter.php?id=3D293&amp;volume=3D1&a=
mp;chapter=3D3">=CF=C2=D2=BB=D2=B3</A></FONT>&nbsp;&nbsp;&nbsp;&nbsp;&nbs=
p;&nbsp;&nbsp;&nbsp;=20
      </DIV></TD></TR>
  <TR class=3Dcenter01>
    <TD style=3D"PADDING-LEFT: 10px; PADDING-TOP: 10px" align=3Dmiddle=20
    colSpan=3D2>&nbsp;</TD></TR>
  <TBODY>
  <TR>
    <TD align=3Dmiddle colSpan=3D2><BR>
      <DIV style=3D"FONT-SIZE: 18pt; COLOR: #990000; FONT-FAMILY: =
=BF=AC=CC=E5_GB2312"=20
      align=3Dcenter><B>COM=C8=EB=C3=C5</B></DIV><BR>
      <DIV style=3D"FONT-SIZE: 18px; COLOR: #990000; FONT-FAMILY: ; =
=CB=CE=CC=E5: "=20
      align=3Dcenter>=B5=DA=B6=FE=BD=DA =C0=E0=B5=C4=BD=A8=C1=A2</DIV>
      <DIV=20
      style=3D"PADDING-RIGHT: 10px; PADDING-LEFT: 10px; FONT-SIZE: =
10.5pt; COLOR: black; LINE-HEIGHT: 180%"=20
      align=3Dleft><BR>&nbsp;&nbsp;&nbsp;&nbsp;
      <P><SPAN =
class=3Df14>=A1=A1=A1=A1=D4=DA=B1=BE=BD=DA=D6=D0=A3=AC=CE=D2=C3=C7=C0=B4=CA=
=B5=BC=F9=D2=BB=CF=C2=A1=A3=CA=D7=CF=C8=B4=B4=BD=A8=D2=BB=B8=F6COM=B6=D4=CF=
=F3=A3=AC=C8=BB=BA=F3=CA=B9=D3=C3=CB=FC=A3=AC=D7=EE=BA=F3=D4=D9=CF=EB=B7=A8=
=B8=C4=BD=F8=A1=A3=20
      =
<BR><BR>=A1=A1=A1=A1=CA=D7=CF=C8=BD=F8=D0=D0=CF=C2=C3=E6=C1=BD=B2=BD=A3=BA=
<BR><BR>=A1=A1=A1=A1=D4=CB=D0=D0Visual Basic=A3=BB=D1=A1=D4=F1 "Standard =

      =
EXE"=B9=A4=B3=CC=C0=E0=D0=CD=A3=BB=D3=C9=D3=DACOM=B6=D4=CF=F3=CA=C7=BB=F9=
=D3=DA=C0=E0=B5=C4=A3=AC=B6=F8=C0=E0=CA=B5=BC=CA=C9=CF=CA=C7=B3=CC=D0=F2=B0=
=FC=A3=AC=BE=CD=CF=F1=C4=A3=BF=E9=D6=D0=B5=C4=B4=FA=C2=EB=D2=BB=D1=F9=A1=A3=
=CB=F9=D2=D4=A3=BA</SPAN></P>
      <P><SPAN class=3Df14>=A1=A1=A1=A1=D1=A1=D4=F1"Project"-&gt;"Add =
Class=20
      =
Module"=A3=BB=B5=B1=CF=E0=D3=A6=B5=C4=B6=D4=BB=B0=BF=F2=B3=F6=CF=D6=BA=F3=
=A3=AC=D1=A1=D4=F1"'Class=20
      =
Module"=A3=AC=C8=BB=BA=F3=B5=A5=BB=F7"Open"=B0=B4=C5=A5=A1=A3<BR><BR>=A1=A1=
=A1=A1=D5=E2=D1=F9=A3=AC=D4=DA=D7=C0=C3=E6=C9=CF=CF=D4=CA=BE=D2=BB=B8=F6=B1=
=ED=B5=A5=A3=AC=D2=D4=BC=B0=B0=FC=BA=AC=D4=DA=B9=A4=B3=CCProject1=D6=D0=B5=
=C4Class1=A1=A3<BR><BR>=A1=A1=A1=A1=CF=C2=C3=E6=D4=D9=BD=AB=BF=D5=B5=C4=C0=
=E0=B5=C4=C0=E0=C3=FB=B8=FC=B8=C4=A3=BA<BR><BR>=A1=A1=A1=A1=D4=DA=C0=E0=B5=
=C4=CA=F4=D0=D4=B4=B0=BF=DA=D6=D0=A3=AC=BD=AB=C0=E0=B5=C4Name=CA=F4=D0=D4=
=B8=C4=B3=C9CDog=A1=A3<BR><BR>=A1=A1=A1=A1=D0=E8=D2=AA=CB=B5=C3=F7=B5=C4=CA=
=C7=A3=AC=CE=AA=C1=CB=C7=F8=B1=F0=C6=F0=BC=FB=A3=AC=C3=BF=B8=F6=B6=D4=CF=F3=
=C3=FB=B5=C4=C7=B0=C3=E6=B6=BC=D3=D0=CF=E0=D3=A6=B5=C4=C7=B0=D7=BA=A3=AC=C0=
=FD=C8=E7Text=20
      =
Box=B6=D4=CF=F3=C7=B0=CA=C7"txt"=A1=A2Form=C7=B0=CA=C7"frm"=A1=A2=C0=E0=C7=
=B0=BF=C9=D2=D4=B4=F3=D0=B4=D7=D6=C4=B8"C"=BB=F2=D0=A1=D0=B4=D7=D6=C4=B8"=
cls"=A3=AC=B5=AB=D5=E2=C0=EF=CA=B9=D3=C3=C7=B0=D5=DF=A1=A3<BR><BR>=A1=A1=A1=
=A1=CF=C2=C3=E6=CE=D2=C3=C7=CC=ED=BC=D3=D2=BB=D0=A9=B4=FA=C2=EB=C0=B4=B2=E2=
=CA=D4=D2=BB=CF=C2=A3=BA<BR><BR>=A1=A1=A1=A1=D4=DACDog=C0=E0=CD=A8=D3=C3=C9=
=F9=C3=F7=B2=BF=B7=D6=D6=D0=A3=AC=CC=ED=BC=D3=B1=E4=C1=BF=B5=C4=C9=F9=C3=F7=
=A3=BA<BR><BR></P>
      <P>
      <TABLE borderColor=3D#ffcc66 width=3D"90%" align=3Dcenter =
bgColor=3D#c8c7b9=20
      border=3D1>
        <TBODY>
        <TR>
          <TD>Public Name As String</TD></TR></TBODY></TABLE></P>
      =
<P>=A1=A1=A1=A1<BR>=A1=A1=A1=A1=C8=BB=BA=F3=A3=AC=B4=F2=BF=AAForm1=A3=BB<=
BR><BR>=A1=A1=A1=A1=D4=DA=B1=ED=B5=A5=D6=D0=CC=ED=BC=D3=D2=BB=B8=F6=C3=FC=
=C1=EE=B0=B4=C5=A5=A3=BB<BR><BR>=A1=A1=A1=A1=B4=F2=BF=AA=B4=FA=C2=EB=B4=B0=
=BF=DA=A3=AC=CE=AA=B8=C3=C3=FC=C1=EE=B0=B4=C5=A5=CC=ED=BC=D3=CF=C2=C1=D0=B4=
=FA=C2=EB=A3=BA<BR><BR></P>
      <P>
      <TABLE borderColor=3D#ffcc66 width=3D"90%" align=3Dcenter =
bgColor=3D#c8c7b9=20
      border=3D1>
        <TBODY>
        <TR>
          <TD>=A1=A1=A1=A1Dim MyDog As CDog<BR>=A1=A1=A1=A1Set MyDog =3D =
New CDog<BR>=A1=A1=A1=A1MyDog.Name =3D=20
            "Billy Moore"<BR>=A1=A1=A1=A1MsgBox =
MyDog.Name<BR>=A1=A1=A1=A1Set MyDog =3D Nothing=20
        </TD></TR></TBODY></TABLE></P>
      =
<P><BR>=A1=A1=A1=A1=CF=C2=C3=E6=BE=CD=C0=B4=BD=E2=CA=CD=C9=CF=CA=F6=B4=FA=
=C2=EB=B5=C4=BA=AC=D2=E5=A3=BA <BR><BR></P>
      <P>
      <TABLE borderColor=3D#ffcc66 width=3D"90%" align=3Dcenter =
bgColor=3D#c8c7b9=20
      border=3D1>
        <TBODY>
        <TR>
          <TD>Dim MyDog As CDog</TD></TR></TBODY></TABLE></P>
      =
<P>=A1=A1=A1=A1<BR>=A1=A1=A1=A1=B8=C3=D0=D0=D3=EF=BE=E4=CA=C7=D3=C3=C0=B4=
=CD=A8=D6=AAVisual=20
      =
Basic=CE=AACDog=B6=D4=CF=F3=C9=E8=D6=C3=D2=BB=B8=F6=CE=BB=BF=D5=BC=E4=A3=AC=
=B5=AB=D5=E2=CA=B1=BB=B9=B2=BB=C4=DC=CA=B9=D3=C3=B8=C3=B6=D4=CF=F3=A3=AC=B1=
=D8=D0=EB=B5=C8=B5=BD=CF=C2=CC=F5=D3=EF=BE=E4=CE=AA=D6=B9=A3=BA<BR><BR></=
P>
      <P>
      <TABLE borderColor=3D#ffcc66 width=3D"90%" align=3Dcenter =
bgColor=3D#c8c7b9=20
      border=3D1>
        <TBODY>
        <TR>
          <TD>=A1=A1=A1=A1Set MyDog =3D New =
CDog</TD></TR></TBODY></TABLE></P>
      =
<P><BR>=A1=A1=A1=A1=CB=FC=CA=C7=D3=C3=C0=B4=B4=B4=BD=A8CDog=B5=C4=CA=B5=C0=
=FD=A1=A3=D5=E2=BE=CD=D2=E2=CE=B6=D7=C5=C7=B0=C3=E6=BF=D5=B5=C4MyDog=C4=A3=
=B0=E5=B1=E4=B3=C9=C1=CB=CF=D6=D4=DA=BF=C9=D2=D4=CA=B9=D3=C3=B5=C4CDog=B6=
=D4=CF=F3=A1=A3 <BR><BR></P>
      <P>
      <TABLE borderColor=3D#ffcc66 width=3D"90%" align=3Dcenter =
bgColor=3D#c8c7b9=20
      border=3D1>
        <TBODY>
        <TR>
          <TD>=A1=A1=A1=A1MyDog.Name =3D "Billy =
Moore"<BR>=A1=A1=A1=A1MsgBox=20
      MyDog.Name</TD></TR></TBODY></TABLE></P>
      =
<P><BR>=A1=A1=A1=A1=C9=CF=CA=F6=B4=FA=C2=EB=B5=C4=B5=DA=D2=BB=D0=D0=CA=C7=
=D3=C3=C0=B4=C9=E8=D6=C3MyDog=B5=C4Name=B1=E4=C1=BF=A3=AC=CD=AC=CA=B1=B5=DA=
=B6=FE=D0=D0=D3=EF=BE=E4=CA=C7=D3=C3=C0=B4=BD=AB=B8=C3=B1=E4=C1=BF=B5=C4=C4=
=DA=C8=DD=CF=D4=CA=BE=D4=DA=CF=FB=CF=A2=B6=D4=BB=B0=BF=F2=D6=D0=A1=A3=D7=EE=
=BA=F3=A3=BA<BR><BR></P>
      <P>
      <TABLE borderColor=3D#ffcc66 width=3D"90%" align=3Dcenter =
bgColor=3D#c8c7b9=20
      border=3D1>
        <TBODY>
        <TR>
          <TD>=A1=A1=A1=A1Set MyDog =3D =
Nothing</TD></TR></TBODY></TABLE></P>
      =
<P><BR>=A1=A1=A1=A1=D3=C3=C0=B4=BD=ABMyDog=B6=D4=CF=F3=BC=F2=B5=A5=B5=C4=D6=
=C3=BF=D5=A1=A3<BR><BR>=A1=A1=A1=A1=B0=B4F5=BC=FC=D4=CB=D0=D0=B2=A2=B2=E2=
=CA=D4=A1=A3=20
      =
<BR><BR>=A1=A1=A1=A1=D4=F5=C3=B4=D1=F9=A3=BF=B5=AB=CD=AC=CA=B1=A3=AC=CE=D2=
=C3=C7=BF=C9=C4=DC=B2=BB=BD=FB=D2=AA=CE=CA=A3=AC=B1=EA=D7=BC=C4=A3=BF=E9=BA=
=CD=C0=E0=C4=A3=BF=E9=BE=BF=BE=B9=D3=D0=CA=B2=C3=B4=B2=BB=CD=AC=A3=BF=CE=D2=
=C3=C7=D4=D9=C0=B4=BF=B4=BF=B4=CF=C2=C3=E6=B5=C4=CA=BE=C0=FD=A3=BA<BR><BR=
>=A1=A1=A1=A1=BD=AB=C3=FC=C1=EE=B0=B4=C5=A5=B5=C4=B4=FA=C2=EB=B1=E4=B3=C9=
=A3=BA<BR><BR></P>
      <P>
      <TABLE borderColor=3D#ffcc66 width=3D"90%" align=3Dcenter =
bgColor=3D#c8c7b9=20
      border=3D1>
        <TBODY>
        <TR>
          <TD>=A1=A1=A1=A1Dim MyDog As CDog<BR>=A1=A1=A1=A1Set MyDog =3D =
New CDog<BR>=A1=A1=A1=A1Dim MyDog2 As=20
            CDog<BR>=A1=A1=A1=A1Set MyDog2 =3D New =
CDog<BR>=A1=A1=A1=A1MyDog.Name =3D "Billy=20
            Moore"<BR>=A1=A1=A1=A1MsgBox =
MyDog.Name<BR>=A1=A1=A1=A1MyDog2.Name =3D "Sadie=20
            Moore"<BR>=A1=A1=A1=A1MsgBox MyDog2.Name<BR>=A1=A1=A1=A1Set =
MyDog =3D Nothing<BR>=A1=A1=A1=A1Set=20
            MyDog2 =3D Nothing</TD></TR></TBODY></TABLE></P>
      =
<P><BR>=A1=A1=A1=A1=D3=EB=D7=EE=C7=B0=C3=E6=B5=C4=B4=FA=C2=EB=B2=BB=CD=AC=
=B5=C4=CA=C7=A3=AC=D5=E2=C0=EF=B5=C4=B4=FA=C2=EB=CA=B5=BC=CA=C9=CF=CA=C7=B6=
=A8=D2=E5=C1=BD=B8=F6=B6=D4=CF=F3MyDog=BA=CDMyDog2=A3=AC=D5=E2=C1=BD=B8=F6=
=B6=D4=CF=F3=CA=C7=BB=F9=D3=DACDog=B5=C4=CF=E0=BB=A5=B6=C0=C1=A2=B5=C4=C1=
=BD=B8=F6=B6=D4=CF=F3=A1=A3<BR><BR>=A1=A1=A1=A1=B0=B4F5=BC=FC=D4=CB=D0=D0=
=B2=A2=B2=E2=CA=D4=A1=A3<BR><BR>=A1=A1=A1=A1=BD=E1=B9=FB=D4=F5=D1=F9=A3=BF=
=D5=E2=D2=BB=B4=CE=CA=C7=B2=BB=CA=C7=D3=D0=C1=BD=B8=F6=B6=D4=BB=B0=BF=F2=B3=
=F6=CF=D6=A3=BF=D2=BB=B8=F6=CF=D4=CA=BE"Billy=20
      Moore"=A3=AC=C1=ED=D2=BB=B8=F6=CF=D4=CA=BE"Sadie =
Moore"=A1=A3<BR>=C9=CF=CA=F6=B6=A8=D2=E5=B5=C4=C3=BF=B8=F6=B6=D4=CF=F3=D6=
=D0=B3=FD=C1=CBName=CD=E2=A3=AC=C3=BB=D3=D0=C8=CE=BA=CE=CA=B5=BC=CA=B5=C4=
=CA=F4=D0=D4=A3=AC=D2=F2=B4=CB=CF=C2=C3=E6=B9=FD=B3=CC=BE=CD=C0=B4=CC=ED=BC=
=D3=A3=BA=20
      =
<BR><BR>=A1=A1=A1=A1=B4=F2=BF=AA=C7=B0=C3=E6=B5=C4Class1=A3=BB<BR><BR>=A1=
=A1=A1=A1=C9=F9=C3=F7=CF=C2=C3=E6=B5=C4=B9=AB=B9=B2=B1=E4=C1=BF=A3=BA<BR>=
<BR></P>
      <P>
      <TABLE borderColor=3D#ffcc66 width=3D"90%" align=3Dcenter =
bgColor=3D#c8c7b9=20
      border=3D1>
        <TBODY>
        <TR>
          <TD>=A1=A1=A1=A1Public Age As =
Integer</TD></TR></TBODY></TABLE></P>
      =
<P><BR>=A1=A1=A1=A1=B4=F2=BF=AA=C7=B0=C3=E6=B5=C4Form1=A3=BB<BR><BR>=A1=A1=
=A1=A1=BD=AB=C3=FC=C1=EE=B0=B4=C5=A5=B5=C4=B4=FA=C2=EB=B1=E4=B3=C9=A3=BA<=
BR><BR></P>
      <P>
      <TABLE borderColor=3D#ffcc66 width=3D"90%" align=3Dcenter =
bgColor=3D#c8c7b9=20
      border=3D1>
        <TBODY>
        <TR>
          <TD>=A1=A1=A1=A1Dim MyDog As CDog<BR>=A1=A1=A1=A1Set MyDog =3D =
New CDog<BR>=A1=A1=A1=A1Dim MyDog2 As=20
            CDog<BR>=A1=A1=A1=A1Set MyDog2 =3D New =
CDog<BR>=A1=A1=A1=A1MyDog.Name =3D "Billy=20
            Moore"<BR>=A1=A1=A1=A1MyDog.Age =3D 4<BR>=A1=A1=A1=A1MsgBox =
MyDog.Name &amp; " is " &amp;=20
            MyDog.Age &amp; " years old"<BR>=A1=A1=A1=A1MyDog2.Name =3D =
"Sadie=20
            Moore"<BR>=A1=A1=A1=A1MyDog2.Age =3D 7<BR>=A1=A1=A1=A1MsgBox =
MyDog2.Name &amp; " is "=20
            &amp; MyDog2.Age &amp; " years old"<BR>=A1=A1=A1=A1Set MyDog =
=3D=20