PictureBox и MouseDown

[Fox_Malder]

На форме располагается PictureBox. По событию MouseDown координаты мышки передаются в Text1.Text (для Х) и Text2.Text (для Y), а на месте нажатия рисуется точка. Каким образом пользователя можно ограничить тремя щелчками по PictureBox (до нажатия кнопки Очистить), а также запомнить координаты всех трех нажатий?

[GSerg]

А какие вообще варианты приходили в голову?

[Nicky]

... ограничить тремя щелчками по PictureBox ... а также запомнить координаты всех трех нажатий?

После трех кликов сохранять координаты в файл и выключать компьютер

[SMR]

Код: Выделить всё




Dim x_a(1 To 3) As Single ' Массив для запоминания Х-координат
Dim y_a(1 To 3) As Single ' Масиив для запоминания У-координат
Dim k As Single ' Счётчик нажатий

Private Sub Command1_Click() 'Нажатие на кнопку очистить
For i = 1 To 3
    x_a(k) = 0
    y_a(k) = 0
Next
k = 1 ' Сбрасываем счётчик
Picture1.Refresh ' Очищаем картинку
End Sub

Private Sub Form_Load()
k = 1 ' Задаём начальное значение счётчика
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (k <= 3) Then
    x_a(k) = X ' Запоминаем координаты
    y_a(k) = Y
    Text1.Text = X  ' Выводим в текстбоксы(текстовые поля)
    Text2.Text = Y
    k = k + 1 ' Увеличиваем значение счётчика
    Picture1.PSet (X, Y), vbBlack  ' Ставим точку
End If
End Sub




Спасибо за внимание

[SMR]

Nicky, надо мышь спрятать

[Nicky]

Nicky, надо мышь спрятать

Также можно подсунуть специальную трехщелчковую мышку

[SMR]

[Tamplier]

Дя... А также заблокировать мышь в левом верхнем углу, сменить пароль текущего юзера и администратора и перегрузить компьютер. Вот это будет супер запрещение :/

[Smert]

NUUUUUUU Nicky, ты и предложил(комп выключить ты хоть знаешь как (Програмно))

А у теа SMR,проблема! Ты в алгоритме сделал "Если к меньше либо равно трём, то ставим точку", но я предлагая в дополнение вывести месагбокс (Типа, msgbox"У вас сломалась мышь,перезапустите прогу и кликайте ещё 3 раза",vbCritical+vbDefaultButtonOne,"Microsoft Windows Mouse") Пользователь просто не поймёт , чё это раньше кликалось, а теперь...

[Smert]

Извиняюсь, написал "Предлагая" вместо "Предлагаю"

[Роман-вб]

Smert
Правка сообщений не работает?
так тебе быстро смерть устроют

[Lumen]

Smert
Правка сообщений не работает?
так тебе быстро смерть устроют

Учите русский язык, молодой человек, стыдно.
А по поводу темы: может после трех щелчков мыши форматировать винт