请教 64位 OPENFILENAME

lizhun99

2. <p>Public Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long</p><p>
   
3. </p><p>Type OPENFILENAME</p><p>     lStructSize As Long</p><p>     hwndOwner As Long</p><p>     hInstance As Long</p><p>     lpstrFilter As String</p><p>     lpstrCustomFilter As String</p><p>     nMaxCustFilter As Long</p><p>     nFilterIndex As Long</p><p>     lpstrFile As String</p><p>     nMaxFile As Long</p><p>     lpstrFileTitle As String</p><p>     nMaxFileTitle As Long</p><p>     lpstrInitialDir As String</p><p>     lpstrTitle As String</p><p>     flags As Long</p><p>     nFileOffset As Integer</p><p>     nFileExtension As Integer</p><p>     lpstrDefExt As String</p><p>     lCustData As Long</p><p>     lpfnHook As Long</p><p>     lpTemplateName As String</p><p>End Type</p>
   
4. <div>Function GetTextFile() As String</div><div>    Dim ofn As OPENFILENAME</div><div>    Dim rtn As String</div><div>    ofn.lStructSize = Len(ofn)</div><div>    ofn.hwndOwner = CLng(Application.hwnd)</div><div>    'ofn.hInstance = Application.hwnd</div><div>    ofn.lpstrFilter = "text Files (*.txt)" & Chr(0) & "*.txt" & Chr(0)</div><div>    ofn.lpstrFile = Space(254)</div><div>    ofn.nMaxFile = 255</div><div>    ofn.lpstrFileTitle = Space(254)</div><div>    ofn.nMaxFileTitle = 255</div><div>    ofn.lpstrInitialDir = "C:/"</div><div>    ofn.lpstrTitle = "打开文件"</div><div>    ofn.flags = 6148</div><div>    rtn = GetOpenFileName(ofn)</div><div>    </div><div>    If rtn >= 1 Then</div><div>        GetTextFile = ofn.lpstrFile</div><div>    Else</div><div>        </div><div>    End If</div><div>    </div><div>End Function</div>

<p>Public Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long</p><p><br /> </p><p>Type OPENFILENAME</p><p>     lStructSize As Long</p><p>     hwndOwner As Long</p><p>     hInstance As Long</p><p>     lpstrFilter As String</p><p>     lpstrCustomFilter As String</p><p>     nMaxCustFilter As Long</p><p>     nFilterIndex As Long</p><p>     lpstrFile As String</p><p>     nMaxFile As Long</p><p>     lpstrFileTitle As String</p><p>     nMaxFileTitle As Long</p><p>     lpstrInitialDir As String</p><p>     lpstrTitle As String</p><p>     flags As Long</p><p>     nFileOffset As Integer</p><p>     nFileExtension As Integer</p><p>     lpstrDefExt As String</p><p>     lCustData As Long</p><p>     lpfnHook As Long</p><p>     lpTemplateName As String</p><p>End Type</p><br /> <div>Function GetTextFile() As String</div><div>    Dim ofn As OPENFILENAME</div><div>    Dim rtn As String</div><div>    ofn.lStructSize = Len(ofn)</div><div>    ofn.hwndOwner = CLng(Application.hwnd)</div><div>    'ofn.hInstance = Application.hwnd</div><div>    ofn.lpstrFilter = "text Files (*.txt)" & Chr(0) & "*.txt" & Chr(0)</div><div>    ofn.lpstrFile = Space(254)</div><div>    ofn.nMaxFile = 255</div><div>    ofn.lpstrFileTitle = Space(254)</div><div>    ofn.nMaxFileTitle = 255</div><div>    ofn.lpstrInitialDir = "C:/"</div><div>    ofn.lpstrTitle = "打开文件"</div><div>    ofn.flags = 6148</div><div>    rtn = GetOpenFileName(ofn)</div><div>    </div><div>    If rtn >= 1 Then</div><div>        GetTextFile = ofn.lpstrFile</div><div>    Else</div><div>        </div><div>    End If</div><div>    </div><div>End Function</div>

想用以上代码在64位的win7上打开文本框，不知道为什么怎么也用不了，求大神指导！万分感谢！

zzyong00

楼主努力!

xianaihua

将其中的“Application.hwnd”全改为“ThisDrawing.HWnd32”试试！