Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Immer diese Toolbar
Autor: nessy_Alex
Datum: 18.04.02 15:26
Hallo, Ich habe da ein kleines Problem mit der Toolbar wenn ich auf einen selbst gebauten Nummernblock die Toolbar1 drücke funktioniert mein code einwandfrei '---------------------------Toolbar mit dem Enter Button das dazugehörige Click Erreignis Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) If KasseGrid1.CellText(nZeile, nSpalte) = "" Then Exit Sub Select Case Button.Index 'Selectieren des gedrückten Buttens über den Buttonindex Case Is = 1 'Wenn der gedrückte BUtton den Index 1 besitzt Select Case nSpalte Case Is = 1 KasseGrid1.Col = KasseGrid1.Col + 2 Case Is = 3 KasseGrid1.Col = KasseGrid1.Col + 1 Case Is = 4 KasseGrid1.Col = KasseGrid1.Col + 2 Case Is = 6 KasseGrid1.Col = KasseGrid1.Col + 2 Case Is = 8 KasseGrid1.Col = KasseGrid1.Col + 1 'KasseGrid1.AddRow (KasseGrid1.Rows) End Select End Select End Sub will ich aber über die KeyPreview = True eigenschaft die Tasteneingaben aufzufangen und an meine Toolbar1 weiterzuleiten ist es aus Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Toolbar1_ButtonClick (???????????????) End If End Sub da wo jetzt die fragezeichen stehen zeigt mir die onlinehilfe fogenden eintrag "ByVal Button As MSComctlLib.Button" kann mir vieleicht jemand sagen was ich da reinschreiben muß ? Alex Danke

Immer diese Toolbar	46	nessy_Alex	18.04.02 15:26
Re: Immer diese Toolbar	164	Dieter	18.04.02 19:20
Re: Immer diese Toolbar	23	nessy_Alex	19.04.02 08:39

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