VB 怎么检索FileListBox控件里的文件名，如名称有就执行一个动作没有名称就执行另一个
Private Sub Command1_Click()
Dim H As Boolean
H = False
For i = 0 To File1.ListCount - 1
If File1.List(i) = "1.txt" Then
H = True
Exit For
End If
Next i
If H = True Then
Shell "Notepad.exe " & File1.Path & "\" & File1.List(i), vbNormalFocus
Else
MsgBox "没有可以打开的文件"
End If
End Sub
Private Sub Form_Load()
File1.Path = "E:\编程代码"
End Sub
帮帮忙VB题
要求在用户选择Drive1控件中的驱动器后，Dir1控件中的目录随之改变，当Dir1中的目录改变后，File1控件中的文件随之改变:
Private sub Drive1_change()
Dir1.path=Drive1.Drive
End sub
Private sub Dir1_change()
File1.path=Dir1.path
End sub
MSGBOX函数显示“重试”和“取消”按钮时C1取5（PS：我看不到图，不然可能会编） 这是我查到的人家 VB 10秒倒计时代码，因为计时器老师没怎么讲，所以不是很懂，不敢瞎编给你。这个代码我看了一下，好象没什么问题，要是不放心，你还是运行一下。
Dim test As Long
Private Sub Form_Load()
Timer1.Interval = 1000
test = 10
Text1.Text = ""
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Text1.Text = test
test = test - 1
If Text = 0 Then
Timer1.Enabled = False
'到时间处理的事件
End If
End Sub
vb的filelistbox中打开文件的问题
如果是可执行文件可以直接用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 Long
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Dim astr As String
Dim myopen
astr = Dir1.Path
If Right(astr, 1) "\" Then astr = astr & "\"
myopen = ShellExecute(0, "open", astr & File1.FileName, "", "", 1)
End Sub
调试通过 绝对没问题
画蛇添足的意思是什么? 寓意是什么?
画蛇添足：
画蛇时给蛇添上脚.比喻做了多余的事,非但无益,反而不合适.也比喻虚构事实,无中生有.
画蛇添足 (发音 huà shé tiān zú)
【解 释】 画蛇时给蛇添上脚.比喻做了多余的事,反而有害无益,徒劳无功.
【出 处】 西汉·刘向《战国策·齐策二》：“蛇固无足,子安能为之足?”
【用 法】 连动式；作宾语；含贬义
【示 例】 周而复《上海的早晨》第四部：“他想接上去说,又觉得是～,只好惋惜地坐着没动.”
【近义词】 徒劳无功、多此一举
【反义词】 画龙点睛、恰到好处、恰如其分
【灯 谜】 巳
【典 故】
故事发生在古代楚国.有一家人家祭祀祖宗.仪式完毕后,把剩下的一壶酒,赏给手下的办事人员喝.人多酒少,很难分配.这几个人就商量分酒的办法.有个人说：“一壶酒分给几个人喝,太少了.要喝就喝个痛快.给一个人喝才过瘾呢!”大家都这样想,可是谁也不肯放弃这个权利.另一个提议说：“这样吧,让我们来个画蛇比赛.每个人在地上画一条蛇,谁先画完,谁就喝这壶酒.”大伙儿都赞成这个办法.于是每个人折了一根树枝,同时开始画起来.有一个人画得最快,转眼之间,把蛇画好了.他左手抓过酒壶,得意地看看同伴,心想,他们要赶上我还差得远哩.便洋洋自得地说：“我再给蛇添上几只脚,也能比你们先画完.”正当他画第二只脚的时候,另一个人把蛇画完了.他一把夺过酒壶说：“蛇本来是没有脚的,你画的根本就不是蛇.还是我先画完,酒应当归我喝.” 添画蛇脚的人无话可说,只好咽着唾沫,看别人喝酒.
[提示]
画蛇,就要象一条蛇；添上脚,就成了“四不象”.做任何事情都要实事求是,不卖弄聪明,不节外生技.否则,非但不能把事情做好,反而会把事情办糟.
[原文]
楚有祠者①,踢其舍人卮酒②.舍人相谓曰③：“数人饮之不足,一人饮之有余,请画地为蛇,先成者饮酒.”一人蛇先成,引酒且饮之④；乃左手持卮,右手画蛇曰：“吾能为之足.”未成.一人之蛇成,夺其卮曰：“蛇固无足⑤,子安能为之足⑥?”遂饮其
酒⑦.为蛇足者,终亡其酒⑧.——《战国策》
[注释]
①祠（cí）——春祭.
②舍人——古代王公贵族手下的办事人员.卮（zhī）—— 古代盛酒的器具.
③相谓——互相商量.
④引酒——拿过酒杯.引,取过来.且——将要.
⑤固——本来.
⑥子——对人的尊称.安——怎么.
⑦遂——就.
⑧亡——失去.
示例 将军功绩已成,威声大震,可以止矣.今若前进,倘不如意,正如“～”也.（明·施耐庵《水浒全传》第一百十回）
英文：draw a snake and add feet to it—ruin the effect by adding sth.superfluous 蛇本来没有脚有人却给它加上脚,故事见《战国策·齐策二》.比喻做事多此一举,反而坏事.例：今若前进,倘不如意,正如画蛇添足也.——《三国演义》
<vb> 如何使用filelistbox显示和textbox来显示txt文档？
在窗体控件中放置一个FileListBox控件和一个TextBox控件，将FileListBox的Pattern属性改为“*.txt”，将TextBox的MultiLine属性改为True。
将以下语句复制到代码中
Option
Explicit
Private
Sub
File1_Click()
Dim
tFileName
As
String,
tFileNumber
As
Integer,
tLoad
As
String,
tText
As
String
tFileName
=
Replace(File1.Path
&
"\"
&
File1.FileName,
"\\",
"\")
tFileNumber
=
FreeFile
Open
tFileName
For
Input
As
#tFileNumber
Do
While
Not
EOF(tFileNumber)
Line
Input
#tFileNumber,
tLoad
tText
=
tText
&
tLoad
&
vbCrLf
DoEvents
Loop
Close
#tFileNumber
Text1.Text
=
tText
End
Sub
运行，然后在文件列表框里选择文件后就会在Text1控件里显示文件内容。
然后就是没有做DriveListBox和DirListBox的链接，这个你应该自己会吧？既然你没问我就权当你会了哦。:)
VB 如何将文本文件内容读取到listbox?
Private Sub Form_Load()
Dim appdisk As String
Dim aa As String
Dim i As Integer
appdisk = Trim(App.Path)
If Right(appdisk, 1) "\" Then appdisk = appdisk & "\"
fname = appdisk & "test.txt"
Open fname For Input As #1
Do Until EOF(1)
Line Input #1, aa
List1.AddItem aa, i
i = i + 1
Loop
Close #1
End Sub
