Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Programm in Entwicklungsumgebung ausführen...
Autor: Ronny42DAch
Datum: 10.01.02 09:52
Habe ein Sub das mir be bedarf die Defaultwerte des ParentForm meines Usercontols auf False schaltet und kann es aber nicht in der Entwicklungsumgebung ausführen lassen - ist das irgendwie möglich? MFG - Danke Private Sub DefaultFalse() Dim intCount As Integer Dim ctrl As Control On Error Resume Next Set ParentForm = UserControl.Parent ReDim Controls(ParentForm.Controls.Count - 1) As TCtlInfo For intCount = 0 To ParentForm.Controls.Count - 1 Set Controls(intCount).ctrl = ParentForm.Controls(intCount) Next Static blnExec As Boolean If blnExec Then Exit Sub On Error Resume Next 'Alle Controls Default = False For intCount = 0 To UBound(Controls) With Controls(intCount) On Error Resume Next .ctrl.Default = False End With Next End Sub

Programm in Entwicklungsumgebung ausführen...	189	Ronny42DAch	10.01.02 09:52
Re: Programm in Entwicklungsumgebung ausführen...	102	Martoeng	18.01.02 13:03
wurde gelöst!	122	Ronny42DAch	20.01.02 05:01

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