powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / HWND???
25 сообщений из 34, страница 1 из 2
HWND???
    #32535573
Docent347
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть Form1->combo1
Есть Form2->combo1
Есть Module1->процедура(FUN)
Нужно передавая в процедуру Module1->FUN, Combo1 .hWnd или Combo2 .hWnd
соответственно получать в Combo1.text или Combo2.text допустим слово “Hello world”?
...
Рейтинг: 0 / 0
HWND???
    #32535579
arseny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так передавай сам combo1 в процедуру. Передастся его адрес, а не сам контроль. Так что, изменяя из процедуры Combo1.text ты изменишь текст в Form1->combo1.
...
Рейтинг: 0 / 0
HWND???
    #32535586
Docent347
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Так в том и дело что надо по адрессу.
Если мы имеем адресс объекта то наверное можно достучаться до его свойств только, как я не знаю поэтому и спрашиваю :). Как?
...
Рейтинг: 0 / 0
HWND???
    #32535592
arseny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
Sub Fun(ByRef Combo108 As ComboBox)
    Combo108 = "Hello"
    Combo108.Enabled = False
    Combo108.AddItem "108"
End Sub
Чем тебе это не годится? Я так и не понял...
...
Рейтинг: 0 / 0
HWND???
    #32535595
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Public Sub MySub(h As Long)
Dim MyStr As String
'Create a buffer
MyStr = String(GetWindowTextLength(h) + 1, Chr$(0))
'Get the window's text
GetWindowText h, MyStr, Len(MyStr)
MsgBox MyStr
End Sub

Magnus
...
Рейтинг: 0 / 0
HWND???
    #32535598
arseny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Magnus как всегда не в тему...
:-)
...
Рейтинг: 0 / 0
HWND???
    #32535610
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Уверен в том что говоришь? You better be...




Magnus
...
Рейтинг: 0 / 0
HWND???
    #32535612
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Он хотел получить текст, я ему дал текст. Установка текста Setwindowtext.

Добававление итемов SendMessage с необходимыми параметрами.

Проблемы?

Magnus
...
Рейтинг: 0 / 0
HWND???
    #32535614
arseny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Наверное не так его понэл.
Never midn.
...
Рейтинг: 0 / 0
HWND???
    #32535615
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так что на счет "как всегда" и "не в тему"?

Magnus
...
Рейтинг: 0 / 0
HWND???
    #32535616
arseny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ты чеки всё равно не принимаешь.
...
Рейтинг: 0 / 0
HWND???
    #32535618
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А ты порпобуй.
А может лучше думать прежде чем чепуху пороть?

Magnus
...
Рейтинг: 0 / 0
HWND???
    #32535622
arseny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Почему ж чепуху?!
И твой и мой методы работают.
Твой более правильный, но мне незнакомый. That's all.
...
Рейтинг: 0 / 0
HWND???
    #32535626
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Курим, ага. Клоуна строим... Никогда GetWindowText невидел. Ага.

Ваще, при чем тут методы.Оба работают и зашибись, тем более что мой более правильный. :) Обьекты в процедуры не натаскаешься. Вызов из другого модуля в васике обходится в 10 раз дороже чем в любых других языках.

Я не о коде говорю, а об этом.
авторMagnus как всегда не в тему...

Magnus
...
Рейтинг: 0 / 0
HWND???
    #32535651
(c)VIG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А я думал , что весь свой боевой пыл Магнус растратил в битве с Акузей
З.Ы Сорри за оффтоп.
...
Рейтинг: 0 / 0
HWND???
    #32535688
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Это к слову если кому-то захочется использовать материалы следствия. Господа, не путайте мух с котлетами.

2 arseny
Я настаиваю на ответе.

2 (c)VIG
Регенерю по-немногу. :)

Magnus
...
Рейтинг: 0 / 0
HWND???
    #32535693
arseny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так я ж сказал, что незнаком с тем методом. Вот и подумал, что ты ошибся.
Наша тема скоро будет лидирующей... :)
...
Рейтинг: 0 / 0
HWND???
    #32535716
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторТак я ж сказал, что незнаком с тем методом.
Тем более. Если не знал метода, следовало по крайней мере проверить работоспособность предложенного мной варианта и на основе результатов высказываться.

автор
Вот и подумал, что ты ошибся.
Оказалось что это не так. А значит...
Я настаиваю.



ЗЫ. Извиняюсь за оффтоп. Если что , "Переименуем в Лестницу"(с)Саныч?


Magnus
...
Рейтинг: 0 / 0
HWND???
    #32536033
Docent347
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Magnus23 ты пошел в правильном направлении но......
Мне надо передавать hWND в процедуру..... ну короче что-то типа:

Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Public Sub MySub(h As Long)
Dim MyStr(1) As String
MyStr(0) = "dddfggg"
MyStr(1) = "dggg"
For i = 0 To 1
SetWindowText h, MyStr(i)
Next i
Текст в Combo1 или Combo2 передается, а мне надо чтоб и записывался короче в комбосе в List должны находиться MyStr(0) и MyStr(1).
...
Рейтинг: 0 / 0
HWND???
    #32536611
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так мой пример и принимает хендл в качестве параметра.

авторНужно передавая в процедуру Module1->FUN, Combo1 .hWnd или Combo2 .hWnd
соответственно получать в Combo1.text или Combo2.text допустим слово “Hello world”?
Не означает ли это читать их значения?

На счет добавления я тоже говорил : SendMessage
Парамтр Cm_чегототам. Щас пример закину.

PS. arseny - балабол.


Magnus
...
Рейтинг: 0 / 0
HWND???
    #32536620
Docent347
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо ждем пример))
...
Рейтинг: 0 / 0
HWND???
    #32536998
arseny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот люди же бывают, ну валенок валенком. И шуток не понимает...
А ещё программистом себя называет. Влился в интернет, настоящую жизнь от виртуальной не отличает.
Алё, ку-ку, magnus! Оторвись от экрана, иди погуляй - нельзя столько за компом сидеть. Рога отрастут...
...
Рейтинг: 0 / 0
HWND???
    #32537092
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
SendMessage target.hWnd, CB_ADDSTRING,  0 &, ByVal sItemText

PS. Arseny, шутки разные бывают. А за свои слова надо отвечать. Если говоришь - подтверждай, нет - не говори.

Magnus
...
Рейтинг: 0 / 0
HWND???
    #32537105
Docent347
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо Magnus!!!
...
Рейтинг: 0 / 0
HWND???
    #32537114
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Качайте и ни в чем себе не отказывайте. Довольно приличная библиотека апишек, с примерами и описаниями как самих фунций так и параметров.

http://www.mentalis.org/agnet/apiguide.shtml


Magnus
...
Рейтинг: 0 / 0
25 сообщений из 34, страница 1 из 2
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / HWND???
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]