[VB6] aumentare dimensione barra scorrimento

[galavott]

Ciao,
vorrei aumentare la dimensione della scrollbar di un controllo combobox in modo da poter essere facilmente selezionabile su un monitor touch screen.


Questo è il controllo con la solita dimensione
+----------+---+
|..............|.V.|
+----------+---+

Questa è la dimensione minima per poter essere selezionata agevolmente

+----------+-------+
|..............|..........|
|..............|....V....|
|..............|..........|
+----------+-------+

Grazie a tutti

[Jeremy75]

Potresti farti un controllo personalizzato...oppure, mi sembra di ricordare che, se aumenti la dimensione del testo della combo, automaticamente si dimensiona per contenere tutto il testo in altezza..

Facci sapere...
Ciao

[galavott]

Ciao,
sì posso farmi un controllo personalizzato ma prima cercavo qualche altra strada già percorsa, tipo chiamata alle API.
Se allarghi il font la barretta per lo scroll si allunga ma non si allarga, in larghezza rimane sempre uguale.

Ciao

[oregon]

Quello che si puo' fare e' questo

Private Const CB_SETITEMHEIGHT = &H153

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Form_Load()
    Call SendMessage(Combo1.hwnd, CB_SETITEMHEIGHT, -1&, ByVal 30&)
End Sub

[galavott]

Ciao, ho provato e ho capito.
Ho cercato CB_SETITEMHEIGHT e ho visto sull'msdn tutte le chiamate alle API.
Come hai scritto tu non esiste un message per allargare la barra dello scroll.

Grazie Grazie della risposta.

[oregon]

Puoi inserire un pulsante sopra il combo e aprirlo con quello.

[galavott]

Sì ma il problema è scorrere la lista degli elementi della combo, con il dito non si riesce.
Lo stesso problema c'è sui cellulari Win non ha previsto (di default) la possibilità di usare BENE lo scroll con le dita.

Ho risolto usando una textbox che al click apre una nuova finestra con dei bei pulsantoni per le scelta.

Grazie Ancora.