ab.com コミュニティ

コード: 全て選択

' 選択が変更された時
Sub MainWnd_ComboBox1_SelChange()
Dim hCombo As HWND
Dim lpStr As LPSTR
Dim length As Long

	hCombo=GetDlgItem(hMainWnd,ComboBox1)

	' 選択が変更される前の項目の文字列を取得してしまう。
	' つまり、期待する文字列と取得する文字列はボタンを掛け間違えた時のようにズレてる。
	length=GetWindowTextLength(hCombo)+1
	lpStr=malloc(length)
	GetWindowText(hCombo,lpStr,length)
	OutputDebugString(lpStr)
	free(lpStr)
End Sub

コード: 全て選択

' 選択が変更された時
Sub MainWnd_ComboBox1_SelChange()
Dim hCombo As HWND
Dim lpStr As LPSTR
Dim nIndex As Long
Dim length As Long

	hCombo=GetDlgItem(hMainWnd,ComboBox1)

	nIndex=ComboBox_GetCurSel(hCombo)
	If nIndex<>CB_ERR Then
		length=ComboBox_GetLBTextLen(hCombo,nIndex)+1
		lpStr=calloc(length)
		ComboBox_GetLBText(hCombo,nIndex,lpStr)
	Else
		' 「選択が変更された時」にはこのコードは要らない。
		length=GetWindowTextLength(hCombo)+1
		lpStr=calloc(length)
		GetWindowText(hCombo,lpStr,length)
	End If

	OutputDebugString(lpStr)

	' ゼロフリーはしちゃいけないのか？
	' 追記。とりあえず、If文で回避。
	If lpStr Then free(lpStr)
End Sub

コード: 全て選択

Function ComboBox_GetCurSel(ByVal hCombo As HWND) As Long
	ComboBox_GetCurSel=SendMessage(hCombo,CB_GETCURSEL,0,0) As Long
End Function

Function ComboBox_GetLBTextLen(ByVal hCombo As HWND,ByVal nIndex As Long) As Long
	ComboBox_GetLBTextLen=SendMessage(hCombo,CB_GETLBTEXTLEN,nIndex,0) As Long
End Function

Function ComboBox_GetLBText(ByVal hCombo As HWND,ByVal nIndex As Long,ByVal lpStringBuf As LPSTR) As Long
	ComboBox_GetLBText=SendMessage(hCombo,CB_GETLBTEXT,nIndex,lpStringBuf As LPARAM) As Long
End Function

Sub MainWnd_CBN_SELCHANGE()
Dim hCombo As HWND
Dim lpStr As LPSTR
Dim nIndex As Long

	hCombo=GetDlgItem(hMainWnd,ComboBox1)

	nIndex=ComboBox_GetCurSel(hCombo)
	If nIndex<>CB_ERR Then
		lpStr=malloc(ComboBox_GetLBTextLen(hCombo,nIndex)+1)
		ComboBox_GetLBText(hCombo,nIndex,lpStr)

		Select Case 0
			Case lstrcmp("test",lpStr)
				SendMessage(List,LB_RESETCONTENT,0,0)
				SendMessage(List,LB_ADDSTRING,0,"test")
			Case lstrcmp("test1",lpStr)
				SendMessage(List,LB_RESETCONTENT,0,0)
				SendMessage(List,LB_ADDSTRING,0,"test1")
			Case lstrcmp("test2",lpStr)
				SendMessage(List,LB_RESETCONTENT,0,0)
				SendMessage(List,LB_ADDSTRING,0,"test2")
			Case lstrcmp("test3",lpStr)
				SendMessage(List,LB_RESETCONTENT,0,0)
				SendMessage(List,LB_ADDSTRING,0,"test3")
			Case Else
				SendMessage(List,LB_RESETCONTENT,0,0)
				SendMessage(List,LB_ADDSTRING,0,"error")
		End Select

/*
		' 別にlstrcmp()関数要らなかったという罠...。
		Select Case MakeStr(lpStr)
			Case "test"
				SendMessage(List,LB_RESETCONTENT,0,0)
				SendMessage(List,LB_ADDSTRING,0,"test")
			Case "test1"
				SendMessage(List,LB_RESETCONTENT,0,0)
				SendMessage(List,LB_ADDSTRING,0,"test1")
			Case "test2"
				SendMessage(List,LB_RESETCONTENT,0,0)
				SendMessage(List,LB_ADDSTRING,0,"test2")
			Case "test3"
				SendMessage(List,LB_RESETCONTENT,0,0)
				SendMessage(List,LB_ADDSTRING,0,"test3")
			Case Else
				SendMessage(List,LB_RESETCONTENT,0,0)
				SendMessage(List,LB_ADDSTRING,0,"error")
		End Select
*/

		free(lpStr)
	End If
End Sub

コード: 全て選択

' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

	' イベントプロシージャの呼び出しを行います。
	MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function

コード: 全て選択

' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。


	'追加が必要なのはここから---
	Select Case dwMsg
		Case CBN_SELCHANGE
			MainWnd_CBN_SELCHANGE()
			MainWndProc = 0
			ExitFunction
	End Select
	'ここまでです------------------


	' イベントプロシージャの呼び出しを行います。
	MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function