ab.com コミュニティ

コード: 全て選択

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

コード: 全て選択

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,"文字列")

コード: 全て選択

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