ab.com コミュニティ

コンボボックス内の内容を決めるには、どうやればいいですか？
それで、その内容を指定しておいて、エディットボックスに出力するには、どうすればいいですか？
こんなのできるのかな？
返信お願いします。

コンボボックスの内容を決める(追加ですが)には、CB_ADDSTRING。

1.CB_GETCURSELでどの内容が指定されているか知る。
2. 1.の戻り値を使って、CB_GETLBTEXTLENで文字列長を取得。
3. 2.の戻り値を使って、文字列変数にメモリをZeroString()関数やmalloc()関数で確保する。
4. 1.の戻り値を使って、CB_GETLBTEXTで3.の文字列変数に文字列を格納。
5.エディットボックスに3.の文字列変数を設定する。

７さん、返信ありがとうございます。
さて、またまたいろんなものが引っかかります。
といっても、一つ”lParam”が引っかかります。
何か、定義し忘れているんでしょうか？
このコードでおかしいことが合ったら、返信お願いします。

[ここをクリックすると内容が表示されます]

コード: 全て選択

Sub Mission_ComboBox1_ADDSTRING()
    Dim E As Long
	Dim D As Long
	Dim C As Long
	Dim C+ As Long
	Dim B As Long
	Dim B+ As Long
	Dim A As Long
	Dim A+ As Long
	Dim S As Long
	Dim S+ As Long

	E ="E"
	D ="D"
	C ="C"
	C+ ="C"
	B ="B"
	B+ ="B+"
	A ="A"
	A+ ="A+"
	S ="S"
	S+ ="--"
	
    E= lParam
	D= lParam
	C= lParam
	C+= lParam
	B= lParam
	B+= lParam
	A= lParam
	A+= lParam
	S= lParam
	S+= lParam

End Sub

えーと、勘違いされているようです...。

CB_ADDSTRINGはウィンドウメッセージなので、SendMessage()関数を使って目的のウィンドウにメッセージを送る必要があります。

[ここをクリックすると内容が表示されます]

コード: 全て選択

Dim hCombo As HWND

	hCombo=GetDlgItem(hMainWnd,ComboBox1)
	SendMessage(hCombo,CB_ADDSTRING,NULL,"文字列")

	'コンボボックスに文字列を追加する関数を作ると楽。
	Function cb_addString(ByVal hWnd As HWND,ByVal lpString As BytePtr) As LRESULT
		cb_addString=SendMessage(hWnd,CB_ADDSTRING,NULL,lpString As LPARAM)
	End Function

	cb_addString(hCombo,"文字列")

>

[ここをクリックすると内容が表示されます]

コード: 全て選択

Dim hCombo As HWND
> 
> 	hCombo=GetDlgItem(hMainWnd,ComboBox1)
> 	SendMessage(hCombo,CB_ADDSTRING,NULL,"文字列")
> 
> 	'コンボボックスに文字列を追加する関数を作ると楽。
> 	Function cb_addString(ByVal hWnd As HWND,ByVal lpString As BytePtr) As LRESULT
> 		cb_addString=SendMessage(hWnd,CB_ADDSTRING,NULL,lpString As LPARAM)
> 	End Function
> 
> 	cb_addString(hCombo,"文字列")

文字列のほうには、認識（内容の文字）をかくんですか？
いっぱいあるんだけど、どうしたらいいかなー？
このまま、デバックしてみたら、ちゃんとコマンドボックスに入ってなかったし・・・

忘れてました、名前を入れるのを。。

> 文字列のほうには、認識（内容の文字）をかくんですか？
そうです。文字列リテラルでも構いませんし、文字列変数でも構いません。

コード: 全て選択

SendMessage(hCombo,CB_ADDSTRING,NULL,"文字列リテラル")
SendMessage(hCombo,CB_ADDSTRING,NULL,pStr)'文字列変数

> いっぱいあるんだけど、どうしたらいいかなー？
どのぐらいの文字数なのか分かりませんが、あまりにも多い文字列はコンボボックスに表示すべきじゃないと思いますよ。
使用目的が分からないので強制はしませんが...。

> このまま、デバックしてみたら、ちゃんとコマンドボックスに入ってなかったし・・・
コンボボックスに文字列を追加するタイミングは正しいですか？
大抵はウィンドウが作られた時にコンボボックスに文字列を追加します。

[ここをクリックすると内容が表示されます]

コード: 全て選択

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
Dim hCombo As HWND
	hCombo=GetDlgItem(hMainWnd,ComboBox1)
	cb_addString(hCombo,"罪と罰")
	'0を選択
	SendMessage(hCombo,CB_SETCURSEL,0,NULL)
End Sub

また、コンボボックスの初期の選択位置は-1のようなので、プログラム起動時に0に設定してやると良いかもしれません。

ボタンのクリックと同時に、また別のウィンドウが出てくるようにするには、どうやればよいでしょうか？
コードごと書いてください

ついでと言わないで，それなら新たにトピックを作ってしまいましょうよ。

それはともかく，ボタンがクリックされるとクリックイベントが発生します。
クリックイベントは(ウィンドウ名)_(ボタンのID)_Clickという関数（たとえばMainWnd_CommandButton1_Clickなどという具合）が対応しています。

そのクリックイベントの中で別のウィンドウを作ればよいのです。
普通はダイアログを作っておいて，DialogBox或いはCreateDialog関数を呼ぶことになるでしょう。