例5-14.mht

系统的介绍了vb的书籍,学vb的到这来.

5774;置对象属性。在窗&#2030=
7;中建立了两组单选钮&=
#65292;分别放在名称为“&#233=
83;体”和“字号”的框&#2=
6550;&#20013;&#65292;&#22914;&#22270;</span><span
lang=3DEN-US>5-8</span><span style=3D'font-family:SimSun;mso-ascii-font-fam=
ily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#25152;&#31034;=
&#12290;&#24403;&#29992;&#25143;&#36873;&#23450;&#20102;&#8220;&#23435;&#20=
307;&#8221;&#21333;&#36873;&#38062;&#65292;&#36824;&#21487;&#20197;&#36873;=
&#23450;&#8220;</span><span
lang=3DEN-US>14</span><span style=3D'font-family:SimSun;mso-ascii-font-fami=
ly:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#21495;&#8221;&#21333;&#36873;&#3=
8062;&#12290;&#35813;&#24212;&#29992;&#31243;&#24207;&#36816;&#34892;&#2610=
2;&#65292;&#21482;&#26377;&#24403;&#29992;&#25143;&#36873;&#23450;&#20102;&=
#23383;&#20307;&#21644;&#22823;&#23567;&#65292;&#20877;&#36873;&#25321;&#82=
20;&#30830;&#23450;&#8221;&#25353;&#38062;&#21518;&#65292;&#25991;&#26412;&=
#26694;&#30340;&#23383;&#20307;&#21644;&#22823;&#23567;&#25165;&#25913;&#21=
464;&#12290;</span></p>

<p class=3DMsoNormal align=3Dcenter style=3D'text-align:center'><span lang=
=3DEN-US><!--[if gte vml 1]><v:shapetype
 id=3D"_x0000_t75" coordsize=3D"21600,21600" o:spt=3D"75" o:preferrelative=
=3D"t"
 path=3D"m@4@5l@4@11@9@11@9@5xe" filled=3D"f" stroked=3D"f">
 <v:stroke joinstyle=3D"miter"/>
 <v:formulas>
  <v:f eqn=3D"if lineDrawn pixelLineWidth 0"/>
  <v:f eqn=3D"sum @0 1 0"/>
  <v:f eqn=3D"sum 0 0 @1"/>
  <v:f eqn=3D"prod @2 1 2"/>
  <v:f eqn=3D"prod @3 21600 pixelWidth"/>
  <v:f eqn=3D"prod @3 21600 pixelHeight"/>
  <v:f eqn=3D"sum @0 0 1"/>
  <v:f eqn=3D"prod @6 1 2"/>
  <v:f eqn=3D"prod @7 21600 pixelWidth"/>
  <v:f eqn=3D"sum @8 21600 0"/>
  <v:f eqn=3D"prod @7 21600 pixelHeight"/>
  <v:f eqn=3D"sum @10 21600 0"/>
 </v:formulas>
 <v:path o:extrusionok=3D"f" gradientshapeok=3D"t" o:connecttype=3D"rect"/>
 <o:lock v:ext=3D"edit" aspectratio=3D"t"/>
</v:shapetype><v:shape id=3D"_x0000_i1025" type=3D"#_x0000_t75" style=3D'wi=
dth:113.4pt;
 height:79.2pt'>
 <v:imagedata src=3D"file8644.files/image001.png" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D151 height=3D106
src=3D"file8644.files/image002.jpg" v:shapes=3D"_x0000_i1025"><![endif]><sp=
an
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span><!--=
[if gte vml 1]><v:shape
 id=3D"_x0000_i1026" type=3D"#_x0000_t75" style=3D'width:113.4pt;height:79.=
2pt'>
 <v:imagedata src=3D"file8644.files/image003.png" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D151 height=3D106
src=3D"file8644.files/image004.jpg" v:shapes=3D"_x0000_i1026"><![endif]></s=
pan></p>

<h6><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roma=
n";
mso-hansi-font-family:Roman'>&#22270;</span><span lang=3DEN-US>5-8<span
style=3D'mso-spacerun:yes'>&nbsp; </span></span><span style=3D'font-family:=
SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:Roman'>&#2431=
4;&#31435;&#29992;&#25143;&#30028;&#38754;&#21644;&#23646;&#24615;</span><s=
pan
lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </spa=
n></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
Roman'>&#22270;</span><span lang=3DEN-US>5-9<span style=3D'mso-spacerun:yes=
'>&nbsp;
</span></span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Time=
s New Roman";
mso-hansi-font-family:Roman'>&#21333;&#36873;<span class=3DGramE>&#38062;</=
span>&#31243;&#24207;&#36816;&#34892;&#32467;&#26524;</span></h6>

<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#9313;</span> <span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#32534;&#20889;=
&#20107;&#20214;&#20195;&#30721;&#12290;&#19979;&#38754;&#26159;&#35813;&#3=
1383;&#20307;&#20013;&#28041;&#21450;&#30340;&#20004;&#20010;&#20107;&#2021=
4;&#36807;&#31243;&#65306;</span></p>

<p class=3Da><b><span lang=3DEN-US>Private Sub Command1_<span class=3DGramE=
>Click()</span><o:p></o:p></span></b></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp; </s=
pan>If
Option1.Value Then</span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp;&nbs=
p;&nbsp;
</span>Text1.FontName =3D &quot;</span><span style=3D'font-family:SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Ro=
man"'>&#23435;&#20307;</span><span
lang=3DEN-US>&quot;</span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp; </s=
pan>Else</span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp;&nbs=
p;&nbsp;
</span>Text1.FontName =3D &quot;</span><span style=3D'font-family:SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Ro=
man"'>&#40657;&#20307;</span><span
lang=3DEN-US>&quot;</span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp; </s=
pan>End If</span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp; </s=
pan>If
Option3.Value Then</span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp;&nbs=
p;&nbsp;
</span>Text1.FontSize =3D 10</span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp; </s=
pan>Else</span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp;&nbs=
p;&nbsp;
</span>Text1.FontSize =3D 14</span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp; </s=
pan>End If</span></p>

<p class=3Da><b><span lang=3DEN-US>End Sub<o:p></o:p></span></b></p>

<p class=3Da><b><span lang=3DEN-US>Private Sub Command2_<span class=3DGramE=
>Click()</span><o:p></o:p></span></b></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp; </s=
pan>Unload
Me</span></p>

<p class=3Da><b><span lang=3DEN-US>End Sub<o:p></o:p></span></b></p>

<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#31243;&#24207;&#36816;&#34892;&#32467;&#26524;&#22914;=
&#22270;</span><span
lang=3DEN-US>5-9</span><span style=3D'font-family:SimSun;mso-ascii-font-fam=
ily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#25152;&#31034;=
&#12290;</span></p>

<p class=3DMsoNormal><span lang=3DEN-US><o:p>&nbsp;</o:p></span></p>

</div>

</body>

</html>

------=_NextPart_01C38FF4.0F80D740
Content-Location: file:///C:/C2CB3A54/file8644.files/image001.png
Content-Transfer-Encoding: base64
Content-Type: image/png

iVBORw0KGgoAAAANSUhEUgAAAVcAAADwCAMAAACDgdfIAAAAAXNSR0IArs4c6QAAAwBQTFRFAAAA
gAAAAIAAgIAAAACAgACAAICAwMDAwNzApsrwBAQECAgIDAwMERERFhYWHBwcIiIiKSkpVVVVTU1N
QkJCOTk5/3yA/1BQ1gCTzOz/79bG5+fWramQMwAAZgAAmQAAzAAAADMAMzMAZjMAmTMAzDMA/zMA
AGYAM2YAZmYAmWYAzGYA/2YAAJkAM5kAZpkAmZkAzJkA/5kAAMwAM8wAZswAmcwAzMwA/8wAZv8A
mf8AzP8AAAAzMwAzZgAzmQAzzAAz/wAzADMzMzMzZjMzmTMzzDMz/zMzAGYzM2YzZmYzmWYzzGYz
/2YzAJkzM5kzZpkzmZkzzJkz/5kzAMwzM8wzZswzmcwzzMwz/8wzM/8zZv8zmf8zzP8z//8zAABm
MwBmZgBmmQBmzABm/wBmADNmMzNmZjNmmTNmzDNm/zNmAGZmM2ZmZmZmmWZmzGZmAJlmM5lmZplm
mZlmzJlm/5lmAMxmM8xmmcxmzMxm/8xmAP9mM/9mmf9mzP9m/wDMzAD/AJmZmTOZmQCZzACZAACZ
MzOZZgCZzDOZ/wCZAGaZM2aZZjOZmWaZzGaZ/zOZM5mZZpmZmZmZzJmZ/5mZAMyZM8yZZsxmmcyZ
zMyZ/8yZAP+ZM/+ZZsyZmf+ZzP+Z//+ZAADMMwCZZgDMmQDMzADMADOZMzPMZjPMmTPMzDPM/zPM
AGbMM2bMZmaZmWbMzGbM/2aZAJnMM5nMZpnMmZnMzJnM/5nMAMzMM8zMZszMmczMzMzM/8zMAP/M
M//MZv+Zmf/MzP/M///MMwDMZgD/mQD/ADPMMzP/ZjP/mTP/zDP//zP/AGb/M2b/ZmbMmWb/zGb/
/2bMAJn/M5n/Zpn/mZn/zJn//5n/AMz/M8z/Zsz/mcz/zMz//8z/M///Zv/Mmf//zP///2ZmZv9m
//9mZmb//2b/Zv//pQAhX19fd3d3hoaGlpaWy8vLsrKy19fX3d3d4+Pj6urq8fHx+Pj4//vwoKCk
gICA/wAAAP8A//8AAAD//wD/AP//////WCJOtwAAAAlwSFlzAAASdAAAEnQB3mYfeAAAC8hJREFU
eF7tnc2WozgMhVnUmbz/01YWc6YH/8u2bEwkEZK+LLqLBAv787UsQCbbA5sBgW17/MGmTuDpuBp0
199uElxtFBC5/mDTJPB4gKsmz2QLXBmq3By2sR/+/Aw+BleOa+9xnxsztz+3nSt37M/PEtc//tzh
37Tlvf6PcEj8fPS1xeDTssmyknDdtr0HuA4kWD2oP4Wy24+DwX9TtoLXH6PVans7Blz/+29ny8PN
St0Jea5RxjtI/zcLbj/Qb9/B1bGJmxv+y37AlfnHbRXbrMBI1kFKtDLdIdfAmwjcXm/SMwz1OuS6
X1u5LfzncNf+ddueT891J1u70nokE/kVN9rqNTiIyPtLuOZJKgMMfbADz/+yXD1nL1rCNQk2+k86
LQXlFj9QhR3RXbgDvpyrBxvg8nr1XB6/tR+Is06WJpmaAq/iFapYII//7+fqoEasrF4D1337HfqB
xl/G3eJf07QWZB1nuG/Xa3IFU706tpQr9QONv4xKpe63ig5K7PANcVYY596htvHAil491zrYIlSK
XrNUgzMoPqDspr++Xa9H/vX39xHucv9u/0ZOdCoKIVOapjiu9WcZ+JdzPYwH9kgrCP13D7metY9N
eoyMfBxALhEK0RSy5g5I3SENLC8q7ycYegHg5nj34dAPHMSve72DuafnSpqR/UAdyMYQlfqB+hog
6fTz9MpyffF6K4Hsr2XrWae5AmMuyJKloOnifS9SnOw06vcHZNX5mtLgatOVf/appd029sPd6XHH
Lt5/tan9fa2S2ysHf6b5qDkMXK06d+l5gdXJv9hu5pqv0PCHDgHkZehwbK2AK7jaELCxCr2Cqw0B
G6vQK7jaELCxCr2Cqw0BG6vQK7jaELCxCr2Cqw0BG6vQK7jaELCxCr2Cqw0BG6vQK7jaELCxCr2+
kSuTfHD7j7hF6lWavsJOSYTrOmdJr37RwWdt7OJ/5RcCPOVcFTr3WhPnuE4A0fTMRpU6XP3S22r9
rdupF+Tumi745sc2K3nZhb2CrlDkSvJea7DaXBODyDUA9xsF0RAPfTDCHr5QhLvGNdSarmZpJEmd
H+NDx3Peon+NjU6niRjzbuRJ4OQKZebxk36f1l2g0LroGtc4yHc3MPAE5OP+CA299noM8ooSqyY1
Kr1G277xlc5pl6hR3RdLsfFAr6+4UNDLlv82fsp8rcE10qhGe+Nft13FmQzlGT7M37njknjDh9FB
KLqBM1wd0ZFii14Y6kpcfeuJj+ywhq8jxdZHNB609bX1vly4i3ot7pXVa4A5ihZUuO5ajFTboR3n
rai75BjI+O6dxND7qkl2laujNtGrZ2rOleJI+vNjPzqAQjgLt/cM2SvU0YMa0WB/jWtwAe/kGoZ4
NeF7z9gN/GYeig608gqdfr0dXbBrXAPSWB82aMrzmpF/TVyTH4z7nRyzk6hJtrM+6aAwcb3Vv47n
LXs/UKKjKFw//Rc+zTxVxwP1XggA6hmwmQTFE9cpvU7igWGksOtXZd4KXEtwT5GSMIohSGKsalLz
cBPP6JrVnME61yTJUfzKR7bOLehxpYEokWrwtNWlQzXFkYA1+eRANAk3RbdqWBfnrRxFOSc7vCwY
+V9VrnmmIjPSWb2mEJeMdj2iZ+IB2T1tHa5il3epgUU/IAILrhEf7muLtc3rVfnpEZ4XxAv96opE
YUfj/qtYQpcaePfLrdfva1+KRXwycBUjZA2AK7jaELCxCr2Cqw0BG6vQ69/MVXQZ/Z7CytesZxux
FL/aSMrY6lkSuscvcdU95V9hDVxtuhlcwdWGgI1V6BVcbQjYWIVewdWGgI1V6BVcxQS0r/Ckzw3F
DbqJAeV7BuL8gZtgEVeD4xp/4mlie6hKcJ3kZaxytVi3IRbKTQwweo24+HUbdYZB1wjodaxXBzRt
g96HHzgaFr1ek05H7GzXGR3V91O+77j6ZUZuG3JN33EHwA/M563Juo28zAhcJ4NnPG+NCsEPrPgi
1g/kmYuzEJYZDRwF/MDQDxDvOp66Rt4XXCf+1cnRIx1wTcsRGTWD64hrjAcmXGMgxkIH1yM/4Ken
oX/1ama+B9eZH5hEqIHlMMIF1wOuK7EE/OuYEu6/vqigg2LgasT1Zuu3bFp5vVWFFVsHt2Rzm/A8
1qZ7wRVcbQjYWIVewdWGgI1V6BVcbQjYWIVewdWGgI1V6BVcbQjYWIVewdWGgI1V6BVcbQjYWIVe
wdWGgI1V6BVcbQjYWJXqlWaJzNKcbGpfW2UyViYrrGxrJOVK08XezbWqy8GiAVuq7h3R28uvRCLP
Jn01M9c3qISty+S3s27NNVcuEp1mN9u2pHRllU71hh4O7RToNf+gQrX24T0taeuSFw/Z9ubYuoBr
MhpJxuS7ye/XXNDG9/Qq0zAx18QxZD27f9/XtlyXKivlgu7sT3GSa05wal1rnLYI16VcKEkm2qwu
zYxlXpcO7FmuaQk/Wf6Ykp1DynhMHH88Vhb7P0VcJ3XJ1QsNNq+LnGtrgU7EaUHOsicQch3XJf18
xnJN9hlc0semXMsvLq02R9SWvnB/2tWKuMjotlzLxcHqVCFqyzdzpbP/cH3DJMqTaKTl2kYi2dOv
9bKoj9X9ABlo7+baBXjnQul7cV3TwugoUVtEhZmIUzJ21PUKrjyB0/GrDGRTWiQ5UWHoddiR4GqD
BlzB9ch73kkjd6oL4gGbsQOu4PpJPgl6hV6h1yMCNhpBPACuR8q7k0buVBfMWzZj5wKuZzIMRZJ7
sfDokdeL5gb9JLtP6J7Ld4bbRwiTZ3eitjSF2brQyh28l1hUF1W9PvdO2TZKluaZuFMdZRiK2lIV
7usy6u/b63Wn6vId9n9zExqpkmw0vjVqXJm65MddJdPJ1/MDuIY0kpI/S54cZqVOc1AVuXZ1IThj
vSbvJd55i+qi6AeeXq012FoQxxmGoraQwmxd2l4+iCFFdbHlWrvXhQxDUVtOcT1+75WoLrZcg1xp
xtZB5qaoLae4zjxrgCKqiz1XN1elszQZhv1AFLXlPNcg2lHEeZf8geTUqnUfHmWqevIEw7lLi+ue
zt+7+m4WnSfkiOqiqNfHfkXgZy3KNWZqRrDu1dVRI9Zx1qAuJIQmg4hV7G247lRdBcO/YSvXAeTl
9Jdcb/V1SaOmTX+7vR/wTCuq74tfu7qEgcJMpMNevo9eBxNAHQ9cc11wEJuWATUePLfnutpGaWyj
C+I2cdYJfMNDRWhEhZVjPs14QAGsCI2oMLjaiB1cwfW8YxANZVFh6BV6hV4LAdlzw/Mk6xKioSwq
DD8AP3BevSLJiQpDr9Ar9Ip5C34AfgB+wNwPpAdc7kSXPIc536dtCd3wQnZd0ObwDd+sN2i2qC2i
wnf2r0w+YZJnq9eBZkVoXix8++eGbD5h/Nnl9ATx4I2FL6IJYjtb+FPyX5lcCPdMmfyg9TwR4gU0
1ehtuB7nFYfSd9crl8NXy/O6fMJdvF2OcwFIndJncq30cGE+oXstaJPjTBKxcvbNR+RnHev1+E2Q
Z13k0A+M87OqBMdZNCaqS2f49ThrlFdM/Ncd8gljGt7n5L/2OXxd3S/LJ5zna5f0xk/QK5tPWFf8
snzCRa4f4V9TJmGdTxiz92iEdcF17IxrToCrXld95+utNp+Qvv81Z2xec39gNm81Eevd41fGV5Gs
4qu5DvOKuyuBD+R6+qaSKLapCnd5xTT/Na8paHOMaYVFdVGMs05DZAqI2tIUrnOcB7WbvGJTVJcv
5irtZ3CNBHVBnL49Nu/H16+3pPp45Vbf7H6WtD663QSuqT/AFX7gaGyKNCIqfO/rrSNuR9+L0IgK
g+uwb8DVBg24gqupQ1T2adAr9Aq9HhFY/P7s9dbSL6+tHyR598f6WdaOlNRFej9r5YfXTh2z2P3c
YafOs3KwoC5Srpqn/mpbJ/3AV7PQbBy4atIstsAVXG0I2FiFXsHVhoCNVegVXG0I2FiFXsHVhoCN
VegVXG0I2FiFXsHVhoCNVegVXG0I2FiFXsHVhoCNVafXtcdqOOoUgXqRIPbUCPwPQQim85KsAG8A
AAAASUVORK5CYIJ=

------=_NextPart_01C38FF4.0F80D740
Content-Location: file:///C:/C2CB3A54/file8644.files/image002.jpg
Content-Transfer-Encoding: base64