vb程序设计实验内容1.程序中加入三个文件系统控件，让他们同步？

在常见的编程语言和界面库中，"lmange" 不是一个常见的容器控件。也许这个名称是个拼写错误，或者是一个不常见的自定义控件。在常用的编程言和界面库中，下面是对其他三个控件的详细：1. Picture（图片控件）：Picture控件用于显示静态图片或动画。它通提供了一些属性和方法，可以加载、显示、缩放和处理图像文件。它一个用于展示图像的容器控件，而不具备子控件的容器功能。2. ComboBox（组合框控件）：ComboBox控件是一个常用的用户界面元素，用于显示一个下拉列表以供选择。它由一个文本框和一个下拉箭头按钮成。用户可以在输入中输入文本，也可以通过箭头选择下拉的列表项。它同时具备了文本框和下的功能，是一个常见的容器控件。3. FileListBox（文件列表框控件）：FileListBox控件用于显示指定目录下的文件列表。它通常会自动加载并显示特定目录下的文件，可以根据筛选条件显示特定类型的。用户可以通过点击文件列表中的文件来选择文件。FileListBox控件提供了一些属性和方法，可于操作文件列表它通常被用作容器控件，用于存放展示特定目录下文件列表的子控件。注意，上述说明是基于一般情况，在不的编程语言和界面库中，这些控件的名称和功能可能会有略微的差异。在具体的编程语境中，查阅相关的编程文档或官方考资料是获取最准和具体信息的最佳途

我建议这么幼稚的问题自己解决吧,别让自已变太懒了,如果这样也想写好程序,我建议还是趁早转行吧.

在窗体控件中放置一个FileListBox控件和一个TextBox控件，将FileListBox的Pattern属性改为“*.txt”，将TextBox的MultiLine属性改为True。将以下语句复制到代码中OptionExplicitPrivateSubFile1_Click()DimtFileNameAsString,tFileNumberAsInteger,tLoadAsString,tTextAsStringtFileName=Replace(File1.Path&""&File1.FileName,"\","")tFileNumber=FreeFileOpentFileNameForInputAs#tFileNumberDoWhileNotEOF(tFileNumber)LineInput#tFileNumber,tLoadtText=tText&tLoad&vbCrLfDoEventsLoopClose#tFileNumberText1.Text=tTextEndSub运行，然后在文件列表框里选择文件后就会在Text1控件里显示文件内容。然后就是没有做DriveListBox和DirListBox的链接，这个你应该自己会吧？既然你没问我就权当你会了哦。:)

Private Sub Command1_Click()Open App.Path & " est.txt" For Input As #1Do While Not EOF(1)Line Input #1, tempList1.AddItem tempLoopClose #1End SubPrivate Sub File1_DblClick()On Error GoTo err Picture1.Picture = LoadPicture(File1.Path & "" & File1.List(File1.ListIndex)) List1.AddItem File1.List(File1.ListIndex)err:End SubPrivate Sub Form_Load() File1.Path = App.Path "本程序所在目录End SubPrivate Sub List1_DblClick() List1.RemoveItem List1.ListIndexEnd Sub

Private Sub Command3_Click() File1.Path = "c:"End SubPrivate Sub Command4_Click() MsgBox File1.FileNameEnd Sub

罗志祥

直接调用ShellExecute API

PathChange 事件过程来响应 FileListBox 控件中路径的改变。当将包含新路径的字符串给 FileName 属性赋值时，FileListBox 控件就调用 PathChange 事件。PatternChange 事件过程来响应在 FileListBox 控件中样式的改变。当将包含新样式的字符串给 FileName 属性赋值时，FileListBox 控件将调用 PathChange 事件。

在第一个 ListBox 中，将 MultiSelect 属性设置为 1 或 2。在运行时期，在第一个 ListBox 中选择几个项，然后单击 CommandButton。 所有被选的项都显示在第二个 ListBox 中。使用不同的 MultiSelect 属性设置值来运行几次这个例子。将下面的代码粘贴到声明部分，然后按 F5 键 以运行这个程序。

最佳答案来了：Private Sub Command1_Click() Kill File1.Path & "" & File1.FileName File1.RefreshEnd SubPrivate Sub Form_Load() File1.Path = App.PathEnd Sub

File1.Pattern = "*.xls; *.xlsx"text1.text= Replace(Dir1.Path & "" & File1.FileName, "\", "")

File1.ListIndex = 0 filelistbox 是排序的 无法自定义位置

.net

楼上的朋友说的很对，如果你只是要控制第一个和最后一个文件文件的话就按照上面的代码写就可以了，用索引值来判断的。

MSDN里面有 示例啊 Private Sub File1_Click() Image1.Picture = LoadPicture(File1.Path & "" & File1.FileName)End SubPrivate Sub Form_Load() File1.Path = "c:"End Sub

Private Sub Command1_Click()Dim TxtFileName$If File1.ListIndex > 0 ThenTxtFileName = File1.Path & "" & File1.List(File1.ListIndex)Shell "notepad " & TxtFileName, 1End IfEnd SubPrivate Sub Command2_Click()Dim TxtFileName$If File1.ListIndex > 0 ThenTxtFileName = File1.Path & "" & File1.List(File1.ListIndex)Kill TxtFileNameEnd IfEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub File1_Click()Dim a$List1.ClearOpen File1.Path & "" & File1.List(File1.ListIndex) For Input As #1Do While Not EOF(1)Line Input #1, aIf a <> "" Then List1.AddItem aLoopClose #1End SubPrivate Sub Form_Load()File1.Path = "D:file"Command1.Caption = "修改"Command2.Caption = "删除"Command3.Caption = "退出"File1.Pattern = "*.txt"End Sub

如果是可执行文件可以直接用Shell 那就简单了 不过这里是打开任意文件 需要使用函数ShellExecute 使用这个函数需要先声明 就是在最头部的通用部分写下如下声明Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long然后就能使用这个函数了 给你提供我刚写的一个样例代码 双击打开任意文件Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_DblClick()Dim astr As StringDim myopenastr = Dir1.PathIf Right(astr, 1) <> "" Then astr = astr & ""myopen = ShellExecute(0, "open", astr & File1.FileName, "", "", 1)End Sub调试通过 绝对没问题

需要编写代码，挺简单的

Private Sub File1_Click()STK = Dir1.Path & "" & File1.FileNameText1.Text = STKEnd SubPrivate Sub File1_DblClick() ShellExecute hwnd, "open", STK, vbNullString, vbNullString, 1End Sub

Dim i As String Dim j As String Dim x As Long Dim y As Integer Dim Z As StringPrivate Sub Check_Click(Index As Integer)Dim 后缀(8) As String 后缀(1) = "*.exe" 后缀(2) = "*.txt" 后缀(3) = "*.doc" 后缀(4) = "*.elx" 后缀(5) = "*.jpg" 后缀(6) = "*.htm" 后缀(7) = "*.pdh" 后缀(8) = "*.dll"For x = 0 To 7 If Check(x).Value = 1 Then For y = 0 To File1.ListCount - 1 If UCase(Right(File1.List(y), 4)) = 后缀(x + 1) Then Z = Z & ":" & 后缀(x + 1) End If Next y End IfNext x Z = Mid(Z, 2)End SubPrivate Sub Command1_Click() File1.Pattern = ZEnd SubPrivate Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click() i = File1.List(File1.ListIndex)If UCase(Right(i, 4)) = ".TXT" Then Open (File1.Path & "" & i) For Input As #1 Do While Not EOF(1) Line Input #1, j j = Text & j & vbCrLf LoopClose #1 j = Replace(j, ".a:", ".speed") j = Replace(j, ".b:", ".high") j = Replace(j, ".c:", ".weigth") j = Replace(j, "*", vbCrLf & "")End If RichTextBox1.Text = jEnd SubPrivate Sub Form_Load() File1.Path = Dir1.Path Dir1.Path = Drive1.Drive Drive1.Drive = "d:" Dir1.Path = "E:mengyuan"End Sub

Private Sub List1_Click()Text1.Text = List1.ListIndex + 1End Sub

改倒数第二句即可路径 完整的文件名:dbpath = Form1.File1.Path & "" & Form1.File1.FileName只要不带扩展名的文件名：（不带路径，一般扩展名是3个字符，前加一个“.”符号，共四个，从左取（Form1.File1.FileName-4）个字符就是你要的结果如下: dbpath = Left(Form1.File1.FileName, Len(Form1.File1.FileName) - 4)

那里面是文本文件吗？private Sub File1_DblClick()Shell "NotePad " & File1.Path & "" & File1.FileName, vbNormalFocusEnd SubPrivate Sub Form_Load()File1.Path = "d:"End Sub Private Sub File1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenKill File1.Path & "" & File1.FileNameMsgBox " 已删除"End IfEnd Sub

你这个列表文件是怎么加载出来的，一般string[] fileNames = Directory.GetFiles(path);这样存储，然后fileNames.length就是文件个数

你试试使用File1.Name属性，看看得到什么结果

Private Sub Form_Load()File1.Pattern = "*.jpg;*.bmp;*.gif"End Sub

Private Sub File1_Click()Dim fileStr As StringDim dataStr As StringfileStr = File1.List(File1.ListIndex)Open App.Path + "" + fileStr For Input As #1Input #1, dataStrClose (1)Print dataStrEnd Sub

楼主是问选择文件的那个光标的移动么？向下移动：procedure TForm1.Button1Click(Sender: TObject);begin FileListBox1.ItemIndex:=FileListBox1.ItemIndex+1;end;下上移动：procedure TForm1.Button1Click(Sender: TObject);begin FileListBox1.ItemIndex:=FileListBox1.ItemIndex-1;end;

dir1.path:读取目录控件中的目录file1.filename:读取文件控件中所选取的文件名

在mousemove 里面写代码！ Private Sub File1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)File1.ToolTipText = File1.List(File1.TopIndex + Int(Y / Form1.TextHeight("Xyz123")))End Sub此代码适用于很多list格式的控件

没错，两者其基本上都是一样的，只是操作的方法不同。list只是操作列表中的项，而FileListBox可以操作文件～这是惟一不同的地方～

for t=0 to filelist1.listcount-1 text1.text=text1.text & vbcr & vblf & filelist1.list(t)next

建一个COmbo1,File1。代码如下。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝Private Sub Combo1_Click()File1.Pattern = Combo1.TextEnd SubPrivate Sub Form_Load()Combo1.AddItem "*.txt"Combo1.AddItem "*.exe""...... "根据你的需要添加End Sub

List1.Clear

无错。

FileListBox控件在控件工具箱上就有：通常它与Drive控件，Dir控件一起使用．见下图：那个象一张纸张的那个图标就是：FileListBox控件

改为RichTextBox1.LoadFile(FileListBox1.Path & "" & FileListBox1.FileName, RichTextBoxStreamType.PlainText)文件路径中的前后不要加空格，否则系统会认为你的文件名或文件夹名也是有空格的

将filelistbox里的pattern属性设置成*.txt就行了

pattern

不太懂你的意思。如果要根据路径显示，你的FileListBox本身就可以完成这个功能了。如果要测试edit1.Text的路径是否正确，你可以用 if DirectoryExists(Edit1.Text) then FileListBox1.Directory := Edit1.Text;建议：用选择路径对话框来完成这个功能比较好。

filelistbox.filter="文本文件|*.txt|图片|*.jpg"

是指删除文件么？代码如下。＝＝＝＝＝＝＝＝＝＝＝＝＝Private Sub File1_DblClick()Kill File1.Path & "" & File1.FileNameEnd Sub＝＝＝＝＝＝＝＝＝＝＝＝＝不删除文件之清楚选中项，做不到。File没有RemoveItem，不像List。

Private Sub Drive1_Change()Path = Split(Drive1.Drive, ":")Shell "explorer " & Path(0) & ":", vbNormalFocusEnd Sub

你用fso对象去创建文本文件 如果指定的sfilename文件已经存在，需要先删除后才可以重新创建 你完全可以直接使用open "" for output #1 直接写入就好

在win3.1这个标签下

Private Sub File1_Click()"点击列表，读取TXT文件内容"参考MSDN OPEN语句用法Dim FileLine As String"On Error Resume NextOpen File1.Path & File1.List(Index) For Input As #1Do While Not EOF(1) Line Input #1, FileLine Text1.Text = Text1.Text & vbCrLf & FileLineLoopClose #1End SubPrivate Sub Form_Load()"Text1的MultiLine设置为True"设置FILELISTBOX文件路径，文件类型File1.Pattern = "*.txt"File1.Path = "c:"Text1.Text = ""End Sub

把filelistbox的visible设置成false，然后加入listbox用这个来显示，代码如下Private Sub Command1_Click() Set fo = CreateObject("Scripting.FileSystemObject") For i = 1 To File1.ListCount - 1 Set f = fo.GetFile(File1.List(i)) List1.AddItem (File1.List(i) & vbTab & f.DateLastModified) NextEnd Sub

filelistbox 中的pattern 设置为 "l*.*" 即可。

for(int i=0; i<Form1->FileListBox1->Items->Count; i++) //判断该目录的每个文件.{ if( Form1->FileListBox1->Items->Strings[i].Pos(".txt") ) //查找该目录的第i个文件是为txt文档. { fopen( Form1->FileListBox1->Items->Strings[0], r); //yes，载入该txt文档. }}

path是路径(表所在目录)filename是名称