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

Тема в разделе ".NET", создана пользователем Serrr, 2 апр 2010.

  1. Serrr

    Serrr Гость

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

    Serrr Гость

    LABEL которая
     
  3. Serrr

    Serrr Гость

    т.е. я это понимаю как:

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

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

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

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

    Serrr Гость

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

    Serrr Гость

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

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

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

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

    Serrr Гость

    NEW насколько понимаю
     
  7. Serrr

    Serrr Гость

    имел в виду, что там пример про SendKeys идёт дальше

    Dim zx As MouseEventArgs = New MouseEventArgs

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

    Serrr Гость

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

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

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

    Serrr Гость

    Код (LotusScript):
    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:
     
  10. Serrr

    Serrr Гость

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

Поделиться этой страницей