| Вопрос: Оформление программы | Добавлено: 04.06.08 22:32 |
Автор вопроса:  Trey
|
| Ответы | Всего ответов: 33 |
|
Номер ответа: 31 Автор ответа:  Trey Вопросов: 13 Ответов: 45 |
Профиль | | #31 | Добавлено: 07.06.08 14:15 |
|
Пришел к решению заюзать вот такой код:
Dim Key As Boolean Private Sub Form_Load() Key = False Image1.Picture = Image1 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Key = False Then Exit Sub Key = False Image1.Picture = Image1 End Sub Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Key = True Then Exit Sub Key = True Image1.Picture = Image2 End Sub Вопрос как применить функцию чтобы вызывать ее в каждом форме. Допустим если я вписал этот код в Модуль1 Каким кодом вызывать ее в каждой форме? Зарание спасибо |
||
|
Номер ответа: 32 Автор ответа: D o c a l  ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #32 | Добавлено: 07.06.08 16:46 |
| Блин ну разве тяжело зделать контрол.Поищи в нете как это делаетса и не будет тебя таких проблем.Или может тебе дать какойнить исходник контрола.А ты туда только картинки будеш кидать. | ||
|
Номер ответа: 33 Автор ответа: TreyВопросов: 13 Ответов: 45 |
Профиль | | #33 | Добавлено: 07.06.08 21:34 |
| Дай лучше исходник какого нить контрола. чтобы разобратся | ||