📄 例6-14.mht
字号:
style=3D'mso-spacerun:yes'> </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>设计步骤如下：=
</span></p>
<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>①</span> <span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>建立=
应用程序用户界面与=
5774;置对象属性。</span></p>
<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>选择“新建”工&#=
31243;，进入窗体设计器ʌ=
92;增加一个组合框</span><span
lang=3DEN-US>Combo1</span><span style=3D'font-family:SimSun;mso-ascii-font-=
family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>、</span><=
span
lang=3DEN-US>2</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>个标签</span><sp=
an
lang=3DEN-US>Label1</span><span style=3D'font-family:SimSun;mso-ascii-font-=
family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>～</span><=
span
lang=3DEN-US>Label2</span><span style=3D'font-family:SimSun;mso-ascii-font-=
family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>和</span><=
span
lang=3DEN-US>2</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>个命令按&#=
38062;</span><span
lang=3DEN-US>Command1</span><span style=3D'font-family:SimSun;mso-ascii-fon=
t-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>～</span><=
span
lang=3DEN-US>Command2</span><span style=3D'font-family:SimSun;mso-ascii-fon=
t-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>。</span><=
/p>
<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>将</span><span lang=3DEN-US>Combo1</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>的</span><span lang=3DEN-US>Style</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>属性改为</span><span lang=3DEN-U=
S>0</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>，其他属性的设=
置参见图</span><span
lang=3DEN-US>6-21</span><span style=3D'font-family:SimSun;mso-ascii-font-fa=
mily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>所示=
。</span></p>
<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>②</span> <span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>编写=
事件代码。</span></p>
<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>编写组合框</span><span
lang=3DEN-US>Combo1</span><span style=3D'font-family:SimSun;mso-ascii-font-=
family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>的</span><=
span
class=3DSpellE><span lang=3DEN-US>KeyPress</span></span><span style=3D'font=
-family:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
New Roman"'>（按键）事件代ఀ=
1;：</span></p>
<p class=3Da><b style=3D'mso-bidi-font-weight:normal'><span lang=3DEN-US>Pr=
ivate Sub
Combo1_<span class=3DGramE>KeyPress(</span><span class=3DSpellE>KeyAscii</s=
pan> As
Integer)<o:p></o:p></span></b></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan>If <span
class=3DSpellE>KeyAscii</span> =3D 13 Then<span
style=3D'mso-spacerun:yes'> =
</span><span style=3D'mso-tab-count:2'> =
</span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>按回车键</=
span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>Combo1.AddItem Combo1.Text, 0<span
style=3D'mso-spacerun:yes'> </span><span
style=3D'mso-tab-count:2'> &=
nbsp; </span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>接受输入&#=
30340;号码</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>Combo1.SelStart =3D 0<span style=3D'mso-tab-count:6'> &nb=
sp; =
&nb=
sp; =
</span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>设置组合&#=
26694;的起始位置</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>Combo1.SelLength =3D Len(Combo1.Text) <span style=3D'mso-tab-count:2=
'> </span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>设置选择&#=
32452;合框的长度</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan>End If</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan>If <span
class=3DSpellE>KeyAscii</span> =3D 27 Then<span
style=3D'mso-spacerun:yes'> =
</span><span style=3D'mso-spacerun:yes'> </span><span
style=3D'mso-tab-count:2'> &=
nbsp; </span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>按〈</span><span
lang=3DEN-US>Esc</span><span style=3D'font-family:SimSun;mso-ascii-font-fam=
ily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>〉键=
</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>If Combo1.ListIndex <> -1 Then</span></p>
<p class=3Da><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>
</span>Combo1.RemoveItem Combo1.ListIndex<span style=3D'mso-spacerun:yes'>&=
nbsp;
</span><span style=3D'mso-tab-count:2'> =
</span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>移去选项</=
span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>End If</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan>End If</span></p>
<p class=3Da><b style=3D'mso-bidi-font-weight:normal'><span lang=3DEN-US>En=
d Sub<o:p></o:p></span></b></p>
<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>编写“自动抽奖&=
#8221;命令按钮</span><span
lang=3DEN-US>Command1</span><span style=3D'font-family:SimSun;mso-ascii-fon=
t-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>的</span><=
span
lang=3DEN-US>Click</span><span style=3D'font-family:SimSun;mso-ascii-font-f=
amily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>（单=
击）事件代码，使之=
1487;以随机地抽取奖号ᦂ=
6;</span></p>
<p class=3Da><b style=3D'mso-bidi-font-weight:normal'><span lang=3DEN-US>Pr=
ivate 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'>
</span>Randomize</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan>n =3D
Combo1.ListCount<span
style=3D'mso-spacerun:yes'> </span><span
style=3D'mso-tab-count:5'> &=
nbsp; &nbs=
p; &=
nbsp; </span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -