フォーム上で、
動的コントロール=コンボボックスの宣言をし、
標準モジュールで、動的コントロールを実際に追加したいコードを作る時、サイズ(Left、Top、)や状態(Visible)などの設定はできるのですが、
Sorted(コンボボックス内での自動昇順)やStyle(コンボボックスの種類)等の、設定がソース上で出来ません。
どうすれば、ソース上で、設定できるのでしょうか。
問題のコードをデバッグすると、デザイン上でしか、設定出来ませんとメッセージが表示され、実現不可能な事を言われています。
No.2ベストアンサー
- 回答日時:
何度もすみません、もし良ければ下記コードを参考にして下さい。
(標準モジュール)
'*** コンボボックスを作成する関数 *******************************************
Public Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" _
(ByVal dwExStyle As Long, ByVal lpClassName As String, _
ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, _
ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, _
ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, _
lpParam As Any) As Long
'*** 作成したコンボボックスを破棄する関数 ***********************************
Public Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) 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 WS_CHILD = &H40000000 '子ウィンドウ
Public Const WS_VISIBLE = &H10000000 '表示する
Public Const CBS_DROPDOWN = &H2& 'Styleプロパティ(ドロップダウン)
Public Const CBS_SORT = &H100& 'Sortedプロパティ(並び替える)
Public Const CB_ADDSTRING = &H143 '項目追加
Public lngRet As Long '戻り値
Public Sub CreateComb()
Dim lngSendRet As Long '戻り値
'*** ComboBox1という名前で既存のフォームにStyle(ドロップダウンコンボ) ******
'*** Sorted(True)のコンボボックスを作成 ******
lngRet = CreateWindowEx(0, "ComboBox", "ComboBox1", _
WS_CHILD Or WS_VISIBLE Or CBS_DROPDOWN Or CBS_SORT, _
0, 0, 100, 100, Form1.hwnd, 0, 0, 0)
'*** 作成したコンボボックスの項目を追加 ************************************
lngSendRet = SendMessage(lngRet, CB_ADDSTRING, 0, ByVal "a")
lngSendRet = SendMessage(lngRet, CB_ADDSTRING, 0, ByVal "い")
lngSendRet = SendMessage(lngRet, CB_ADDSTRING, 0, ByVal "あ")
End Sub
Public Sub DestroyComb()
'*** 作成したコンボボックスを破棄 ******************************************
lngRet = DestroyWindow(lngRet)
End Sub
(フォーム)
Private Sub Form_Load()
Call CreateComb
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call DestroyComb
End Sub
上記を実行されますとコンボボックスが作成され、
a
あ
い
という項目が3行追加され並び替えも正しく行われました。
コンボボックスのStyle、Sortedプロパティはデザイン時にしか設定が
出来ないので、上記方法を記載しましたが他に良い方法があるかも知れません。
No.1
- 回答日時:
まだ確認が不十分ですが、APIのCreateWindowExを使い
dwStyleパラメータに定数CBS_SORTを指定して
コンボボックスを作成されてはどうでしょうか?
尚、上記関数でコンボボックスの作成は確認しましたが
AddItemでの項目追加が出来ないのでSendMessage関数を
使って項目の追加を行わなければなりません。
但し、SendMessageでの項目追加はまだ確認が取れていませんが。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- その他(プログラミング・Web制作) google formsを使ったタスク依頼フォーム作成におけるご相談 1 2023/06/22 15:55
- iPhone(アイフォーン) iPhoneの設定についてです。 音声コントロールのカスタムジェスチャで画面タッチを設定できる機能あ 1 2022/03/28 05:21
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Excel(エクセル) コントロールにリンクするセルが選択されない 3 2022/06/12 14:37
- Excel(エクセル) エクセル セル内の文字数を超えたら自動的に折り返して表示 2 2023/07/24 05:32
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの画像にツールチップ...
-
エクセル入力規制リスト行数
-
MSFlexGridとDataGridの違いに...
-
Wordテキストコントロールが未...
-
VBからエクセルのテキストボ...
-
ACCESS2010 ActiveXコントロー...
-
TableLayoutPanelでspan
-
ASP.NETでのテキストボックスに...
-
VB.NET ToolTipの表示条件について
-
C# TEXTが空白であるLABELは何...
-
リストコントロールのデータの...
-
ExcelテキストボックスのTab順...
-
カスタムコントロール作ってま...
-
VBA基本構文の作り方 リスト...
-
PictureBoxの背景色変更(VB.NET)
-
ACCESS VBA でのテキスト表示
-
JavaScriptの高速化について
-
カスタムコントロールInputMan...
-
コンボボックスの高さを変更し...
-
VB.NETで縦書表示をしたいので...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストボックス(VBA)でEnter...
-
エクセルの画像にツールチップ...
-
ADOのCursorLocationプロパティ
-
Wordテキストコントロールが未...
-
ACCESS2010 ActiveXコントロー...
-
VBからエクセルのテキストボ...
-
C# TEXTが空白であるLABELは何...
-
VB.NETで縦書表示をしたいので...
-
チェックボックスの文字色の変え方
-
DataGridViewで行の展開みたい...
-
ユーザーフォームに日付を表示...
-
コンボボックスの高さを変更し...
-
C# アプリ終了時に設定を記憶...
-
VB6でLabelの最前面にText Box...
-
デザインモードを解除すると消...
-
Enabled=Falseのテキストボック...
-
MSFlexGrid
-
PictureBoxの背景色変更(VB.NET)
-
エクセル入力規制リスト行数
-
checkbox付きListViewで デフ...
おすすめ情報