📄 例10-3.mht
字号:
个文件列表框</span><span
lang=3DEN-US>File1</span><span style=3D'font-family:SimSun;mso-ascii-font-f=
amily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>，一=
个作为容器使用的图=
9255;框</span><span
lang=3DEN-US>Picture1</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>Picture1</span><span style=3D'font-family:SimSun;mso-ascii-fon=
t-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>中添=
加水平和垂直滚动条</s=
pan><span
lang=3DEN-US>HScroll1</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>VScroll1</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>Picture2</span><span style=3D'font-family:SimSun;mso-ascii-fon=
t-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>。调=
整大小后安排在适当=
0340;位置上，如图</span><span
lang=3DEN-US>10-4</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 align=3Dcenter style=3D'text-align:center'><span lang=
=3DEN-US
style=3D'mso-font-kerning:0pt;mso-no-proof:yes'><!--[if gte vml 1]><v:shape=
type
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:123.6pt;
height:91.2pt' fillcolor=3D"window">
<v:imagedata src=3D"file0515.files/image001.png" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D165 height=3D122
src=3D"file0515.files/image002.jpg" v:shapes=3D"_x0000_i1025"><![endif]><sp=
an
style=3D'mso-spacerun:yes'> =
</span><!--[if gte vml 1]><v:shape id=3D"_x0000_i1026" type=3D"#_x0000_t75"
style=3D'width:124.2pt;height:91.2pt'>
<v:imagedata src=3D"file0515.files/image003.png" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D166 height=3D122
src=3D"file0515.files/image004.jpg" v:shapes=3D"_x0000_i1026"><![endif]><o:=
p></o:p></span></p>
<h6 style=3D'text-align:justify;text-justify:inter-ideograph;text-indent:80=
.1pt;
mso-char-indent-count:8.9'><span style=3D'font-family:SimSun;mso-ascii-font=
-family:
"Times New Roman";mso-hansi-font-family:Roman;mso-no-proof:yes'>图</s=
pan><span
lang=3DEN-US style=3D'mso-no-proof:yes'>10-3 <span
style=3D'mso-spacerun:yes'> </span></span><span style=3D'font-family:S=
imSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:Roman;mso-no-=
proof:
yes'>图片浏览器</span><span lang=3DEN-US
style=3D'mso-no-proof:yes'><span
style=3D'mso-spacerun:yes'> =
&nb=
sp;
</span></span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Time=
s New Roman";
mso-hansi-font-family:Roman;mso-no-proof:yes'>图</span><span lang=3DE=
N-US
style=3D'mso-no-proof:yes'>10-4<span style=3D'mso-spacerun:yes'> </sp=
an></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
Roman;mso-no-proof:yes'>设计程序界面</s=
pan><span
lang=3DEN-US style=3D'mso-no-proof:yes'><o:p></o:p></span></h6>
<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-U=
S>Caption</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>属性设为“图片&=
#27983;览器”。</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>File1</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>Pattern</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>*.<span class=3DSpellE>ico</span>;*.bmp</span><span style=3D'f=
ont-family:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
New Roman"'>”，使文件列表框=
;中只显示这两类文件&#=
12290;</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>Picture2</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>的</span><span class=3DSpellE><span lang=3DEN-US>A=
utosize</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>True</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 lang=3DEN-US>VScroll1</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>HScroll1</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>的</span><span class=3DSpellE><span lang=3DEN-US>L=
argeChange</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 class=3DSpellE><span
lang=3DEN-US>SmallChange</span></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>2000</span><span style=3D'font-family:SimSun;mso-ascii-font-fa=
mily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>和</span><=
span
lang=3DEN-US>200</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=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=3Da><b><span lang=3DEN-US>Private Sub Dir1_Change()<span
style=3D'mso-spacerun:yes'> </span></span></b><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span><span style=3D'mso-tab-count:=
1'> </span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>目录列表&#=
26694;发生改变事件时执Ŝ=
92;的代码</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>
</span>File1.Path =3D Dir1.Path<span
style=3D'mso-spacerun:yes'> </span><span
style=3D'mso-tab-count:1'> </span>' </s=
pan><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>在文件列表框显=
示选中目录中的所有=
1526;合条件的文件名</span></p>
<p class=3Da><span lang=3DEN-US>End Sub</span></p>
<p class=3Da><span lang=3DEN-US>Private Sub Drive1_Change()<span
style=3D'mso-spacerun:yes'> </span><span style=3D'mso-tab-count:1'>&n=
bsp; </span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>驱动器列&#=
34920;框发生改变事件时û=
91;行的代码</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>
</span>Dir1.Path =3D Drive1.Drive</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 File1_Click() </span></b><sp=
an
lang=3DEN-US><span style=3D'mso-spacerun:yes'> </span><span
style=3D'mso-tab-count:1'> </span>' </span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>文件列表框中发=
生单击事件时执行的=
0195;码</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan><span
class=3DSpellE>ChDrive</span> Drive1.Drive</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan><span
class=3DSpellE>ChDir</span> Dir1.Path</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </sp=
an><span
style=3D'mso-spacerun:yes'> </span>With Picture2</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </sp=
an><span
style=3D'mso-spacerun:yes'> </span><span
style=3D'mso-spacerun:yes'> </span>.Height =3D <span class=3DGramE>260=
0 :</span>
.Left =3D 0 : .Top =3D 0 : .Width =3D 2300</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -