| 投稿日 | ： 2006/09/02(Sat) 09:01 |
| 投稿者 | ： ZET |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: ファイルリストボックスに横スクロールバー |
花ちゃんさん、neptuneさん 有難うございます。
でも、私が思っているのとは少し違います。
ネットで拾った下記ソースをそんまま使うとすぐできるのですが、
わたしのは、その間にいろいろ書き込んでいますのでその辺がよく分かりません。
----------------------------------------------------------
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
'横スクロールバー追加
Private Const LB_SETHORIZONTALEXTENT = &H194
Private Sub Form_Load()
Dim lngRet As Long
'第三引数はスクロール幅となる
lngRet = SendMessage(Me.List1.hwnd, LB_SETHORIZONTALEXTENT, 240, 0)
End Sub
----------------------------------------------------------
因みに私のリストボックスのソースは
----------------------------------------------------------
'DWGファイルリストに同じ名前がないかチェックし、
'なかったらリストに追加する
Sub SameFileChk(FullName As String)
Dim j As Integer
j = 0
If DwgList.listcount <> 0 Then
'DWGファイルリストが空ではない時
For i = 0 To DwgList.listcount - 1
If FullName = DwgList.List(i) Then
'ファイルリストの名前と同一の時
j = 1
Exit For
Else
'ファイルリストに名前がない時
j = 0
End If
Next
End If
'ファイルリストに名前がなければ追加
If j = 0 Then
DwgList.AddItem FullName
End If
End Sub
----------------------------------------------------------
↑こんな感じです。ここに単純に先のソースを組み込めば出来る
と思ったのですが甘かったです。上のソースは実行時にエラーが
でます。リストボックスを大きくしても実行後の大きさは変わりません。
よく分からないです。宜しくお願いいたします。