Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Перенаправление нажатия Добавлено: 28.10.08 01:55  

Автор вопроса:  Skywalker | Web-сайт: iSkywalker.ru | ICQ: 300-70-6пятьЪ 
Требуется при срабатывании событий KeyUp, KeyDown и KeyPress формы перенаправить сообщение в текстбокс. Т.е. нажали на форме "Q" и оно в текстбокс написалось. Нажали ctrl+c и в буфер положился текст из текстбокса.
Пробовал сделать так:

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
     If m.Msg = WM_KEYDOWN Then
            msgDown = m
        ElseIf m.Msg = WM_KEYUP Then
            msgUp = m
        ElseIf m.Msg = WM_KEYPRESS Then
            msgPress = m
        End If 'где-то сохраняю мсдж  
End Sub

потом

m_textbox.PreProcessMessage(Message.Create(m_textbox.Handle, Helper.msgDown.Msg, Helper.msgDown.WParam, Helper.msgDown.LParam))

только вот текст не меняется, что делаю не так?

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Skywalker



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
 Web-сайт: iSkywalker.ru
 Профиль | | #1
Добавлено: 29.10.08 01:06
не понимаю, ну АПИ SendMessage ведь должна работать, а нифига
  1.  
  2. Public Class MyTextBox
  3.         Inherits MyLabel
  4.         <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
  5.         Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
  6.         End Function
  7.         Private m_textbox As TextBox
  8.         Public Overrides Sub onKeyDownForm(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
  9.             SendMessage(m_textbox.Handle, Helper.msgDown.Msg, Helper.msgDown.WParam, Helper.msgDown.LParam)
  10.             MyBase.onKeyDownForm(sender, e)
  11.         End Sub
  12.         Public Overrides Sub onKeyUpForm(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
  13.             SendMessage(m_textbox.Handle, Helper.msgUp.Msg, Helper.msgUp.WParam, Helper.msgUp.LParam)
  14.             MyBase.onKeyUpForm(sender, e)
  15.         End Sub
  16.         Public Overrides Sub onKeyPressForm(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
  17.             SendMessage(m_textbox.Handle, Helper.msgPress.Msg, Helper.msgPress.WParam, Helper.msgPress.LParam)
  18.             MyBase.onKeyPressForm(sender, e)
  19.         End Sub

Ответить

Номер ответа: 2
Автор ответа:
 Skywalker



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
 Web-сайт: iSkywalker.ru
 Профиль | | #2
Добавлено: 29.10.08 01:36
все починил...
а вообще забавная тенденция, что в моих вопросах я сам с собой разговариваю, видимо тут нужно задавать только вопросы аля как отресайзить массив:)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам