[AccessD] Specifying where to open browser

Kathryn Bassett kathryn at bassett.net
Tue May 27 18:35:22 CDT 2003


There is an event procudure that opens the "look in" browser. What would I add to the below (and where) to get the blasted thing to open in the center of my screen instead of the upper left of the screen. I need to see upper left portion of the underlying form, to remind me of the name of the person I'm looking for in the "look in", and the way it is now, I have to drag it out of the way.

Thanks,

Private Sub btnbrowse_Click()
         Dim OpenFile As OPENFILENAME
         Dim lReturn As Long
         Dim sFilter As String
         OpenFile.lStructSize = Len(OpenFile)
         OpenFile.hwndOwner = Me.hWnd
         OpenFile.hInstance = 0
         sFilter = "" & Chr(0)
         OpenFile.lpstrFilter = sFilter
         OpenFile.nFilterIndex = 1
         OpenFile.lpstrFile = String(257, 0)
         OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
         OpenFile.lpstrFileTitle = OpenFile.lpstrFile
         OpenFile.nMaxFileTitle = OpenFile.nMaxFile
         ' Start looking in the same directory as the database
         OpenFile.lpstrInitialDir = "D:\MyFiles\Online\muir63\photos63\"
         ' Set the caption on the dialog
         OpenFile.lpstrTitle = "Select Photo"
         OpenFile.flags = 0
         lReturn = GetOpenFileName(OpenFile)
         txtPhoto = Left$(OpenFile.lpstrFile, InStr(OpenFile.lpstrFile, Chr$(0)) - 1)

--
Kathryn Rhinehart Bassett (Pasadena CA)
"Genealogy is my bag" "GH is my soap"
kathryn at bassett.net
http://bassett.net  



More information about the AccessD mailing list