Active form in Module 1

[poltergeist]

I'm a little confused today, so how I to know the active form object in a global module, In this moment i'm using ME like a parameter but it's not very good

 

[johnwm]

That's just what Me is for!

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[DrJavaJoe]

You pass the form object to the procedure such as:

'Form Module
Private Sub Form_Load()
Center me
End Sub

'Global Module
Public Sub Center(frm As Form)
frm.Left = (Screen.Width - frm.Width) / 2
frm.Top = (Screen.Height - frm.Height) / 2
End Sub

 

[poltergeist]

Yes this I 'm properly doing, but I think their must be any option to verify the active form in the Global Code.

 

[DrJavaJoe]

I suppose you could do something like:

Public Sub Center(frm As Form)
if frm.Name = "frmMain" then
frm.Left = (Screen.Width - frm.Width) / 2
frm.Top = (Screen.Height - frm.Height) / 2
end if
End Sub

 

[poltergeist]

Boy and girls

I'm doing this:
so it's good


Sub Jump(Key1 As Integer, Frm As Form)
Dim i, NewTabIndex As Integer
With Frm
Select Case Key1
Case 13
NewTabIndex = .ActiveControl.TabIndex + 1
Case 39
If .ActiveControl.SelStart = Len(.ActiveControl.text) Then _
NewTabIndex = .ActiveControl.TabIndex + 1 Else GoTo termino
Case 37
If .ActiveControl.SelStart = 0 Then _
NewTabIndex = .ActiveControl.TabIndex - 1 Else GoTo termino
Case Else
GoTo termino
End Select
If NewTabIndex = -1 Then
NewTabIndex = .Controls().Count - 1
ElseIf NewTabIndex = .Controls().Count Then
NewTabIndex = 0
End If
For i = 0 To .Controls().Count - 1
If .Controls(i).TabIndex = NewTabIndex Then Exit For
Next i
.Controls(i).SetFocus
termino:
End With
End Sub


thanks for your time

 

[johnwm]

<off-topic>
I'm sure that you realise that:[tt]
Dim i, NewTabIndex As Integer[/tt]

has Dim'd i as a variant and NewTabIndex as an Integer

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[strongm]

Screen.ActiveForm