VBNet - Форум - иммитация событий

Вопрос: иммитация событий Добавлено: 04.12.11 11:11

Автор вопроса: Алексей | ICQ: нету

Доброго чего-то..)
Как на вб.нет 2008 реализовать иммитацию клика ЛКМ\ПКМ и отправку её активному окну?
Ответить

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

Номер ответа: 1 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #1	Добавлено: 04.12.11 12:30
	api mouse_event Ответить

Номер ответа: 2 Автор ответа: Алексей ICQ: нету Вопросов: 6 Ответов: 42	Профиль \| \| #2	Добавлено: 04.12.11 14:43
	а если подробнее? Ответить

Номер ответа: 3 Автор ответа: Алексей ICQ: нету Вопросов: 6 Ответов: 42	Профиль \| \| #3	Добавлено: 04.12.11 14:44
	и как это запихать в вб? если не сложно готовый код, не думаю что он сильно длинный) плз) Ответить

Номер ответа: 4 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #4	Добавлено: 04.12.11 16:33
	не сложно, но не выйдет - учись юзать посик Ответить

Номер ответа: 5 Автор ответа: Cramper Вопросов: 15 Ответов: 93	Профиль \| \| #5	Добавлено: 06.12.11 12:57
	В редакторе кода формы выбираете вкладку события и там находите, например MouseDown. Шаблон процедуры MouseDown автоматически вставляется в код формы. Далее приведу код. Только сначала в форме вставьте 3 TextBox. Public Class Form1 im i_mouse As Integer Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown If MouseButtons.Left Then i_mouse = 1 End If TextBox1.Text = i_mouse End Sub Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove im mouseX As Integer = e.X im mouseY As Integer = e.Y If i_mouse = 1 Then TextBox2.Text = mouseX TextBox3.Text = mouseY End If End Sub Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp If MouseButtons.Left Then i_mouse = 0 End If TextBox1.text = i_mouse End Sub End Class Ответить

Номер ответа: 6 Автор ответа: Cramper Вопросов: 15 Ответов: 93	Профиль \| \| #6	Добавлено: 06.12.11 12:59
	Вместо символа "" почему то вставляется глупый смайлик. Ответить

Номер ответа: 7 Автор ответа: Алексей ICQ: нету Вопросов: 6 Ответов: 42	Профиль \| \| #7	Добавлено: 06.12.11 18:52
	Cramper,спасибки, правда это не совсем то. Вот привожу код который у меня полуился: Public Class Form1 Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer) Private Const MOUSEEVENTF_ABSOLUTE = &H8000 ' absolute move Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up Private Const MOUSEEVENTF_MOVE = &H1 ' mouse move Private Const MOUSEEVENTF_MIDDLEDOWN = &H20 Private Const MOUSEEVENTF_MIDDLEUP = &H40 Private Const MOUSEEVENTF_RIGHTDOWN = &H8 Private Const MOUSEEVENTF_RIGHTUP = &H10 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ................... Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) ................... End Sub Ответить

Страница: 1 |