VBA-Beispiel 142
mail schreiben
mail schreiben

Demo Slider (Schieberegler)

Im Beispiel kann mit dem Schieberegler (Slider) zur Laufzeit die Breite zweier ListBoxen verändert werden.
Private Sub UserForm_Initialize()

  With Me
    With .Slider1
      .Max = Me.ListBox1.Width * 2
      .SelStart = .Max / 2
    End With

    With .ListBox1
      .BorderColor = RGB(127, 157, 185)
      .AddItem "Hans Magnus Enzensberger"
      .AddItem "Irmgard Waltraut Schmidt"
      .AddItem "Karl Müller Lüdenscheid"
    End With

    With .ListBox2
      .BorderColor = RGB(127, 157, 185)
      .AddItem String(30, "a")
    End With
  End With

End Sub

Private Sub Slider1_Scroll() With Me .ListBox1.Width = .Slider1 .ListBox2.Left = .ListBox1.Width + 15 .ListBox2.Width = Me.Width - .ListBox1.Width - 30 End With End Sub
Private Sub cmbCancel_Click() Unload Me End Sub
'----------------------------------------------------------- 'Microsoft Slider Control, version 6.0 '----------------------------------------------------------- 'zusätzliche Steuerelemente einbinden: ' das Fenster "Werkzeugsammlung" muß sichtbar sein ' Menü: Ansicht/Werkzeugsammlung 'dann über Menü: Extras/zusätzliche Steuerelemente ' aus dem Fenster "weitere Steuerelemente" ' den Eintrag: Microsoft Slider Control, version 6.0 ' anklicken und auf OK klicken 'in der Werkzeugsammlung: ' die Werzeugsammlung hat jetzt ein zusätzliches Symbol (Slider) ' Symbol anklicken und in der UserForm aufziehen... 'Hinweis: ' Versionsangaben können je nach Office-Version variieren. '-----------------------------------------------------------

Download:   vba142.zip