03. maj 2008 - 11:08Der er
7 kommentarer og 1 løsning
VBA - Skjule scrollbar i listbox
Hey, Ka det lade sig gøre at skjule den vertikale srollbar i en listbox, som jo fremkommer når der er flere poster end boxen kan vise. Hvis ja - så er spørgsmålet jo så: Hvordan? Vh nicolaus
Nej, jeg er temmelig sikker på at du ikke kan 'slukke' scrollbaren, men du kan styre hvor mange rækker der vises før der kommer en scrollbar ved at angive en værdi til 'ListRows Property'.
Default er 8, men du kan ændre det til fx 20, el. 100 for den sags skyld.
The following example uses a SpinButton to control the number of rows in the drop-down list of a ComboBox. The user changes the value of the SpinButton, then clicks on the drop-down arrow of the ComboBox to display the list.
To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains:
A ComboBox named ComboBox1.
A SpinButton named SpinButton1.
A Label named Label1. Private Sub UserForm_Initialize() Dim i As Integer
For i = 1 To 20 ComboBox1.AddItem "Choice " & (ComboBox1.ListCount + 1) Next i
SpinButton1.Min = 0 SpinButton1.Max = 12 SpinButton1.Value = ComboBox1.ListRows Label1.Caption = "ListRows = " & SpinButton1.Value End Sub
Private Sub SpinButton1_Change() ComboBox1.ListRows = SpinButton1.Value Label1.Caption = "ListRows = " & SpinButton1.Value End Sub
Umiddelbart ser det ud til, at "ListRows" kun virker med ComboBox og ikke ListBox. Det godt nok trist man ikke kan skjule scrollbars i ListBox. Stor stor mangel i VBA!
Efter intens søgning på nettet, virker det til at det er komplet umuligt. Så der er vist ikke mere at komme efter. Jeg vil gerne gi dig point for dit engagement, hvis du smider et svar. nicolaus
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.