ベストアンサー

VBAのリストボックスで、横スクロールバーを表示するには？

2005/11/21 17:41

お世話になります。今、Excel_VBAで、あるデータをリスト表示にしているのですが、ながいデータになりますので水平スクロールバーをつけたいと思います。標準のプロパティにはないので、"SendMessage"APIを使用し、コーティングをしているのですがうまくいきません。 [標準モジュール] Public 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 Sub Form_Load() List1.AddItem "あああああああああああ" List1.AddItem "いいいいいいいいいいい" List1.AddItem "ううううううううううう" lRtn = SendMessage(List1.hwnd,LB_SETHORIZONTALEXTENT, 240, 0) 　　　　　　　　　　　　 End Sub 以上を実行すると、上記の"List1.hwnd"のhwndの部分でエラーになってしまいます。エラー内容は、「メソッドまたはデータメンバがみつかりません」です。宜しくお願い致します。

kyo----
お礼率94% (324/342)

Visual Basic
回答数2
ありがとう数2

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

pen_pen_pen
ベストアンサー率65% (52/79)

2005/11/22 00:15 回答No.1

回答ではないのですが。 VBAのリストボックスはハンドルを持たないので、List1.hWndと書いてもエラーになります。参考にされたコードはVB6.0のものと思います。 VB6のリストボックスならばハンドルが取れるので、使えるのです。私もVBAで横スクロールバーを出したいなっと思ったのですがなかなか面倒・・・というかやりかたを見つけ出せず、私の場合リストボックスは使わずにリストビューを使うのが通常になっています。もし可能ならば、その線もご検討なさってはいかがでしょうか？リストビューなら縦横自由にスクロールバーは出せるし、列の幅をユーザーが自由に動かせます。スクロールするときにマウスホイールにも反応します。回答でなくてすみません。

質問者

お礼 2005/12/28 09:58

PCの調子が悪く、返答が遅くなり大変申し訳御座いません！！何とか解決いたしました。有難う御座いました。

その他の回答 (1)

jmh
ベストアンサー率23% (71/304)

2005/11/23 07:18 回答No.2

ハンドルは、　Dim c As Control 　Set c = ListBox1 　Debug.Print c.[_GethWnd] って、取り出せると思います。でも、SendMessage(LB_SETHORIZONTALEXTENT) が効くのかな？素朴に ColumnWidths を設定するのはどうかしら？

質問者

お礼 2005/12/28 09:59

PCの調子が悪く、返答が遅くなり大変申し訳御座いません！！何とか解決いたしました。有難う御座いました。

関連するQ&A

「&HFFFF」「&H1A」とは？
はじめまして。 vb6.0の開発をしている者です。表題にもありますように、「&HFFFF」「&H1A」は何を指しているのでしょうか？実際は以下のように記述しています。 l = SendMessage("&HFFFF", "&H1A", 0, "windows") Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lparam As String) As Long 初歩的な質問で申し訳ないのですが、なかなかこれだ！という情報を見つけれずにいます。よろしくお願いします。
- 締切済み
- Visual Basic
VB.NETのSendMessageを教えてください
SendMessageというAPIを試しているのですが、まず試しに Button2.Text = "test" と同じ結果をSendMessageでやってみたいのですが下のようにしてみたのですが、変更になりませんでした。どのようにすれば良いかご教授頂ければ幸いです。よろしくお願致します。 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer Private Const WM_SETTEXT As Integer = &HC Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim h As Integer h = Me.Button2.Handle.ToInt32 SendMessage(h, WM_SETTEXT, 0&, "test") End Sub VB.NET2003 FrameWork1.1 WindowsXP-PRO(SP2) です。
- ベストアンサー
- Visual Basic
ExcelVBAで他のアプリをスクロールさせたい
エクセルVBAから他のアプリのスクロールバーを操作して、指定範囲で画面スクロールしたいと思っています。キー入力では操作出来ない（マウス操作でのみスクロールされる）アプリなので、 Sendkeysは使えないのではないかと思い、 APIでハンドルを取得して、 SendMessageすればできるかなと思いましたが、APIについてよく分からないので、とりあえず、メモ帳で以下を作成してみました。しかし、スクロールされません。どこがいけないのか教えていただけないでしょうか？よろしくお願いします。＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Public Declare Function FindWindowA Lib "User32" (ByVal cnm As String, ByVal cap As String) As Long Public Declare Function SendMessage Lib "User32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const WM_VSCROLL = &H115 Public Const WM_HSCROLL = &H114 Public Const SB_TOP　= &H6& Public Const SB_BOTTOM　= &H7& Sub handle_get() 　Dim Handle As Long 　Dim Ap1 As String 　Ap1 = "a.txt - メモ帳" 　AppActivate Ap1 　Handle = FindWindowA(vbNullString, Ap1) 　SendMessage Handle, WM_VSCROLL, SB_BOTTOM, ByVal CLng(0) 　SendMessage Handle, WM_HSCROLL, SB_TOP, ByVal CLng(0) End Sub ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
- ベストアンサー
- その他（プログラミング・開発）
WinAPIで電卓をクリック
現在、WinAPIを勉強しており、練習としてVBAを用いて、電卓アプリのボタンをクリックしようとしています。キーを送るのではなく、クリックで行いたいたいと考えています。ボタンのハンドルを取得するところまではできましたが、sendMessageでクリックできず、EditBoxに数字が入りません。どのようにすればよいのかご教授ください。よろしくお願い致します。環境: WinXP home、 Excel2002、Win付属アプリの電卓v5.1 ---作成したプログラム---- '標準モジュールの中身 Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long 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 Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hWnd As Long) As Long Private Const WM_LBUTTONDOWN = &H201 Private Const WM_LBUTTONUP = &H202 Sub Main() Dim lngWindWnd As Long 'ウィンドウハンドル Dim ret As Long Dim hCalc As Long 'アプリケーションタイトルより、ウィンドウハンドルを得ます lngWindWnd = FindWindow(vbNullString, "電卓") '８ボタンのハンドル（確実に取れていることを確認 hCalc = FindWindowEx(lngWindWnd, 0, "Button", "8") ret = SetForegroundWindow(lngWindWnd) ret = SendMessage(hCalc, WM_LBUTTONDOWN, 0, 0) End Sub
- ベストアンサー
- Visual Basic
EXCELVBA フォルダ検索API
エクセルからVBAでフォルダを選択させるコマンドを、APIを使ってフォルダ検索ダイアログボックスを出すまでは見よう見真似でできるのですが、このとき「あたらしいフォルダ」のボタンは必要ないので出したくないのですが、どこかに定数を指定すればよろしいかご存知でしたら教えてください。 (使用OS： Windows2000,Excel：2003) ちなみにコピペした宣言部分は以下のものです。 *************** Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" _ (ByVal pidl As Long, ByVal pszPath As String) As Long Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" _ (lpBrowseInfo As BROWSEINFO) As Long Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As Long) Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Public Const WM_USER = &H400 Public Const BFFM_SETSELECTIONA = (WM_USER + 102) Public Const BFFM_INITIALIZED = 1 ********************
- 締切済み
- オフィス系ソフト
SendMessageについて
VERSION:VB6.0 SendMessageを使用しSQLPlusに対して文字列を送りたいのですが巧くいきません。 ↓が自身が作成したSendMessageを使用しているプログラムの一部なのですが、おかしな点や別な方法があればご教授お願いします。 '別アプリにメッセージを送る Declare Function SendMessageStr Lib "user32.dll" _ Alias "SendMessageA" (ByVal hWnd As Long, ByVal MSG As Long, _ ByVal wParam As Long, ByVal lParam As String) As Long Dim pId As Long 'プロセスID pId = Shell("SQLPlusのアドレス" & " /nolog", 1) SendMessageStr pId, WM_SETTEXT, 0, "送信する文字列" というプログラムです。 SQLPlusは起動するのですが文字列がSQLPlus側に送れず困っています。どうかよろしくお願いします。
- ベストアンサー
- Visual Basic
windows7のエクスプローラをVBAで操作－２
アドバイスをお願いします。 Excel－VBAで起動しているエクスプローラに対してハンドルを取得してクリックしたり、テキストボックスに文字をセットするプログラムを作って動かしています。 WindowsXPのときはできていたのですが、Windows7になったら正しく動作しなくなりました。下のコードはエクスプローラのフォルダパスの右のボタン（添付ファイル参照）をクリックすべく、コーディングしたものです。最後のSendMessage(hwnd, BM_CLICK, 0, 0)　でクリックしたいのですが、その前にボタンのハンドルが取得できません。SDKのInspect Objectsで調べると、このボタンはClass="ToolbarWindow32"でName="前の場所"ですが、NativeWindowHandleが表示されず、Legacy.IAccessible.ChildID=1となっています。このようなウィンドゥは別のやり方（IAccessible？）でないとクリックできないように感じていますが如何せん知識がありません。どうしたらできるか、アドバイスよろしくお願いします。 Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _ ByVal hwndParent As Long, _ ByVal hwndChildAfter As Long, _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal MSG As Long, ByVal wParam As Long, lParam As Any) As Long Const BM_CLICK = &HF5 Private hwnd As Long Sub Click_button() hwnd = FindWindow("CabinetWClass", vbNullString) hwnd = FindWindowEx(hwnd, 0, "WorkerW", vbNullString) hwnd = FindWindowEx(hwnd, 0, "ReBarWindow32", vbNullString) hwnd = FindWindowEx(hwnd, 0, "Address Band Root", vbNullString) hwnd = FindWindowEx(hwnd, 0, "msctls_progress32", vbNullString) hwnd = FindWindowEx(hwnd, 0, "ToolbarWindow32", vbNullString) ' この次が分からない。 RC = SendMessage(hwnd, BM_CLICK, 0, 0) end sub
- ベストアンサー
- Windows 7
VBAでIEの「ファイルのダウンロード」ダイアログを制御
VBではなくVBAにて、IEの「ファイルのダウンロード」ダイアログを制御したいと思い、過去の同様の質問等を参考に下記のソースを作成して動かしてみましたが、「ファイルのダウンロード」画面で、「保存(S)」ボタンのハンドルを取得するところまではできましたが、sendMessageでクリックができず、次に進むことが出来ませんでした。手動で「保存(S)」ボタンを押下して、強制的に「名前を付けて保存」画面に遷移させた後プログラムを再開すると、同画面の「保存(S)」ボタンのクリックはできました。同じロジックで「名前を付けて保存」画面の「保存(S)」は動くのに、「ファイルのダウンロード」画面の「保存(S)」が動かないのはなぜでしょうか。どなたかおわかりになる方がいらっしゃいましたら、ご回答をお願いします。 ***使用環境*** OS: XP pro IE: 6 OFFICE:2002 ***以下作成したソース（エラー制御は省略）*** Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long 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 Declare Function GetDlgCtrlID Lib "user32" (ByVal hwnd As Long) As Long Private Sub Test() Dim ret1 As Long Dim ret2 As Long Const WM_COMMAND As Long = &H111 ret1 = FindWindow("#32770", "ファイルのダウンロード") ret2 = FindWindowEx(ret1, 0, "Button", "保存(&S)") Call SendMessage(ret1, WM_COMMAND, GetDlgCtrlID(ret2), ByVal ret2) ret1 = FindWindow("#32770", "名前を付けて保存") ret2 = FindWindowEx(ret1, 0, "Button", "保存(&S)") Call SendMessage(ret1, WM_COMMAND, GetDlgCtrlID(ret2), ByVal ret2) End Sub ***以上ソース終わり***
- 締切済み
- Visual Basic
Excel VBAでIE「ダウンロードの表示」生成
　Internet Explorer で、「ダウンロードの表示」のDialogウィンドウをショートカット(Ctrl + J )を使って表示させたいのですが、Excel VBA で以下のコードで試したのですが、うまくいきません。どういうコードを書いたらよいのでしょうか？アクセスキーを使った方法では、「ツール」で N 　に該当するのが「ダウンロードの表示」と「Send To Note」の2つあって起動できません。　よろしくお願いします。 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ ByVal lParam As Long) As Long Public Const WM_KEYDOWN = &H100 Public Const WM_KEYUP = &H101 Public Const VK_CONTROL = &H11 Public Const VK_J = &H4A Public Const navOpenInNewTab = &H800 Sub Test() Dim objIE As Object Dim hWnd_objIE As Long Dim Ret As Long 'IE起動 Set objIE= CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.navigate "https://www.google.co.jp/", navOpenInNewTab Do While objIE.Busy = True Or objIE.readyState <> 4 DoEvents Loop 'objIEのhWnd取得 hWnd_objIE = objIE.hwnd 'IEの親ウィンドウのhWnd取得する 'hWnd_objIE のウィンドウにPostMessageする Ret = PostMessage(hWnd_objIE, WM_KEYDOWN, VK_CONTROL, 0) Ret = PostMessage(hWnd_objIE, WM_KEYDOWN, VK_J, 0) Sleep 100 Ret = PostMessage(hWnd_objIE, WM_KEYUP, VK_CONTROL, 0) Ret = PostMessage(hWnd_objIE, WM_KEYUP, VK_J, 0) End Sub
- ベストアンサー
- Excel（エクセル）
ブラウザのテキストボックスに文字列を送信したいです
ブラウザで表示したWEBサイトにあるテキストボックス（ファイル名入力用)に文字を送信したいのですが、そういうことは出来ないでしょうか？ Input TYPE=FILE　のフィールドなので、("name").Value = "c:\test.jpg" などのようにしてセットすることができません。現在下のような方法でとりあえず片っ端から送信してみたのですが、別のアプリのボタンのTextやウインドウタイトルは多数変更されるのですが表示中のブラウザの入力フィールドに文字が現れることはありませんでした。 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer Private Const WM_SETTEXT As Integer = &HC Public Function OutputText(ByVal strMessage As String) As Long For i As Long = 1 To 1000000000 OutputText = SendMessage(i, WM_SETTEXT, 0&, i & strMessage) Next End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OutputText("変更しました") End Sub VB.NET2003とFramework1.1なのですが、ご教授頂けたら幸いです。よろしくお願い致します。
- ベストアンサー
- Visual Basic

VBAのリストボックスで、横スクロールバーを表示するには？