ab.com コミュニティ

コード: 全て選択

' ComboBox1の変更を取り出しグローバル変数にセット
Sub MainWnd_ComboBox1_EditChange()
Dim hCombo As HWND
Dim str[256] As Byte

	hCombo=GetDlgItem(hMainWnd,ComboBox1)

	' 要らないのでは？
	SetWord(str,256)

	' 選択番目の文字列を取得
	str[SendMessage(hCombo,CB_GETLBTEXT,Nangyoume,str)]=NULL

	' 題名をグローバル変数にセット
	GetWindowText(hCombo,str,255)	' str が潰れる
	s_ToName[Nangyoume]=MakeStr(str)
	SetCombo()

	' 編集している行を選択状態にする
	SendMessage(hCombo,CB_SETCURSEL,Nangyoume,0)
End Sub

コード: 全て選択

' コンボボックスのエディット部分のカーソル位置を設定
Function ComboBox_SetEditSel(ByVal hWnd As HWND,ByVal iStart As Integer,ByVal iEnd As Integer) As Long
	ComboBox_SetEditSel=SendMessage(hWnd,CB_SETEDITSEL,NULL,MAKELONG(iStart,iEnd)) As Long
End Function

' コンボボックスに項目を挿入
Function ComboBox_InsertString(ByVal hWnd As HWND,ByVal nIndex As Long,ByVal lpString As BytePtr) As Long
	ComboBox_InsertString=SendMessage(hWnd,CB_INSERTSTRING,nIndex As WPARAM,lpString As LPARAM) As Long
End Function

' コンボボックスの項目を削除
Function ComboBox_DeleteString(ByVal hWnd As HWND,ByVal nIndex As Long) As Long
	ComboBox_DeleteString=SendMessage(hWnd,CB_DELETESTRING,nIndex As WPARAM,NULL)
End Function

' コンボボックスの項目を選択
Function ComboBox_SetCurSel(ByVal hWnd As HWND,ByVal nIndex As Long) As Long
	ComboBox_SetCurSel=SendMessage(hWnd,CB_SETCURSEL,nIndex As WPARAM,NULL)
End Function

Dim hCombo As HWND	' コンボボックスのハンドルを持つ
Dim Nangyoume As Long	' 選択されている項目のインデックスを持つ
Dim s_ToName[4] As String
	s_ToName[0]="1共通"
	s_ToName[1]="2現場"
	s_ToName[2]="3一般"
	s_ToName[3]="4仮設"
	s_ToName[4]="5管理"

'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

' ウィンドウが作られた時
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
Dim cnt As Integer

	' コンボボックスのハンドルを取得
	hCombo=GetDlgItem(hMainWnd,ComboBox1)

	' コンボボックスの項目を設定
	For cnt = 0 To 4
		SendMessage(hCombo,CB_ADDSTRING,0,s_ToName[cnt])
	Next

	' 最初の項目を選択
	ComboBox_SetCurSel(hCombo,0)
End Sub

' コンボボックスの選択されている項目が変更された時
Sub MainWnd_ComboBox1_SelChange()
	' 選択されている項目のインデックスを取得
	Nangyoume=SendMessage(hCombo,CB_GETCURSEL,0,0)
End Sub

' エディット部分の内容が変更された時
Sub MainWnd_ComboBox1_EditChange()
	' エディット部分に入力された文字列を取得
	s_ToName[Nangyoume]=ZeroString(256)
	GetWindowText(hCombo,s_ToName[Nangyoume],255)

	' 選択されている項目を削除し、新しい項目を挿入
	ComboBox_DeleteString(hCombo,Nangyoume)
	ComboBox_SetCurSel(hCombo,
		ComboBox_InsertString(hCombo,Nangyoume,s_ToName[Nangyoume]))

	' エディット部分の最後尾にカーソルを設定
	ComboBox_SetEditSel(hCombo,Len(s_ToName[Nangyoume]) As Integer,-1)
End Sub