Question

vb随便按一个label控件,将打开目录里的TXT文件，文件名就是label控件.caption值，求代码

大家跟本都不懂我的意思，比如说：有10个标签，点程序里任何的一个标签，然后打开目录里的txt文件，文件名就是被点的那个标签的Caption值。

Answer 1

Private Sub Label1_Click()
    Open App.pate & "\" & Label1.Caption & ".txt" For Input As #1
    Do Until EOF(1)
        Input #1, st
        text1.Text = text1.Text & st
    Loop
    Close #1
End Sub

追问

大家跟本都不懂我的意思，比如说：程序里有10个标签，点程序里任何的一个标签，然后打开目录里的txt文件，文件名就是被点的那个标签的Caption值。

追答

我知道您说的意思 可是您用什么打开TXT文件呢？
是在VB里 用一个TEXT文本框显示？还是 调用WINDOWS带的记事本打开？

Answer 2

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 Label1_Click(Index As Integer)
    ShellExecute Me.hwnd, "open", Label1(Index).Caption & ".txt", "", "", 1
End Sub

新建一个Label的控件数组

希望可以帮到你

追问

大家跟本都不懂我的意思，比如说：程序里有10个标签，点程序里任何的一个标签，然后打开目录里的txt文件，文件名就是被点的那个标签的Caption值。

追答

你只要把Label数组的各自caption改为txt文件名就行啊，比如：Label1的caption为“盗墓笔记”，则会打开“盗墓笔记.txt”;Label1(1)的caption为“第一次的亲密接触”，则会打开程序所在目录的"第一次的亲密接触.txt"