Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

tabstrip
Autor: Rnatnplan
Datum: 27.12.02 17:36
Hallo Leute Ich hab mir den tipp von euch mal angeschaut und wollt mit dem auch mal herumprobieren. http://www.vbarchiv.net/archiv/tipp_details.php?pid=364 Ich hab auch mal picture1 durch frame1 ersetzt. kann mir mal einer sagen, warum die fehlermeldung "Methode oder Mitgliedsdaten nicht gefunden" kommt?? Die bringt er auf Frame1(nTab - 1).SetFocus . hier nochmal der ganze code:   Private Sub Form_Load() Dim I As Integer With Frame1(0) For I = 1 To Frame1.UBound Frame1(I).Move .Left, .Top, .Width, .Height Next I End With SetTabStrip 1 End Sub Private Sub SetTabStrip(ByVal nTab As Integer) Dim I As Integer Dim Result As Integer With TabStrip1 Result = False If Not .SelectedItem Is Nothing Then Result = (.SelectedItem.Index = nTab) If Not Result Then DoEvents .SelectedItem = .Tabs(nTab) .Refresh DoEvents End If For I = 0 To Frame1.UBound Frame1(I).Visible = (I = nTab - 1) Next I Frame1(nTab - 1).ZOrder 0 DoEvents On Local Error Resume Next Frame1(nTab - 1).SetFocus SendKeys "(TAB)", True On Local Error GoTo 0 End With End Sub Private Sub TabStrip1_click() With TabStrip1 If Not .SelectedItem Is Nothing Then SetTabStrip .SelectedItem.Index End If End With End Sub mit bestem dank im vorraus Grüße Marco

tabstrip	122	Rnatnplan	27.12.02 17:36
Re: tabstrip	518	Dieter	27.12.02 17:44
Re: tabstrip	70	rantanplan	27.12.02 17:49
Re: tabstrip	518	Dieter	27.12.02 17:52
Re: tabstrip	64	rantanplan	27.12.02 18:06
Re: tabstrip	458	Dieter	27.12.02 18:10
Re: tabstrip	67	rantanplan	27.12.02 18:15

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