VBNet - Форум - Помогите разобраться с кодом

Вопрос: Помогите разобраться с кодом Добавлено: 18.01.06 22:48

Автор вопроса: Android

Dim CM As Boolean
______________________________________________________

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Picture1
If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then
ReleaseCapture
CM = False
.Picture = LoadPicture("C:\1.bmp")
Else
If CM = False Then
SetCapture .hWnd
CM = True
.Picture = LoadPicture("C:\2.bmp")
End If
End If
End With
End Sub

В данном примере не срабатывает ToolTipText. Можно ли как-нить это исправить ( с помощью UserControl или другим путём)?
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #1	Добавлено: 18.01.06 23:27
	А ты нажми и отойди!!! Option Explicit Dim CM As Boolean Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long Private Sub Form_Load() Picture1.ToolTipText = "Типа твой текст" End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) With Picture1 If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then ReleaseCapture CM = False Picture = LoadPicture(":\1.bmp" Else If CM = False Then SetCapture .hwnd CM = True Picture = LoadPicture(":\2.bmp" End If End If End With End Sub Ответить

Номер ответа: 2 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #2	Добавлено: 18.01.06 23:38
	Нажал на PictureBox - появилась тултип! Я кстати не понял почему без нажатия не показывает! Мож люди скажут? Ответить

Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #3	Добавлено: 19.01.06 19:36
	API Relez Baloon Tool Tip (от sne) например Ответить

Номер ответа: 4 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #4	Добавлено: 19.01.06 19:47
	2HACKER: А с чем связана проблема? Почему без нажатия не пахет? Ответить

Номер ответа: 5 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #5	Добавлено: 19.01.06 21:34
	ReleaseCapture вызвать в самом начале Picture1_MouseMove... Ответить

Номер ответа: 6 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #6	Добавлено: 19.01.06 22:03
	Да стопудово - а я вот это проверить забыл. Работает проверно! Ответить

Страница: 1 |