如何用VB的ListBox 控件显示并双击打开word等文档

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

我有一问题：如何用VB的ListBox（或其它）控件桐铅大，显示指定的.doc或.xls等文档的激掘链接，双击后就可以用相应的office程序打开这些文件，谢谢！

解析:

可以用 ShellExecute API 来实现当前文件的关联调用，如：

' 定义API

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 File1_DblClick()

Dim strFileName As String

strFileName = File1.Path

If Right$(strFileName, 1) = "\" Then

strFileName = strFileName &File1.List(File1.ListIndex)

Else

strFileName = strFileName &"\" &File1.List(File1.ListIndex)

End If

' 打开

Call ShellExecute(Me.hwnd, "open", strFileName, vbNullString, strFileName, 1)

End Sub

在Word中，用鼠标就要以拖动没悔中图片，枯山若想将图片拖动到任意位置，需要设置其环绕方式。

1、选中图片；

2、单击前册图片工具格式----文字环绕----浮于文字上方即可，如图所示。

---