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 Const LB_SETHORIZONTALEXTENT = &H194
Private Sub SetScrollHorizontal()
Dim i As Integer
Dim new_len As Long
Dim max_len As Long
For i = 0 To List1.ListCount - 1
new_len = 10 +
ScaleX(TextWidth(List1.List(i)), ScaleMode, vbPixels)
If max_len < new_len Then max_len = new_len
Next i
SendMessage List1.hwnd, _
LB_SETHORIZONTALEXTENT, _
max_len, 0
End Sub
Semoga dapat membantu...
sekedar saran...googling juga dapat bantuin kita buat
solve masalah2 kita di vb...
sukses buat semua...
--aL--
__________________________________
Yahoo! Mail - PC Magazine Editors' Choice 2005
http://mail.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
Get Bzzzy! (real tools to help you find a job). Welcome to the Sweet Life.
http://us.click.yahoo.com/A77XvD/vlQLAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
