End Sub
Sub ListToArray(list As Object, Ar$())
Dim i&, listCount&
ReDim Ar(list.listCount - 1)
For i = 0 To list.listCount - 1
Ar(i) = list.list(i)
Next
End Sub
Sub ToolTipList(oc_list As Object, x As Single, y As Single)
'-----------------
' Call oc_list ListBox
' x ตำแหน่งในแนวแกน x
' y ตำแหน่งในแนวแกน y
' eg. ว่างซับโปรแกรมนี้ที่ Movemouse even ของ ListBox
'-----------------------------
Dim YPos As Integer, iOldFontSize As Integer
iOldFontSize = Screen.ActiveForm.Font.size
Screen.ActiveForm.Font.size = oc_list.Font.size
YPos = y \ Screen.ActiveForm.TextHeight("Xyz") + oc_list.TopIndex
Screen.ActiveForm.Font.size = iOldFontSize
If YPos < oc_list.listCount Then
oc_list.ToolTipText = oc_list.list(YPos)
Else: oc_list.ToolTipText = ""
End If
End Sub
Listbox - Horizontal Scrolling
By: Microsoft
Create a new Standard EXE project in
Visual Basic. Form1 is created by default.
Add a CommandButton and a ListBox to Form1.
declaration section of Form1:
Option Explicit
Private Declare Function SendMessageByNum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const LB_SETHORIZONTALEXTENT = &H194
Private Sub Command1_Click()
Dim s As String
Static x As Long
s = InputBox("Please enter any text", "List scroll", "this is a simple scrollbar sample for demonstration purposes")
List1.AddItem s
If x < TextWidth(s & " ") Then
x = TextWidth(s & " ")
If ScaleMode = vbTwips Then _
x = x / Screen.TwipsPerPixelX ' if twips change to pixels
SendMessageByNum List1.hwnd, LB_SETHORIZONTALEXTENT, x, 0
End If
End Sub
โพโต้ วิชั่นประจำสัปดาห์
คอลัมน์ประจำ 
กรุณาปรับแต่งดังนี้ครับ
Visual basic
