With CommonDialog1
.CancelError = True
.InitDir = "C:\"
.Filter = "所有文件(*.txt)|*.txt"
.DialogTitle = ""
.ShowOpen
End WithCommonDialog1 打开后, 假设可以看到1.txt
2.txt
3.txt
4.txt
5.txt
6.txt
希望 2.txt 能够用程序控制被选取 ( 反白色 )
不知要如何写 ?正常都是用滑鼠点 2.txt 才会出现反白
现在是希望用程序自动使其出现反白
.CancelError = True
.InitDir = "C:\"
.Filter = "所有文件(*.txt)|*.txt"
.DialogTitle = ""
.ShowOpen
End WithCommonDialog1 打开后, 假设可以看到1.txt
2.txt
3.txt
4.txt
5.txt
6.txt
希望 2.txt 能够用程序控制被选取 ( 反白色 )
不知要如何写 ?正常都是用滑鼠点 2.txt 才会出现反白
现在是希望用程序自动使其出现反白
(ByRef pOpenfilename As OPENFILENAME) As Integer
Structure OPENFILENAME
Public lStructSize As Integer
Public hwndOwner As Integer
Public hInstance As Integer
Public lpstrFilter As String
Public lpstrCustomFilter As String
Public nMaxCustFilter As Integer
Public nFilterIndex As Integer
Public lpstrFile As String
Public nMaxFile As Integer
Public lpstrFileTitle As String
Public nMaxFileTitle As Integer
Public lpstrInitialDir As String
Public lpstrTitle As String
Public flags As Integer
Public nFileOffset As Short
Public nFileExtension As Short
Public lpstrDefExt As String
Public lCustData As Integer
Public lpfnHook As Integer
Public lpTemplateName As String
End Structure