| Вопрос: Оформление программы | Добавлено: 04.06.08 22:32 |
Автор вопроса:  Trey
|
| Ответы | Всего ответов: 33 |
|
Номер ответа: 16 Автор ответа:  Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #16 | Добавлено: 06.06.08 00:19 |
|
Может лучше контрол сделаешь? или тупо с инета готовый скачаешь) Куча пустых Image на форме - это как-то..
Smith, где сплит? возможно это поможет мне тебя понимать 
|
||
|
Номер ответа: 17 Автор ответа: Trey Вопросов: 13 Ответов: 45 |
Профиль | | #17 | Добавлено: 06.06.08 01:04 |
|
Примеры готовые слишком сложные и в них используется классы, чего я и не хочу.. мне нужно пожирнее код программы сделать. Это для курсовой.
Не хочу делать сложные функции по той причине, что препод один фиг будет знать больше и попросту может грузануть.. Так что прошу помощь разобраться с image. в принципе она удовлетворяет требования. Тока бы добавить фишку с подсветкой кнопки при нажатии и при наведении курсора. Отпишите пример плиз. |
||
|
Номер ответа: 18 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #18 | Добавлено: 06.06.08 01:06 |
|
Ну например на событие MouseMove:
If img1.Tag <> 1 Then img1.Picture = <...> img1.Tag = 1 End If |
||
|
Номер ответа: 19 Автор ответа: TreyВопросов: 13 Ответов: 45 |
Профиль | | #19 | Добавлено: 06.06.08 01:19 |
|
вообще в глову пришла такой код
Private Sub image1_click() If Image1.Visible = True Then Image1.Visible = False Image2.Visible = True Form2.Show End If End Sub все работает, теперь бы добавить событие при наведении мыши на картинку.. |
||
|
Номер ответа: 20 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #20 | Добавлено: 06.06.08 01:20 |
| Сплиттинг окон или как это нынче зовётся? | ||
|
Номер ответа: 21 Автор ответа: Игорёк Вопросов: 1 Ответов: 2 |
Web-сайт: Профиль | | #21 | Добавлено: 06.06.08 01:35 |
| Че вы все замарачиваетесь и изобретаете новые кнопки, контролы, когда уже все есть, прочто нужно взять и воспользоватся. подсветку кнопки и затемнение при нажатии с легкостью можно сделать при помощи AlphaImageControl.ocx, очень офигенный контрол. я делаю кнопку за 5 сек, стоит только нарисовать рисунок и все!!!!!!!!!!!!!!!!!!!!!!!!! | ||
|
Номер ответа: 22 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #22 | Добавлено: 06.06.08 02:02 |
|
Smith, аа) ну да.
Не знаю, я бы использовал сплиттеры, иногда бывает очень даже нужно, но на vb6 - это геморно |
||
|
Номер ответа: 23 Автор ответа: TreyВопросов: 13 Ответов: 45 |
Профиль | | #23 | Добавлено: 06.06.08 19:37 |
| Немогу разобартся, как мне при наведении мышки заменить картинку, подскажите пример простого решения | ||
|
Номер ответа: 24 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #24 | Добавлено: 06.06.08 20:40 |
|
Private Sub Image1_mousemove(...)
If Image1.Visible Then Image1.Visible = False Image2.Visible = True End If End Sub Private Sub Form1_mousemove(...) If Image2.Visible Then Image1.Visible = True Image2.Visible = False End If End Sub |
||
|
Номер ответа: 25 Автор ответа: TreyВопросов: 13 Ответов: 45 |
Профиль | | #25 | Добавлено: 06.06.08 21:44 |
| Я так понимаю в (...) нужно указать координаты? откуда их можно взять? | ||
|
Номер ответа: 26 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #26 | Добавлено: 06.06.08 21:58 |
|
Ничего указывать ненадо.
Над кодом вверху два комбобокса, в левом объекты формы, в правом их события. Выбираешь в левом имедж в правом маусмув получаешь готовый обработчик события. Вот в нём и пишешь иф имедж и т.д. |
||
|
Номер ответа: 27 Автор ответа: TreyВопросов: 13 Ответов: 45 |
Профиль | | #27 | Добавлено: 06.06.08 22:01 |
| Вроде понял в скобках нужно указать(Button As Integer, Shift As Integer, x As Single, y As Single), когда навожу курсором, появляется image2 но когда убераю, она не исчезает, в чем может быть дело? | ||
|
Номер ответа: 28 Автор ответа: TreyВопросов: 13 Ответов: 45 |
Профиль | | #28 | Добавлено: 06.06.08 22:08 |
|
Поковырялся,
Private Sub Form1_mousemove(...) If Image2.Visible Then Image1.Visible = True Image2.Visible = False End If End Sub Не работает.. |
||
|
Номер ответа: 29 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #29 | Добавлено: 06.06.08 22:20 |
|
Так там в скобках тоже
Button As Integer, Shift As Integer, x As Single, y As Single нужны |
||
|
Номер ответа: 30 Автор ответа: Smith ICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #30 | Добавлено: 06.06.08 22:32 |
|
Но тут у тебя проблема не в этом.
Ты просто тупо скопировал отсюда и вставил, нет бы полюбопытствовать. Form1_MouseMove не бывает Бывает Form_....
|
||