VB6 - ListBox에 가로 스크롤 추가

VB6에서는 목록 상자에 가로 스크롤이 없으므로 텍스트의 길이가 ListBox의 너비보다 긴 경우에는 꽤 알 수 있습니다.

이를 위해서는 디자인에 반드시 필요한 것은 아닌 비율로 listBox를 확장해야합니다.
이 몇 줄의 코드는 ListBox에서 가로 스크롤을 생성합니다.
새 프로젝트를 엽니 다.
폼의 모듈에 아래의 코드를 붙여 넣습니다.

 Option 명시 적 Private Const LB_SETHORIZONTALEXTENT = & H194 개인 선언 함수 SendMessage Lib "user32"별칭 "SendMessageA"(ByVal hwnd Long, ByVal wMsg Long, ByVal wParam As Long, lParam As Any) Long 전용 하위 Form_Load () Dim Lg As Integer, L As Integer, Va As String, i As Integer 'ListesAddItem Va L = TextWidth (List1 ()), i = 0에서 20 Va = Va 및 "Test"& i " .List (i)) If Lg List1.Width Then HorizontalSrcoll List1, Lg End If End Sub '가로 스크롤 어댑터. 개인 서브 HorizontalSrcoll (Lt As Control, Lg As Integer) 긴 Dim ScrollMax As Long ScrollMax = (Lg / Screen.TwipsPerPixelX) + 6 Ret = SendMessage (Lt.hwnd, LB_SETHORIZONTALEXTENT, ScrollMax, 0 &) End Sub

프로젝트 다운로드 :