ab.com コミュニティ

> 現在、リストボックスの内容を変更したときに、同じウィンドウにあるエディットボックス（ここでは2です）に説明書きをしたいと思ってコーディングしています。
> しかし、リストボックスの内容が変化しても、ＧｅｔＷｉｎｄｏｗＴｅｘｔ関数がちゃんと働かず、デバッグ命令で変数（ここではＤａｔａ）の中身を見てみると、何も入っていない・・・
> という事態になっています。
> コードを載せておきますので、間違っている点ありましたら、書込みお願いします。
> それと、これには、GetDlgItemTextStrという関数を使っていますが、これはイグトランスさんが作られた関数を利用しています。前に書いてあるものと思ってください。
> ウィンドウにはエディットボックスが2個と、リストボックスが1個、コンボボックスが2個設置してあります。

Function GetListBoxStr(hLB As HWND, pos As Long, ByRef str As String) As Long
	Dim Length As Long
	Length = SendMessage(hLB,LB_GETTEXTLEN,pos,0)
	str = ZeroString(Length)
	If Length = 0 Then
		GetListBoxStr = 0
		Exit Function
	End If
	GetListBoxStr = SendMessage(hLB,LB_GETTEXT,pos,StrPtr(str))
	SetDWord(StrPtr(str) - SizeOf (DWord), GetListBoxStr)
End Function

Function GetDlgLisBoxStr(hDlg As HWND, idLB As Long, pos As Long, ByRef str As String) As Long
    GetDlgLisBoxStr = GetListBoxStr(GetDlgItem(hDlg, idLB), pos, str)
End Function

Sub MainWnd_ListBox1_SelChange()
	Dim pos As Long
	pos = SendMessage(GetDlgItem(hMainWnd,ListBox1),LB_GETCURSEL,0,0)
	Dim Data As String
	GetListBoxStr(GetDlgItem(hMainWnd,ListBox1),pos,Data)
	SetWindowText(GetDlgItem(hMainWnd,EditBox2),Data)
End Sub

> 返信ありがとうございます。
> 早速使わせてもらいました。
> やはりできません。

> それと、コードはこうではないのでしょうか？
>

コード: 全て選択

Sub MainWnd_ListBox1_SelChange() 
>     Dim pos As Long 
>     pos = SendMessage(GetDlgItem(hMainWnd,ListBox1),LB_GETCURSEL,0,0) 
>     Dim Data As String 
>     GetListBoxStr(GetDlgItem(hMainWnd,ListBox1),pos,Data) 
>     SetWindowText(GetDlgItem(hMainWnd,EditBox2),Data) 
> End Sub

>
> ではなく、
>
>

コード: 全て選択

Sub MainWnd_ListBox1_SelChange() 
>     Dim pos As Long 
>     pos = SendMessage(GetDlgItem(hMainWnd,ListBox1),LB_GETCURSEL,0,0) 
>     Dim Data As String 
>     GetＤｌｇLisBoxStr(hMainWnd,ListBox1,pos,Data) 
>     SetWindowText(GetDlgItem(hMainWnd,EditBox2),Data) 
> End Sub

>
> ではないのでしょうか？

> リストボックス内の文字列の選択が変更されたときです。
> 変更されたのを取得したいのではありません。
> コンボボックスの場合でも、SelChangeイベントでできるので、
> リストボックスでもできるか、とおもってやっているのですが・・・