[VBA]请教这样的功能如何实现？

y1982_0 发表于 2006-11-5 12:52:00

在cad中运行VBA程序后，在下拉框能取出硬盘信息。然后任选一个盘，便显示该盘下的所有文件夹！谢谢！

wyj7485 发表于 2006-11-6 11:58:00

好实现，VB自带有该控件,找找

y1982_0 发表于 2006-11-6 12:05:00

有没有相关代码？谢谢，一点点就够

wyj7485 发表于 2006-11-7 08:26:00

DriveListBox
DriveListBox控件的图标为<?XML:NAMESPACE PREFIX = V /><V:SHAPETYPE id=_x0000_t75 coordsize="21600,21600" o:spt="75" o:preferrelative="t" path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f"> <V:STROKE joinstyle="miter"></V:STROKE><V:FORMULAS><V:F eqn="if lineDrawn pixelLineWidth 0"></V:F><V:F eqn="sum @0 1 0"></V:F><V:F eqn="sum 0 0 @1"></V:F><V:F eqn="prod @2 1 2"></V:F><V:F eqn="prod @3 21600 pixelWidth"></V:F><V:F eqn="prod @3 21600 pixelHeight"></V:F><V:F eqn="sum @0 0 1"></V:F><V:F eqn="prod @6 1 2"></V:F><V:F eqn="prod @7 21600 pixelWidth"></V:F><V:F eqn="sum @8 21600 0"></V:F><V:F eqn="prod @7 21600 pixelHeight"></V:F><V:F eqn="sum @10 21600 0"></V:F></V:FORMULAS><V:PATH o:extrusionok="f" gradientshapeok="t" o:connecttype="rect"></V:PATH><?XML:NAMESPACE PREFIX = O /><O:LOCK v:ext="edit" aspectratio="t"></O:LOCK></V:SHAPETYPE><V:SHAPE id=_x0000_i1025 style="WIDTH: 12pt; HEIGHT: 9pt" type="#_x0000_t75"><V:IMAGEDATA src="file:///C:/WINDOWS/TEMP/msoclip1/01/clip_image001.jpg" o:title="drivelistbox"></V:IMAGEDATA></V:SHAPE><IMG height=12 src="http://202.206.192.167/jsjzx/dzja/2004vb/%B5%DA8%D5%C2/8.4.1.1.jpg" width=16 v:shapes="_x0000_i1025">，它是一个下拉式列表框，其自动列出系统中有效的驱动器名称，包括网络共享驱动器。在程序的运行阶段，用户可以通过键盘输入有效的驱动器名称，也可以在控件的下拉列表中进行选择，如图8-4-1所示。系统默认的驱动器为当前驱动器。<O:P> </O:P>
驱动器列表框控件不仅具有一些列表框的属性，如：List、ListCount、ListIndex等属性；也具有一些文本框控件的属性，如：Font 、FontSize等属性。这些属性的使用于在列表框和文本框中的使用方法是一样的。
1．<V:GROUP id=_x0000_s1026 style="MARGIN-TOP: 7.8pt; Z-INDEX: 1; LEFT: 0px; MARGIN-LEFT: 241.5pt; WIDTH: 157.5pt; POSITION: absolute; HEIGHT: 109.2pt; TEXT-ALIGN: left; mso-wrap-distance-left: 5.65pt; mso-wrap-distance-top: 5.65pt; mso-wrap-distance-right: 5.65pt; mso-wrap-distance-bottom: 11.35pt" coordsize="3150,2184" coordorigin="6182,3545"> <V:SHAPE id=_x0000_s1027 style="LEFT: 6917px; WIDTH: 1464px; POSITION: absolute; TOP: 3545px; HEIGHT: 1740px; mso-wrap-distance-left: 34pt; mso-wrap-distance-top: 14.2pt; mso-wrap-distance-right: 28.35pt" type="#_x0000_t75"><V:IMAGEDATA src="file:///C:/WINDOWS/TEMP/msoclip1/01/clip_image003.png" o:title="图8-4-1"></V:IMAGEDATA></V:SHAPE><V:SHAPETYPE id=_x0000_t202 coordsize="21600,21600" o:spt="202" path="m0,0l0,21600,21600,21600,21600,0xe"><V:STROKE joinstyle="miter"></V:STROKE><V:PATH gradientshapeok="t" o:connecttype="rect"></V:PATH></V:SHAPETYPE><V:SHAPE id=_x0000_s1028 style="LEFT: 6182px; WIDTH: 3150px; POSITION: absolute; TOP: 5261px; HEIGHT: 468px" filled="f" stroked="f" type="#_x0000_t202"><V:TEXTBOX style="mso-next-textbox: #_x0000_s1028">
<TABLE cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<TR>
<TD>
<DIV>
图8-4-1 驱动器列表框控件<O:P></O:P></DIV></TD></TR></TBODY></TABLE></V:TEXTBOX></V:SHAPE><?XML:NAMESPACE PREFIX = W /><W:WRAP type="square"></W:WRAP></V:GROUP>Drive属性<O:P> </O:P>
Drive属性是驱动器列表框控件独有的属性，这个属性的设置决定驱动器列表框中最顶端驱动器名称的显示，可以给该属性赋一个字母指定驱动器。如：<O:P> </O:P>
Drive1.Drive="C"<O:P> </O:P>
大小写字母均可，也可以赋给此属性一个字符串，但只有第一个字母才有意义。驱动器列表框的Drive属性只能在程序代码中设置、访问，而不能在属性窗口中设置。
<IMG height=146 src="http://202.206.192.167/jsjzx/dzja/2004vb/%B5%DA8%D5%C2/8.4.1.2.gif" width=210 border=0>
2．常用事件<O:P> </O:P>
⑴Change事件<O:P> </O:P>
当驱动器列表框中当前所选驱动器发生改变时，如用户使用鼠标或程序进行选择设置，则会触发该事件。<O:P> </O:P>
⑵Click事件<O:P> </O:P>
当用户单击驱动器列表框时触发此事件。

wyj7485 发表于 2006-11-7 08:31:00

DirListBox控件可以显示当前驱动器上的目录结构，它以根目录开头，其下的子目录按层次依次显示在列表框中，如图8-4-2所示。DirListBox控件的图标为<?XML:NAMESPACE PREFIX = V /><V:SHAPETYPE id=_x0000_t75 coordsize="21600,21600" o:spt="75" o:preferrelative="t" path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f"> <V:STROKE joinstyle="miter"></V:STROKE><V:FORMULAS><V:F eqn="if lineDrawn pixelLineWidth 0"></V:F><V:F eqn="sum @0 1 0"></V:F><V:F eqn="sum 0 0 @1"></V:F><V:F eqn="prod @2 1 2"></V:F><V:F eqn="prod @3 21600 pixelWidth"></V:F><V:F eqn="prod @3 21600 pixelHeight"></V:F><V:F eqn="sum @0 0 1"></V:F><V:F eqn="prod @6 1 2"></V:F><V:F eqn="prod @7 21600 pixelWidth"></V:F><V:F eqn="sum @8 21600 0"></V:F><V:F eqn="prod @7 21600 pixelHeight"></V:F><V:F eqn="sum @10 21600 0"></V:F></V:FORMULAS><V:PATH o:extrusionok="f" gradientshapeok="t" o:connecttype="rect"></V:PATH><?XML:NAMESPACE PREFIX = O /><O:LOCK v:ext="edit" aspectratio="t"></O:LOCK></V:SHAPETYPE><V:SHAPE id=_x0000_i1025 style="WIDTH: 12.75pt; HEIGHT: 10.5pt" type="#_x0000_t75"><V:IMAGEDATA src="file:///C:/WINDOWS/TEMP/msoclip1/01/clip_image001.jpg" o:title="dirlistbox"></V:IMAGEDATA></V:SHAPE><IMG height=14 src="http://202.206.192.167/jsjzx/dzja/2004vb/%B5%DA8%D5%C2/8.4.2.1.jpg" width=17 v:shapes="_x0000_i1025">。目录列表框控件具有列表框的常用属性。<O:P> </O:P>
1.DirListBox控件的重要属性<O:P> </O:P>
⑴Path属性<O:P> </O:P>
Path属性的值反映了目录列表框中打开的当前目录，例如：<O:P> </O:P>
Dir1.Path="C:\Windows"<O:P> </O:P>
设置“C:\Windows”为当前目录。在程序的运行阶段，当双击目录列表框中某个目录时，系统就会把这个目录的路径赋给Path属性，当Path属性值发生改变时，将会触发DirListBox控件的Change事件。Path属性只能在程序代码中设置访问，在属性窗口中不能设置。
　
<IMG height=125 src="http://202.206.192.167/jsjzx/dzja/2004vb/%B5%DA8%D5%C2/8.4.2.2.gif" width=219 border=0><O:P> </O:P>
⑵ListIndex属性<O:P> </O:P>
该属性值为整型，Visual Basic规定由Path属性所指定目录的ListIndex属性值总是为-1，它的第一个子目录的ListIndex属性值为0，下一级的各子目录依次为1、2、3等；而它的上一级目录的ListIndex属性值分别为-2、-3等。利用该属性可以方便地访问到任何一级目录，尤其对访问当前目录的上下级目录更为方便。<O:P> </O:P>
⑶ListCount属性<O:P> </O:P>
该属性值是由Path属性值指定的当前目录中包含的子目录的个数，该属性只能在程序代码中进行读访问。<O:P> </O:P>
⑷List属性<O:P> </O:P>
该属性值是一个字符串数组，数组中的每个元素包含相应条目完整的路径和目录名，该属性只能在程序代码中进行读访问。<O:P> </O:P>
2.常用事件<O:P> </O:P>
⑴Change事件<O:P> </O:P>
当Path属性的值即当前目录被改变时触发此事件。<O:P> </O:P>
⑵Click<O:P> </O:P>
当用户单击目录列表框时触发此事件。

wyj7485 发表于 2006-11-7 08:31:00

FileListBox控件用于显示指定目录下所有指定类型的文件，并可选定其中一个或多个文件。FileListBox控件的图标为<?XML:NAMESPACE PREFIX = V /><V:SHAPETYPE id=_x0000_t75 coordsize="21600,21600" o:spt="75" o:preferrelative="t" path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f"> <V:STROKE joinstyle="miter"></V:STROKE><V:FORMULAS><V:F eqn="if lineDrawn pixelLineWidth 0"></V:F><V:F eqn="sum @0 1 0"></V:F><V:F eqn="sum 0 0 @1"></V:F><V:F eqn="prod @2 1 2"></V:F><V:F eqn="prod @3 21600 pixelWidth"></V:F><V:F eqn="prod @3 21600 pixelHeight"></V:F><V:F eqn="sum @0 0 1"></V:F><V:F eqn="prod @6 1 2"></V:F><V:F eqn="prod @7 21600 pixelWidth"></V:F><V:F eqn="sum @8 21600 0"></V:F><V:F eqn="prod @7 21600 pixelHeight"></V:F><V:F eqn="sum @10 21600 0"></V:F></V:FORMULAS><V:PATH o:extrusionok="f" gradientshapeok="t" o:connecttype="rect"></V:PATH><?XML:NAMESPACE PREFIX = O /><O:LOCK v:ext="edit" aspectratio="t"></O:LOCK></V:SHAPETYPE><V:SHAPE id=_x0000_i1025 style="WIDTH: 11.25pt; HEIGHT: 11.25pt" type="#_x0000_t75"><V:IMAGEDATA src="file:///C:/WINDOWS/TEMP/msoclip1/01/clip_image001.jpg" o:title="filelistbox"></V:IMAGEDATA></V:SHAPE><IMG height=15 src="http://202.206.192.167/jsjzx/dzja/2004vb/%B5%DA8%D5%C2/8.4.3.1.jpg" width=15 v:shapes="_x0000_i1025">。
1．FileListBox控件的重要属性<O:P> </O:P>
⑴Path属性<O:P> </O:P>
此属性值为字符串数据类型，用来指定文件列表框中所显示的文件，其所在的目录或文件夹的路径名。<O:P> </O:P>
⑵Pattern属性<O:P> </O:P>
该属性使用通配符“*”、“?”规定列表框中所显示的文件类型，如a*.*、*.exe、a?.exe等。各项之间使用分号分隔。例如：<O:P> </O:P>
File1.Pattern="*.exe;*.bat;*.com;a?.txt"<O:P> </O:P>
⑶FileName属性<O:P> </O:P>
此属性返回文件列表框中选定的文件名字符串。如果支持多选，还要使用Selected属性。当FileName属性值为空字符串时，表示没有选定文件。<O:P> </O:P>
2．PathChange事件<O:P> </O:P>
当文件列表框对应的目录即Path 属性值发生变化时，触发此事件。     <O:P></O:P>
【例8-4-1】如图8-4-3所示，在窗体中允许用户从某一驱动器的各个目录中查找一个可执行文件并运行。<O:P> </O:P>
该例中，将三种文件系统控件配合使用。要使三种控件联动，就必须在一个控件属性值发生改变之后，能立即引起其它控件属性值的变化。窗体界面中，分别包含一个DriveListBox控件，一个DirListBox控件，一个FileListBox控件，一个文本框控件，四个分别标记各控件功能的标签控件，以及一个命令按钮。在文本框中显示用户选择的可执行文件，单击“运行”按钮执行该文件。 
Private Sub Form_Load()<O:P> </O:P>
  File1.Pattern="*.exe"<O:P> </O:P>
End Sub<O:P> </O:P>
　
Private Sub Dir1_Change()<O:P> </O:P>
  File1.Path=Dir1.Path<O:P> </O:P>
End Sub<O:P> </O:P>
　
Private Sub Drive1_Change()<O:P> </O:P>
  Dir1.Path=Drive1.Drive<O:P> </O:P>
End Sub<O:P> </O:P>
　
Private Sub File1_Click()<O:P> </O:P>
  If Right(File1.Path，1) < > "\" Then<O:P> </O:P>
     Text1.Text=File1.Path & "\" & File1.FileName<O:P> </O:P>
  Else<O:P> </O:P>
     Text1.Text=File1.Path & File1.FileName<O:P> </O:P>
  End If<O:P> </O:P>
End Sub<O:P> </O:P>
 <O:P> </O:P>
Private Sub Command1_Click()<O:P> </O:P>
   Dim int1 <O:P></O:P>
   int1=Shell(Text1.Text, vbNormalFocus)<O:P> </O:P>
End Sub<O:P> </O:P>
<IMG height=207 src="http://202.206.192.167/jsjzx/dzja/2004vb/%B5%DA8%D5%C2/8.4.3.1.gif" width=248 border=0>

页: [1]

明经CAD社区's Archiver

[VBA]请教这样的功能如何实现？