Office: (Office 2010) Bild auf Und Bild Ab Taste

KTMBOWI · 27. November 2013

Möchte gerne 2 Schaltflächen haben wo ich per vba sage das er die Bildauf und die Bildab Taste auf der Tastatur anspricht.

:)

wb_3001 · 29. November 2013

Hallo KTMBOWI!

Das geht am einfachsten mit SendKeys, ist aber pfui.

Wolfgang

Marsu65 · 29. November 2013

von KTMBOWI

Möchte gerne 2 Schaltflächen haben wo ich per vba sage das er die Bildauf und die Bildab Taste auf der Tastatur anspricht.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nicht nur das,

von Wolfgang

... geht am einfachsten mit SendKeys, ist aber pfui.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gilt, auch funktioniert das nicht mehr auf allen Systemen.

Bevor es eine (Sendkeys-)Alternative per API gibt, könntest du evtl. kurz
erläutern, was passieren soll, wenn die Bildauf/-ab-Tasten gedrückt werden.
Dann kann man die Schaltflächen vlt. direkt mit dieser Funktionalität belegen.

KTMBOWI · 30. November 2013

Habe mein System auf einen Touch laufen!!
Brauche das für ein Kombifeld.
Da ich sehr viele Datensätze habe wenn ich das Kombi öffne, und per Touch sehr blöd ist den Balken zu scrollen.
2 Schaltflächen wären schon okay

daolix · 30. November 2013

hm wäre denn dafür nicht ein listenfeld geeigneter? Sobald auf den button getoucht wird, verliert doch die Combo den Focus und scrollt ein.

die Api wäre:
Code:

Private Declare Sub keybd_event Lib "USER32.DLL" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_PGDN = &H22
Private Const VK_PGUP = &H21
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und dem Aufruf beim Touch
Code:

keybd_event VK_PGDN, &H45, KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_PGDN, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Marsu65 · 30. November 2013

Hallo KTMBOWI,
Lösungsvorschlag:
Code:

Private Sub btnDOWN_Click()
With Me.Kombinationsfeld2
If IsNull(.Value) Then
.Value = .ItemData(0)
Else
If (.ListIndex + .ListRows) > (.ListCount - 1) Then
.Value = .ItemData(.ListCount - 1)
Else
.Value = .ItemData(.ListIndex + .ListRows)
End If
End If
.SetFocus
.Dropdown
End With

End Sub

Private Sub btnDOWN_Enter()
Application.Echo False
End Sub

Private Sub btnUP_Click()
With Me.Kombinationsfeld2
If IsNull(.Value) Then
.Value = .ItemData(0)
Else
If (.ListIndex - .ListRows) < 0 Then
.Value = .ItemData(0)
Else
.Value = .ItemData(.ListIndex - .ListRows)
End If
End If
.SetFocus
.Dropdown
End With
End Sub

Private Sub btnUP_Enter()
Application.Echo False
End Sub

Private Sub Kombinationsfeld2_GotFocus()
Application.Echo True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hinweis: für beide Schaltflächen die Eigenschaft In Reihenfolge auf Nein einstellen.

Wenn dich das Auf- und Zuklappen der Kombibox nicht stört, kannst du auch die Echo-Zeilen
aus dem Code entfernen (Ganz lässt sich das eh nicht vermeiden und schränkt die Gefahr ein,
dass bei einem Fehler gar keine Bildschirmaktualisierungen mehr stattfinden).

BTW: es wäre imho netter gewesen, wenn du bei deinem alten Thema geblieben wärest.
http://ms-office-forum.net/forum/sho...d.php?t=304732

Office: (Office 2010) Bild auf Und Bild Ab Taste

Bild auf Und Bild Ab Taste

Bild auf Und Bild Ab Taste

Bild auf Und Bild Ab Taste

Bild auf Und Bild Ab Taste - Similar Threads - Bild Bild Taste

Feste Verankerung eines Bildes in Kopfzeile lösen

Bilder über VBA Größe und DPI ändern für Webshop

Seitenzahlen sind komplett verschoben....

Bilder lassen sich nicht verschieben

VBA Summe bilden

Excel Range als Bild in Word einfügen

Bilder in einer HTML Mail werden mit Unterstrich angezeigt