fkeys an userform

Hallo Markus
Versuch's mal in etwa so ;-)
In ein Klassenmodul (Name = 'cUFC')

Option Explicit
Private WithEvents b As MSForms.CommandButton
Private WithEvents t As MSForms.TextBox
Public Function Create(c As MSForms.Control) As Object

    Set Create = Nothing

    If TypeOf c Is MSForms.CommandButton Then
        Set b = c
        Set Create = Me
    ElseIf TypeOf c Is MSForms.TextBox Then
        Set t = c
        Set Create = Me
    End If

End Function
Private Sub b_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyF5 Then
        KeyCode = 0
        MsgBox "taste f5 wuerde gedrueckt"
    Else
        MsgBox "irgendwas wurde gedrueckt"
    End If
End Sub
Private Sub t_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyF5 Then
        KeyCode = 0
        MsgBox "taste f5 wuerde gedrueckt"
    Else
        MsgBox "irgendwas wurde gedrueckt"
    End If
End Sub

Dann im 'Activate'-Event Deiner UserForm ...

Option Explicit
Dim UFControls() As cUFC
Private Sub UserForm_Initialize()

    Dim item As MSForms.Control
    Dim n%: n = -1

    For Each item In Me.Controls

        n = n + 1

        ReDim Preserve UFControls(n)

        Set UFControls(n) = New cUFC

        UFControls(n).Create item

    Next

End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Gruß
Thomas
Risi Thomas Softwareentwicklung

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyF5 Then KeyCode = 0 MsgBox "taste f5 wuerde gedrueckt" Else MsgBox "irgendwas wurde gedrueckt" End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: fkeys an userform

22.05.2004 19:46:03

andre

AW: fkeys an userform

22.05.2004 20:10:51

markus

AW: fkeys an userform

22.05.2004 20:19:10

andre

AW: fkeys an userform

22.05.2004 21:01:58

Thomas Risi

AW: fkeys an userform

22.05.2004 22:45:46

Nepumuk

Kommando zurück!!

22.05.2004 22:52:37

Nepumuk

AW: fkeys an userform

23.05.2004 10:22:24

markus

Hallo Markus,
das geht nicht, siehe auch die Hilfe: Das Formular oder Steuerelement mit dem Fokus empfängt alle Tastenanschläge. Ein Formular kann den Fokus nur erhalten, wenn es keine Steuerelemente enthält oder alle sichtbaren Steuerelemente deaktiviert sind.
Einen Tip gibt ActiveVB. http://www.activevb.de/tipps/vb6tipps/tipp0070.html
Das Modul Timer1_Timer müsstest Du mit Application.OnTime versuchen zu realisieren. Wenn es denn funktioniert wird es aber wahrscheinlich auch Ressourcen kosten, denn Du müsstest ja in kurzen Abständen abfragen. Die Funktionstastenabfrage steckt hier: For X = 112 To 127
If CompKey(X, "F" & CStr(X - 111)) Then Exit Sub
Next X
Userbild

Hoffe geholfen zu haben

Grüße aus Gera

Private Function WasIstLos(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyF5 Then KeyCode = 0 MsgBox "taste f5 wuerde gedrueckt" Else MsgBox "irgendwas wurde gedrueckt" End If End Function

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread