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