что выбрано в listbox'e

[XemyL]

Доброй поры дня..

ету прогу пишу на масме

столкнулся с небольшой проблемой, не знаю как обработать клик по елементе в листбоксе
в листбоксе есть список названий файлов, по клику на одном из них, нужно что бы в другом окне отобразилось содержания файла

меседжбокс для тестирования, которое работает не правильно (вместо него будет сендмеседж)

.if eax==WM_INITDIALOG

 invoke FindFirstFile, addr path1,addr s1
 cmp eax,1
 jz l1
 mov hFind,eax

 l2:
 invoke SendDlgItemMessage, hWin, 1001, LB_ADDSTRING, 0, ADDR s1.cFileName
 invoke FindNextFile,hFind,addr s1
 test eax,eax
 jnz l2
 invoke FindClose,hFind
 l1:

 .elseif eax==WM_COMMAND

 invoke SendDlgItemMessage, hWin, 1001, LB_GETCURSEL,0,0

 mov temp, al
 invoke MessageBox,0,addr temp,0,0

з.ы. может нужно было в раздел асемблера отправить, не был уверен
з.ы.ы. меседж бокс срабатывает во время любого действия, поетому я решил что и отправка в поле ричедита тоже будет работать некоректно

[Пепел Феникса]

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[XemyL]

invoke SendDlgItemMessage, hWin, 1001,LB_GETCURSEL,0,0
mov tmp, al
invoke SendDlgItemMessage, hWin, 1001, LB_GETTEXT,addr tmp, addr temp
invoke MessageBox,0,addr temp,0,0

при таком выводит пустой меседжбокс, который так же зацыкливает

[Пепел Феникса]

а почему вы в wParam передаете адрес, там вообще то требуется индекс элемента который хотите получить.
так же может быть полезно получить длину элемента через LB_GETTEXTLEN

[XemyL]

вот код главной функции.

добавил еще проверку, но в даном варианте не срабатывает вообще (в предущем 17 раз выскакивал меседжбокс)

DlgProc proc hWin:HWND,uMsg:UINT,wParam:WPARAM,lParam:LPARAM
LOCAL hFile,SizeRead:DWORD	

	mov		eax,uMsg
	.if eax==WM_INITDIALOG
		
		invoke FindFirstFile, addr path1,addr s1
		cmp eax,1
		jz l1
		mov hFind,eax
		
	l2:
		invoke SendDlgItemMessage, hWin, 1001, LB_ADDSTRING, 0, ADDR s1.cFileName
		invoke FindNextFile,hFind,addr s1
		test eax,eax
		jnz l2
		invoke FindClose,hFind
	l1:

	.elseif eax==WM_COMMAND
			
			
		.if wParam==1001  ;(так же ставил LBN_DBLCLK, что будет, думаю, правильнее)
			
			invoke SendDlgItemMessage, hWin, 1001, LB_GETCURSEL,0,0
			
			mov tmp, al
			invoke SendDlgItemMessage, hWin, 1001, LB_GETTEXT,tmp, addr temp
			invoke MessageBox,0,addr temp,0,0
			
		.endif

		
		
		
	.elseif eax==WM_CLOSE
		invoke EndDialog,hWin,0
	.else
		mov		eax,FALSE
		ret
	.endif
	mov		eax,TRUE
	ret

DlgProc endp

[Пепел Феникса]

не могу сейчас глянуть под компилем, но почему вы не передадите сам регистр eax, а делаете это через переменную?

[XemyL]

остаток, от предущего кода, имхо все так же будет
проверил, ничего не меняется

[Пепел Феникса]

кто такой temp?

[XemyL]

переменная

temp			db 260 dup (0)

[Ulex]

WM_COMMAND
wNotifyCode = HIWORD(wParam); // notification code
wID = LOWORD(wParam); // item, control, or accelerator identifier
hwndCtl = (HWND) lParam; // handle of control

Старшие 16 бит wparam - код сообщения (вам нужен например LBN_SELCHANGE).
Младшие 16 бит wparam - ID контрола, пославшего сообщение.
Listbox должен быть создан со стилем LBS_NOTIFY

	cmp	[wmsg], WM_COMMAND
	je	wmcommand
	invoke	DefWindowProcA, [hwnd],[wmsg],[wparam],[lparam]
	ret

wmcommand:
	mov	eax, [wparam]
	mov	ecx, eax
	shr	eax, 16	
	cmp	cx, LIST_ID1
	je	wmcommandList1
	ret

wmcommandList1:
	cmp	ax, LBN_SELCHANGE
	je	wmcommandList1_job
	ret

wmcommandList1_job:
	invoke	SendMessage, [hwndList1], LB_GETCURSEL, 0, 0
	invoke	SendMessage, [hwndList1], LB_GETTEXT, eax, addr [TempStr]
	invoke	SendDlgItemMessage, [newhwnd], STATIC_ID1, WM_SETTEXT, 0, addr [TempStr]
	ret