Не пускать курсор за границы

[Dummiel]

Здравствуйте!

На форме SSTab (ActiveX - Microsoft Tabbed Dialog Control 6.0 (SS5)), на одной из вкладок PictureBox как контейнер, на нем - ImageBox, на нем куча маленьких ImageBox-ов (20 шт) и CommandButton.

1. При нажатии на кнопку необходимо не выпускать курсор мыши за пределы PictureBox-а, при повторном нажатии - пусть гуляет, где хочет. Как это сделать?

Бьюсь с GetCursorPos, SetCursorPos, ClipCursor - не получается, блин!!!

2. При нажатии на кнопку мало того, что не выпускать его за пределы PictureBox-а (т.е., курсор м.б. или на PictureBox-е, или на кнопке, или на большом ImageBox-е, или на одном из 20 маленьких ImageBox-ов), а еще и заставить VB6 реагировать в это время на нажатие ПРАВОЙ клавиши мыши (левая нужна для кнопки - отключение ограничения позиции курсора).

Писать обработку Mouse_Down, Mouse_Up с учетом (If Button = vbRightButton) для каждого контрола из набора, или есть изящное решение в одну-две процедуры?

А может, я родился рано?

P.S. Прошу не отвечать типа - "сам дурак"! Или не отвечайте, или не выпендривайтесь, как это любит ОЧЧЧЕНЬ УМНЫЙ GSerg!

[Nicky]

2. При нажатии на кнопку мало того, что не выпускать его за пределы PictureBox-а (т.е., курсор м.б. или на PictureBox-е, или на кнопке, или на большом ImageBox-е, или на одном из 20 маленьких ImageBox-ов), а еще и заставить VB6 реагировать в это время на нажатие ПРАВОЙ клавиши мыши (левая нужна для кнопки - отключение ограничения позиции курсора).

Писать обработку Mouse_Down, Mouse_Up с учетом (If Button = vbRightButton) для каждого контрола из набора, или есть изящное решение в одну-две процедуры?

Хоть я и не такой умный, как GSerg, но контролы объединять в массивы умею

[Tamplier]

При нажатии на кнопку необходимо не выпускать курсор мыши за пределы PictureBox-а, при повторном нажатии - пусть гуляет, где хочет. Как это сделать?

немного изменю вопрос, но смысл останется тем же (он меня тоже интересует). Как запретить перемещение курсора по экрану, за пределами определенных границ? Я видел в какй-то из библиотек такую функцию, а таскать за собой всю библиотеку из-за одной фунуции несподручно...

[tyomitch]

Дык, ClipCursor

[Dummiel]

Совет классный, да вот как вызывать ClipCursor и как правильно ему передавать нужные координаты?

Ну накропайте кусочек кода, а?

[alibek]

А в MSDN сходить трудно?

[Viper]

а что сложного то? Нужно передать в ClipCursor прмоугольник (RECT то бишь) в пределах которого может перемещаться курсор

[Dummiel]

Нет у меня MSDN

[alibek]

http://msdn.microsoft.com/library/

[Бяка]

Вот пример ограничивающий область перемещения курсора мыши

[Smert]

А с SetCursorPos не мучайся
вот в какой-то библиотеке есть ВlockInput во то вещь!
Тока я в нете торчу, а не дома, поэтому уточнить не могу
А вот !VIPERA! послушай
Раз речь зашла за области то(Щас польёться критика но дочитайте до конца!)
как сделать форму в виде сложной надписи
Скачал блин екзешку(Пример называется) а кода с объяснением нет!
И желательно осх-контролы не предлагать


И ЕЩЁ ДЛЯ ВСЕХ, ОБЪЯСНИТЕ, ЗАЧЕМ ТАСКАТЬ БИБЛИОТЕКУ, КОГДА И ТАК ВСЁ ПАШЕТ
ПОПРОБУЙ НЕ ТАСКАТЬ ЕЁ И МОЖЕТ УДИВИШСЯ, НО ВСЁ ДОЛЖНО РАБОТАТЬ

[Smert]

а КОД ДЛЯ SetWindowRgn отсылайте на X-Hacker_90@mail.ru

[tyomitch]

Smert, языком общения на форуме является русский.
Неужели тяжело формулировать свои мысли так, чтобы их хоть кто-то мог понять?

[Smert]

И насчёт надписи:есть такой фонт "Monotype Corsiva" хорошая вещь, рекомендую

[tyomitch]

лови свою монотайп-курсиву
http://bbs.vbstreets.ru/viewtopic.php?t=17173

[Smert]

Ну попробую сформулировать:как сделать форму сложной формы(Я ЧЕСТНО ИСКАЛ, НО ПРЕДЛОЖИЛИ ЕКЗЕШНИК БЕЗ ОБЪЯСНЕНИЙ И С НАДПИСЬЮ "С*КИ ВЫ ВСЕ.УБИВАТЬ ВАС НАДО", А ПОТОМ ПРЕДЛОЖИЛИ ПЛОХО РАБОТАЮЩИЙ ОСХ-КОНТРОЛ)
И я знаю что надо использовать SetWindowRgn но не знаю, как сделать очень сложной формы(НЕ "RECT" A НАДПИСЬ НАПРИМЕР)

[Smert]

О ПАСИБОЧКИ

[keks-n]

Smert

Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Sub Form_Click()
'end..
Unload Me
End Sub
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim hRgn As Long
Const sText = "Click Here!"
'set the font to 'Times New Romen, size 72'
Me.FontName = "Times New Roman"
Me.FontSize = 72
'set the backcolor to Red
Me.BackColor = vbRed
'open a path bracket
BeginPath Me.hdc
'draw the text
TextOut Me.hdc, 0, 0, sText, Len(sText)
'close the path bracket
EndPath Me.hdc
'convert the path to a region
hRgn = PathToRegion(Me.hdc)
'set the Window-region
SetWindowRgn Me.hWnd, hRgn, True
'destroy our region
DeleteObject hRgn
End Sub

[Smert]

О, Keks-n, tyomitch, БОЛЬШОЕ Than x
Пасиба!

[Роман-вб]

Smert
Какие мы вежливые. На каждую тему -- спасибо, спасибо. Может лучше выражать благодарность в личном порядке, это я про лич. сообщения.
P.S. Ну да это я так, к слову.