Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
quick focus help needed
- Thread starter mettodog
- Start date
Yes
The previous form's LostFocus event will fire...if you're shifting focus.
In the Lostfocus event you can maybe set a global flag determining the last form that had the focus. The form receiving the focus, queries that flag & sets it to itself since it now has focus.
Have fun
caf
The previous form's LostFocus event will fire...if you're shifting focus.
In the Lostfocus event you can maybe set a global flag determining the last form that had the focus. The form receiving the focus, queries that flag & sets it to itself since it now has focus.
Have fun
caf
- Thread starter
- #3
- Thread starter
- #4
(outside of any sub....)
Option Explicit
Global gblLastFormName As String
Global gblCurrentFormName As String
In your form_load events.....trap the form name
Sub Form_Load
gblLastFormName = gblCurrentFormName
gblCurrentFormName = Form.Name
End Sub
This way you have a "rolling" value of present and last form names.
This should get you started.
John
Option Explicit
Global gblLastFormName As String
Global gblCurrentFormName As String
In your form_load events.....trap the form name
Sub Form_Load
gblLastFormName = gblCurrentFormName
gblCurrentFormName = Form.Name
End Sub
This way you have a "rolling" value of present and last form names.
This should get you started.
John
- Thread starter
- #6
I think I know what you after. Put this code in a module.
Public Function CallingForm(ByVal hWnd As Long) As Form
'Return the Form that launched the given Window
Dim lHwnd As Long
Dim oForm As Form
'get the Handle of the Window that Loaded this Window
lHwnd = GetNextWindow(hWnd, GW_HWNDNEXT)
'Find a match in the "Forms" collection
'and return a reference to it
For Each oForm In Forms
If oForm.hWnd = lHwnd Then
Set CallingForm = oForm
Exit For
End If
Next
End Function
And then you will reference (lets say a text box on that form) this previous active form like this
Callingform(hwnd).text1.text = "NEW TEXT"
David Paulson
Public Function CallingForm(ByVal hWnd As Long) As Form
'Return the Form that launched the given Window
Dim lHwnd As Long
Dim oForm As Form
'get the Handle of the Window that Loaded this Window
lHwnd = GetNextWindow(hWnd, GW_HWNDNEXT)
'Find a match in the "Forms" collection
'and return a reference to it
For Each oForm In Forms
If oForm.hWnd = lHwnd Then
Set CallingForm = oForm
Exit For
End If
Next
End Function
And then you will reference (lets say a text box on that form) this previous active form like this
Callingform(hwnd).text1.text = "NEW TEXT"
David Paulson
- Thread starter
- #8
YES! thats exactly what i needed, but one question, the form that i want to call the text(rtf) box form is a new version of another form, do you understand what i mean? Dim MyForm as New ThisIsMyForm. So will it work then? Because every new *file-new* form that i create, is named MyForm. So will this still work?
- Status
