Vb.net, событие Mouse.click (ну или .down можно)

  • Автор темы Serrr
  • Дата начала
S

Serrr

Гость
#1
Искал везде - такое ощущуение, что все только на C+ пишут.
Проблема такая - есть метка с обработчиком MOUSE.DOWN. Просто CALL не получается - не знаю, что с MouseEventArgs делать.
Как ещё можно "нажать" на метку?
 
S

Serrr

Гость
#3
Т.е. вы хотите выполнить код обработчика. Тут как раз калл и нужен, а с MouseEventArgs - надо создать его.
т.е. я это понимаю как:

Call Bok_MouseDown(MLab, e:=MouseButtons.Left)

где MLab - тот label который трэба нажать,

а про "e" - тёмный лес :rolleyes:

или я вообще не туда полез?
 
S

Serrr

Гость
#4
Туда но не правильно

что такое MouseEventArgs ?
ну если переводить, то АргументыМышинногоСобытия. После точки вариантов не даёт.
Я только начал Барсик.Net изучать - год с копейками...
Книгу по нему только одну нормально доходчивую видел...
Не направите на путь истинный?
 
S

Serrr

Гость
#5
Переводить не надо, это не роман в стихах, путь праведный через msdn проходит.
" Чтобы нажать правую кнопку мыши программными средствами, выполните следующие действия.

1. Создайте класс MouseEventArgs и установите для его свойства Button значение MouseButtons..::.Right.
2. Вызовите метод OnMouseClick с этим классом MouseEventArgs в качестве аргумента. "

Это в праведном MSDN говорится.. И никакого примера про мышь

Теперь вопрос:
зачем делать п.1?
А если надо, то как? Не могли бы образец какой-либо написать?
Чтобы было от чего оттолкнуться..
 
S

Serrr

Гость
#7
При чем тут мышь если - " Чтобы нажать правую кнопку мыши программными средствами, выполните следующие действия. ?
имел в виду, что там пример про SendKeys идёт дальше

Добавлено: Вот и делайте это самое.
Dim zx As MouseEventArgs = New MouseEventArgs

но где свойство button устанавливать я не пойму
 
S

Serrr

Гость
#8
нашёл что требовалось по второй ссылке.
Добавил класс снизу текста, присвоил button.left, clicks=1, и верх лев угол MLab иксу и игреку, дельту в 0 поставил

Dim Nazh As New MouseEventArgs(button, clicks, x, y, delta)

VS пишет, что не может преобразовать этот класс в System.Windows.Forms.MouseEventArgs
 
S

Serrr

Гость
#9
Код:
Dim button As MouseButtons = Forms.MouseButtons.Left
Dim clicks As Integer = 1
Dim x As Integer = MLab.Left
Dim y As Integer = MLab.Top
Dim delta As Integer = 0

Dim Nazh As MouseEventArgs = New MouseEventArgs(button, clicks, x, y, delta)

Call Bok_MouseDown(MLab, Nazh)
.......

Public Class MouseEventArgs
Inherits EventArgs

Public Sub New( ByVal button As MouseButtons, ByVal clicks As Integer, ByVal x As Integer, ByVal y As Integer, ByVal delta As Integer)

End Sub

End Class
В операторе call подчёркивает Nazh

а если в Sub NEW() установить эти значения, то ему некоего "у" не хватает

:please:
 
S

Serrr

Гость
#10
Это зачем?

Добавлено: Наверное последствие плохого перевода, и плохо читано, вам надо создать объект, класс создавать не надо он уже создан.
Большущее огромное спасибо! ЗАРАБОТАЛО!!!!!!!!!!!!!! :please: я
Через неделю опять на + нажму