Dropdownhöhe der ComboBox ändern

Dropdownhöhe der ComboBox ändern via MoveWindow
Private Declare Function MoveWindow Lib "user32" _
(ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, _
ByVal nWidth As Long, ByVal nHeight As Long, _
ByVal bRepaint As Long) As Long
Private Sub cmdExit_Click()
End
End Sub
Private Sub Form_Load()
Dim x%
With Combo1
For x = 0 To 50
.AddItem "String " & x
.AddItem "String " & x + 2
Next x
End With
Combo1.ListIndex = 0
Text1.Text = "150"
Text1.SelLength = Len(Text1.Text)
End Sub
Function SetDropDown(Yn&)
Dim y&, ys&
ys = Screen.Height / Screen.TwipsPerPixelY
If Yn > ys Then Yn = ys / 2
With Combo1
y = .Parent.ScaleMode
.Parent.ScaleMode = vbPixels
MoveWindow .hwnd, .Left, .Top, .Width, Yn, 1
.Parent.ScaleMode = y
End With
End Function
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then '13 = Enter
If Text1.Text <> vbNullString Then
If Text1.Text < 100 Then Text1.Text = 100
If Text1.Text > 800 Then Text1.Text = 800
SetDropDown (Abs(CLng(Text1.Text)))
Me.Height = Combo1.Height + 400
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case Chr(KeyAscii)
Case "0" To "9"
Case Chr(vbKeyBack)
Case Else
KeyAscii = 0
End Select
End Sub

Mehr Tipps: Anwendungen schließen und neu öffnen, sowie Internet-Browser im Minutentakt neu öffnen

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt