Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ereignis ohne Lostfocus.
Autor: B.Jones
Datum: 26.11.02 14:47
Hi , ich denke, daß Du die events nicht beeinflussen kannst. Aus diesem Grund musst Du im lostfocus des jeweiligen controls den Tabindex in einer Variablen merken. Im Code der beiden Forms : private theLastFocus as long property get myLastFocus as long mylastFocus = theLastFocus end property Property Let myLastFocus(aTabindex As Long) theLastFocus = aTabindex End Property sub text1_LostFocus() myLastFocus = text1.tabindex end sub Code in einem Modul (z.B. FormMethods) Function setFocusOnForm(aForm As Form, myTabIndex As Integer) As Boolean Dim element As Object For Each element In aForm If element.TabIndex = myTabIndex Then If element.Visible = False Or element.Enabled = False Then setFocusOnForm = False Else element.SetFocus setFocusOnForm = True End If Select Case TypeName(element) Case "TextBox", "MaskEditBox" element.SelStart = 0: element.SelLength = Len(element.Text) 'text markieren End Select Exit For End If Next End Function Zurückswitchen auf die andere Form : setFocusOnForm (frm1,frm1.myLastFocus) das sollte klappen, habs aber nicht endgültig getestet, aber das machen bei MS ja auch die Anwender

Ereignis ohne Lostfocus.	49	Kally12	26.11.02 13:48
Re: Ereignis ohne Lostfocus.	213	B.Jones	26.11.02 14:47

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen