掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リストボックスで長い文字列を見るには？ (ID：111113)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
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 Public Const LB_SETHORIZONTALEXTENT = &H194 Private Sub Form_Load() Dim lngWidth As Long Dim i As Integer List1.AddItem text1.Text For i = 0 To List1.ListCount - 1 If lngWidth < TextWidth(List1.List(i) & " ") Then lngWidth = TextWidth(List1.List(i) & " ") End If Next If ScaleMode = vbTwips Then lngWidth = lngWidth / Screen.TwipsPerPixelX End If Call SendMessageByNum(List1.hwnd, LB_SETHORIZONTALEXTENT,lngWidth, 0) End Sub こんなかんじで何とかできました。 ありがとうございました。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.