[vB6] Disabilitare scrollbar in listbox

[max.86]

qualcuno sa come fare?
possibilmente usando pochie righe di codice...

grazie

[max.86]

up

[matpez]

Eccomi tornato dalla week end in bianco

Option Explicit

Private Declare Function EnableScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wSBflags As Long, ByVal wArrows As Long) As Long

Private Const SB_HORZ = 0   ' horizontal scrollbar
Private Const SB_VERT = 1   ' vertical scrollbar
Private Const SB_CTL = 2    ' scollbar control
Private Const SB_BOTH = 3   ' both horiz & vert scrollbars

Private Const ESB_ENABLE_BOTH = &H0   ' enable both arrows
Private Const ESB_DISABLE_LTUP = &H1  ' disable left/up arrows
Private Const ESB_DISABLE_RTDN = &H2  ' disable right/down arrows
Private Const ESB_DISABLE_BOTH = &H3  ' disable both arrows

Private Sub Form_Load()

' disable the vertical scrollbar of a ListBox control
EnableScrollBar List1.hwnd, SB_VERT, ESB_DISABLE_BOTH

End Sub

[max.86]

la tecnica funziona... ma io volevo che la scroll sparisse del tutto...

[matpez]

Originariamente inviato da max.86
la tecnica funziona... ma io volevo che la scroll sparisse del tutto...

Bhe ma tu nel titolo hai scritto DISABILITARE

[max.86]

beh si.. è vero.. ma intendevo disabilitata nel senso che nn fosse usata\mostrata

[matpez]

Eccoti accontentato

Private Declare Function FlatSB_ShowScrollBar Lib "comctl32" (ByVal hWnd As Long, ByVal code As Long, ByVal fShow As Boolean) As Boolean

Private Const SB_HORZ = 0
Private Const SB_VERT = 1
Private Const SB_BOTH = 3

Private Sub Form_Load()

  FlatSB_ShowScrollBar List1.hWnd, SB_VERT, False

End Sub

[max.86]

nn va
restano sempre li... e nn da errori

grazie per la pazienza cmq

[matpez]

Controlla che si chiami List1 la tua lista....e poi non è possibile che nn vada, da me gira!

Al massimo passami il progetto che vediamo dov'è l'errore!

[max.86]

no.. la lista si chiama lstnum, infatti l'ho cambiata...

forse ho capito... mi manca questa libreria comctl32
dove posso controllare se c'è?

[matpez]

Prova qui: http://www.dll-files.com/dllindex/dl...shtml?comctl32

[max.86]

nisba...
posso contattarti via ICQ o simili?

[matpez]

se hai mirc mi trovi di sera sempre nella rete di quakenet sul chan #gre.it

Icq nn lo apro mai!

Altrimenti contattami in pvt