ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Убегающая кнопка
16 сообщений из 16, страница 1 из 1
Убегающая кнопка
    #35986700
Komlaphas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Komlaphas
Гость
Здравствуйте! нужна помошь.

На форме есть кнопка, как сделать что при наведении на неё курсора, она сразу меняет свое положение на форме.

Буду премного благодарен
...
Рейтинг: 0 / 0
14.05.2009, 20:06
| Ответить | Цитировать | Написать  
Убегающая кнопка
    #35986714
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Komlaphas
> Здравствуйте! нужна помошь.
>
> На форме есть кнопка, как сделать что при наведении на неё курсора, она сразу меняет свое положение на форме.
>
> Буду премного благодарен

Ты не правильно вопрос задаешь! Нужно так:
Мне задали задание: На форме есть кнопка, как сделать что при наведении на неё курсора, она сразу меняет свое положение
на форме.
Кто может сделать, готов оплатить в разумных пределах.
адрес для связи: такой-то

З.Ы. Mouse_Move


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
14.05.2009, 20:13
| Ответить | Цитировать | Написать  
Убегающая кнопка
    #35986731
Komlaphas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Komlaphas
Гость
Игорь Горбонос

Спасибо за участие, а можно поподробнее насчет Mouse_Move
...
Рейтинг: 0 / 0
14.05.2009, 20:20
| Ответить | Цитировать | Написать  
Убегающая кнопка
    #35986741
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Komlaphas
> Игорь Горбонос
>
> Спасибо за участие, а можно поподробнее насчет Mouse_Move
8-)
А что
Google
забанили?


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
14.05.2009, 20:23
| Ответить | Цитировать | Написать  
Убегающая кнопка
    #35986751
Komlaphas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Komlaphas
Гость
Игорь Горбонос,

Мне посоветовали этот форум, как отличный источник. Они были не правы?
Тут только флудеры как ты?
...
Рейтинг: 0 / 0
14.05.2009, 20:27
| Ответить | Цитировать | Написать  
Убегающая кнопка
    #35986764
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Komlaphas
> Мне посоветовали этот форум, как отличный источник. Они были не правы?

Тебя обманули

> Тут только флудеры как ты?

Да, тут половина таких как я, а вторая половина работает и не отвлекается.
Так что, чем богаты, там и рады.


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
14.05.2009, 20:35
| Ответить | Цитировать | Написать  
Убегающая кнопка
    #35986772
Komlaphas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Komlaphas
Гость
Игорь Горбонос,

Блин, Любите поиздеваться)
Почему дать ответ так тяжело?
...
Рейтинг: 0 / 0
14.05.2009, 20:40
| Ответить | Цитировать | Написать  
Убегающая кнопка
    #35986781
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Komlaphas
> Игорь Горбонос,
>
> Блин, Любите поиздеваться)

Совсем, нет. В шутливой форме я показал как правильно задать этот вопрос в случае ( я уверен на 99,99% ) не
знания тобой програмирования на VB6. На оставшийся 0,01% дал подсказку, какое событие обрабатывать.

> Почему дать ответ так тяжело?
Это одно из первых заданий по програмированию. И тебе уже нужен код решающий эту задачу. Возьми книжку и почитай и если
сам не поймешь, приходи и говори я делал вот так, вот код, но работает не правильно не пойму в чем дело.


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
14.05.2009, 20:51
| Ответить | Цитировать | Написать  
Убегающая кнопка
    #35986784
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
И кстати Пункт 2 покажет тебе, что ты не одинок в
проблеме


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
14.05.2009, 20:54
| Ответить | Цитировать | Написать  
Убегающая кнопка
    #35986788
ВasiС
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВasiС
Гость
Komlaphas
Тут люди совсем не злые =)
Просто никто не даст готового решения наблюдечке с золотой каёмочкой.

Напиши лучше - что сделал, что не получается
...
Рейтинг: 0 / 0
14.05.2009, 20:54
| Ответить | Цитировать | Написать  
Убегающая кнопка
    #35986790
Komlaphas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Komlaphas
Гость
Игорь Горбонос,

Хотя, думаю ты правильно делаешь.
Покопаюсь сам!)
Если получится ожидаемое - выложу тут
...
Рейтинг: 0 / 0
14.05.2009, 20:55
| Ответить | Цитировать | Написать  
Убегающая кнопка
    #35986814
Komlaphas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Komlaphas
Гость
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SetCapture Lib "user32.dll" (ByVal hwnd As Long) As Long



Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

SetCapture Command1.hwnd
a = X > Command1.Width
b = X < 0
c = Y > Command1.Height
d = Y < 0

If a Or b Or c Or d Then
ReleaseCapture
>>>Что тут вставить чтобы сдвинулась?<<

End If
End Sub
...
Рейтинг: 0 / 0
14.05.2009, 21:11
| Ответить | Цитировать | Написать  
Убегающая кнопка
    #35986879
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Komlaphas,

Этот код гарантированно будет менять положение кнопки на форме, пока она вообще не исчезнет за ее границей:

Код: plaintext
1.
2.
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Command1.Top = Command1.Top +  100 
End Sub
...
Рейтинг: 0 / 0
14.05.2009, 22:14
| Ответить | Цитировать | Написать  
Убегающая кнопка
    #35986928
Komlaphas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Komlaphas
Гость
Гуд, уже что-то
Спасибо!)
...
Рейтинг: 0 / 0
14.05.2009, 22:54
| Ответить | Цитировать | Написать  
Убегающая кнопка
    #35988778
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gjghjc
Участник
Только я бы еще и
Код: plaintext
Command1.TabStop = False
сделал, чтобы на нее нельзя было Tab-ом фокус установит ь и пробелом нажать.
Да и вместо постоянной величины прибавляемой к Command1.Top прибавлял бы случайную. Да еще и про Command1.Left не забыл бы.
От тогда кнопка по форме как дурная бегать начнет... Весело :)
С уважением, Николай.
...
Рейтинг: 0 / 0
15.05.2009, 17:20
| Ответить | Цитировать | Написать  
Убегающая кнопка
    #35990285
Алесей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алесей
Гость
Код: plaintext
1.
2.
3.
4.
5.
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Randomize
Command1.Top = Rnd * (Form1.Height - Command1.Height)
Command1.Left = Rnd * (Form1.Width - Command1.Width)
End Sub

Вот это будет лучьше и кнопка будет прыгать вверх и вниз и за пределы формы выходить не буде
...
Рейтинг: 0 / 0
17.05.2009, 18:19
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Убегающая кнопка
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&tid=2161002]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 47ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 231ms
total:  380ms
созд. / загр.: 380ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]