Question

vb6 Listbox控件问题求助，救救命啊·····！

这样的 我的 Listbox 控件中有很多选项，我想当我用鼠标点击 Listbox里面的选项时能在label1中显示数据。label1显示出来的数据要带超链接，连接到电脑的某个文件。也就是说当我点击 Listbox里的选项这个时候label1里面显示一个数据或是地址，当我用鼠标点击这个地址能打开电脑中的某个PDF文件
希望各位大侠帮忙
小弟感激不尽
Listbox 里面的数据为C100、C200、C300、C400 点击Listbox中的C100 在 label1中显示“手册”在 label2中显示“说明”。点击手册 就打开 \\192.168.1.100\资料\c100手册.pdf
点击“说明”打开\\192.168.1.100\资料\c100说明.pdf

点击Listbox中的C200 在 label1中显示“手册”在 label2中显示“说明”。点击手册
就打开 \\192.168.1.100\资料\c200手册.pdf
点击“说明”打开\\192.168.1.100\资料\c200说明.pdf

在点击Listbox中的C300 在 label1中显示“C300手册”在 label2中显示“C300说明”。点击手册
就打开 \\192.168.1.100\资料\C300手册.pdf
点击“说明”打开\\192.168.1.100\资料\C300说明.pdf

一直这样下去 2个label 是一直在变化的

Answer 1

Private Sub Form_Load()
Label1.Caption = "手册"
Label2.Caption = "说明"
End Sub

Private Sub Label1_Click()
Shell "iexplore \\192.168.1.100\资料\" & Label1.Tag & "手册.pdf", vbNormalFocus
End Sub

Private Sub Label2_Click()
Shell "iexplore \\192.168.1.100\资料\" & Label1.Tag & "说明.pdf", vbNormalFocus
End Sub

Private Sub List1_Click()
Label1.Tag = List1.Text
Label2.Tag = List1.Text
End Sub

局域网内文件并不属于远程文件，VB内是可以按本地文件一样打开的。

追问

关键是后面还有地址 Listbox 里面的数据为C100、C200、C300、C400 点击Listbox中的C100 在 label1中显示“手册”在 label2中显示“说明”。点击手册 就打开 \\192.168.1.100\资料\手册.pdf 点击说明就连接到说明.PDF 当我再Listbox里点击C200的时候 label2 和label1的地址又不一样了 成了\\192.168.1.100\资料\C200手册.pdf

追答

你有没有认真看我的答案啊？你所说的不是就在里面吗？

Answer 2

你先给点数据，有哪些选项，每个选项对应什么样的数据，数据对应的文件是哪个等等，不然程序怎么编？

追问

Listbox 里面的数据为C100、C200、C300、C400 点击Listbox中的C100 在 label1中显示“手册”在 label2中显示“说明”。点击手册 就打开 \\192.168.1.100\资料\手册.pdf

追答

Private Sub Form_Load()
Label1.FontUnderline = True '文字加下划线，蓝色
Label2.FontUnderline = True
Label1.ForeColor = vbBlue
Label2.ForeColor = vbBlue
Label1.MousePointer = 14 '改变鼠标形状，可以自定义成手型
Label2.MousePointer = 14
End Sub

Private Sub Label1_Click()
Shell "iexplore c:\手册.pdf", vbNormalFocus 'VB无法打开远程文件，需要拷贝到本地
End Sub

Private Sub List1_Click()
Select Case List1.Text
Case "C100"
Label1.Caption = "手册"
Label2.Caption = "说明"
Case "C200"
'处理
Case "C200"
'处理
Case "C200"
'处理
End Select
End Sub

追问

那我点击C200的时候还是打开c:\手册.pdf这个文件？

追答

是的，可以做下处理，让Label分辨一下：
Private Sub Label1_Click()
Select Case List1.Text
Case "C100"
Shell "iexplore c:\c100手册.pdf", vbNormalFocus
Case "C200"
Shell "iexplore c:\c200手册.pdf", vbNormalFocus
........
End Select
End Sub

Answer 3

这个可以做到，不过没什么实际价值，设计的不好。

Answer 4

这个得看实际要求定。

Answer 5

我只修改了一处：就是注释了一处只读，因为sava是不可以设置只读的。
@Transactional //(readOnly=true)这个明显不对，应该去掉
public void add(User user) {
数据库连的我自己的，没问题，结果出来了。你在试一下，要是还不行的话，那你检查你的表和你设定的是否对应，要不就是你数据库连不上。