this isn't posted on the website yet, but will be .... sometime ... ~crystal
'***************** Code Start VBA7 32/64 ************** 'modified from code originally written by Ken Getz. 'It is not to be altered or distributed, 'except as part of an application. 'You are free to use it in any application, 'provided the copyright notice is left unchanged. ' ' Code courtesy of: ' Microsoft Access 95 How-To ' Ken Getz and Paul Litwin ' Waite Group Press, 1996 ' ' ----- December 2022 modified for VBA7 32/64 ' by Peter Cole (TMD, ThemeMyDatabase.co.uk) ' and Crystal Long (strive4peace, msAccessGurus.com) ' Many changed statements not commented for adjustment to VBA7. ' Parameter and Type names remain the same for backward compatibility ' (see commment below code) ' ' API: Call the standard Windows File Open/Save dialog box ' http://www.theaccessweb.com/api/api0001.htm ' Type tagOPENFILENAME lStructSize As Long hWndOwner As LongPtr hInstance As LongPtr strFilter As String strCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long strFile As String nMaxFile As Long strFileTitle As String nMaxFileTitle As Long strInitialDir As String strTitle As String Flags As Long nFileOffset As Integer nFileExtension As Integer strDefExt As String lCustData As LongPtr lpfnHook As LongPtr lpTemplateName As String '#if (_WIN32_WINNT >= 0x0500) '+ pvReserved As LongPtr '+ dwReserved As Long '+ FlagsEx As Long '+ '
Tidak ada komentar:
Posting Komentar