Посмотрите плиз, бэйсик чудит опять и за что мне эта напасть

[Pantalone]

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

[lister]

ну, видимо, потому что условие y >= picNW.Height And y <= picSW.Top всегда True. Здесь и копай.
А что хочешь сотворить? Размеры панелей менять?

[Viper]

И действительно бред... (имеется ввиду, что сей код есть бред, Бейсик как всегда ни причем). Вариант решения:

Ловить MouseMove над формой отдельно, над ListView отдельно, т.е. должен быть код типа:

Код: Выделить всё

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    MousePointer = vbSizeNS
End Sub
Private Sub picNW_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    MousePointer = vbNormal
End Sub
Private Sub picSW_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    MousePointer = vbNormal
End Sub

[Pantalone]

ну, видимо, потому что условие y >= picNW.Height And y <= picSW.Top всегда True. Здесь и копай.
А что хочешь сотворить? Размеры панелей менять?

Не может оно быть True.
Сплиттер делаю.

[Pantalone]

!Viper!
Нет это бред, потому что это баг в натуральном виде.
Твой код тоже не пашет нормально значит и твой код - бред если рассуждать по твоему

Попробуй перемещать курсор из нижнего списка в верхний и посмотри какой курсор будет на скролбаре верхнего списка.

[Viper]

мой код у меня при любом направлении перемещения меняет форму курсора так как надо.

[Pantalone]

!Viper!
Загрузи второй аттач-то

[Viper]

Скачал... а для ликвидция глюка с полосой прокрутки пиши код так

Код: Выделить всё

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If y >= picNW.Height And y <= picSW.Top Then
    MousePointer = vbSizeNS
Else
    MousePointer = vbNormal
End If
End Sub
Private Sub picNW_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    MousePointer = vbNormal
End Sub
Private Sub picSW_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    MousePointer = vbNormal
End Sub

ИМХО. Если делаешь сплиттер, можно еще поместить между верхним и нижним объектом пиктеребокс, и его использовать как сплиттер... думаю проще будет

[Pantalone]

!Viper!
Ок, будем думать.
Хотя не, посмотрел тоже не работает. Ты равенства перепутал во первых, а во вторых вот я писал:
Попробуй перемещать курсор из нижнего списка в верхний и посмотри какой курсор будет на скролбаре верхнего списка.

[_ae_]

Я особо в код не вникал. Вам требуется отловить момент, когда мышь попадает на границу PictureBox?
Тогда SetCapture и проверять в MouseMove координаты, если например y<5 and y>-5 - значит курсор где-то вблизи границы. Только не забывайте снять capture.

[Pantalone]

Я особо в код не вникал. Вам требуется отловить момент, когда мышь попадает на границу PictureBox?
Тогда SetCapture и проверять в MouseMove координаты, если например y<5 and y>-5 - значит курсор где-то вблизи границы. Только не забывайте снять capture.

Нет меня не интересует применение PictureBox, хочу без него обойтись и это прекрасно работает кроме этого бага с курсором, который не хочет меняться на нормальный, редиска.

[Viper]

поправил код выше. действительно перепутал условия... в таком виде работет все

[alibek]

Один из простых сплиттеров.
Использование сплиттера:
1. Поместить на форму, задать свойство ImmediateArrange=True.
2. На форму поместить Label1, Text1 (слева от сплиттера), Label2, Text2 (справа от сплиттера).
3. В Form_Load написать:

Код: Выделить всё

splMain.ControlClear
splMain.ControlAdd Label1, -1, 120
splMain.ControlAdd Text1, -1, 120
splMain.ControlAdd Label2, 1, Me.ScaleWidth - 120
splMain.ControlAdd Text2, 1, Me.ScaleWidth - 120
splMain.Arrange


[Pantalone]

!Viper!
Попробуй перемещать курсор из нижнего списка в верхний и посмотри какой курсор будет на скролбаре верхнего списка.
У меня на скроллере стрелки получаются.
http://bbs.vbstreets.ru/download.php?id=5014

[Antonariy]

Эхх, велосипедисты-баянисты...

[Pantalone]

Antonariy
Ладно тебе, такую тучу кода ради сплиттера использовать, у меня немного другой сплиттер будет. Просто хотел разобраться что за нафиг такой с этими курсорами в моем примере.

[lister]

Не может оно быть True.

Ну как это не может...
Курсор на стрелки меняется? Меняется... Значит True все-таки есть

[inf]

И действительно бред... (имеется ввиду, что сей код есть бред, Бейсик как всегда ни причем). Вариант решения:

Ловить MouseMove над формой отдельно, над ListView отдельно, т.е. должен быть код типа:

Код: Выделить всё

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    MousePointer = vbSizeNS
End Sub
Private Sub picNW_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    MousePointer = vbNormal
End Sub
Private Sub picSW_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    MousePointer = vbNormal
End Sub

Код правильный не спорю. НО если мышку резко убрать с формы вообще, то останется старый курсор и не поменяется пока не проведешь по форме.

Здесь нодо обрабатывать MouseOut, а не MouseMove я с такой проблемкой сталкивался. Так легче и лучше получается.

З.Ы. Надо сверять позиции курсора.

[Viper]

!Viper!
Попробуй перемещать курсор из нижнего списка в верхний и посмотри какой курсор будет на скролбаре верхнего списка.
У меня на скроллере стрелки получаются.
http://bbs.vbstreets.ru/download.php?id=5014

И попробовал, и переместил, и стрелки у меня меняются нормально, хоть снизу вверх, хоть сверху вниз, хоть в любом другом варианте.

Это все в варианте кода, приведенного мною выше.

[Pantalone]

!Viper!
Ну странно, вот аттач с кодом о котором ты говоришь и у меня, если я с нижнего списка веду курсор на верхний, то на границе списков он меняется на стрелки и далее, пролетая над скроллером, он не меняется на нормальный, хотя скроллер находится под юрисдикцией верхнего списка и стрелок там быть уже не должно, но они есть! На моем компе есть, могу видео прислать

[Antonariy]

Antonariy
Ладно тебе, такую тучу кода ради сплиттера использовать, у меня немного другой сплиттер будет. Просто хотел разобраться что за нафиг такой с этими курсорами в моем примере.

А не все равно, куча или нет? Пример-то отличный. Простой в интеграции и работает как часы.

[Viper]

2 Pantalone, скачанный код из bred3.zip без изменений работает как надо, т.е. форма курсора меняется так как и должна меняться.

[Pantalone]

!Viper!
Ну а вот и видео подоспело, именно того примера который у тебя работает

[Andrey Fedorov]

Постараюсь удержаться от ругани в сторону бэйсика и его вечных багов и еще много слов как я его люблю

Ну ты просто поисковик багов... В темной комнате.
Я бы на твоем месте взял бы просто нормальный сплиттер. Готовый.
Тот же MBSplit или EBSplitter - похожий на него и есть в интернете в исходниках, а не выискивал бы баги там где их нет...

[Pantalone]

Andrey Fedorov
Если ты багов не видел это не значит что их нет, я знаю уже не один и не два.
Я хочу свой сплиттер, почему бы не сделать? MBSplit не поддерживает hwnd.
Тема больше не актуальна, я все уже сделал. Единственное только меня интересует поведение курсора на видео.

[Andrey Fedorov]

Если ты багов не видел это не значит что их нет, я знаю уже не один и не два.

IMHO я их знаю гораздо меньше... С чего бы это?

Я хочу свой сплиттер, почему бы не сделать? MBSplit не поддерживает hwnd.

Ну я тебе и ткнул пальцем на EBSplitter - он в исходниках легко находится в интернете:

Длинная ссылка, портившая всем настроение, заставляя страницу быть шире, чем надо -- GSerg

Возьми и приделай к нему hWnd.

Единственное только меня интересует поведение курсора на видео.

ListView не выдает MouseMove при перемещении по своему ScrollBar-у. Что тут непонятно? Надо подписываться на события собственно ScrollBar-а.

А

[Pantalone]

ListView не выдает MouseMove при перемещении по своему ScrollBar-у. Что тут непонятно? Надо подписываться на события собственно ScrollBar-а.

Ну стало быть это баг, так и запишем

[GSerg]

Pantalone, тебя не смущает, что когда ты водишь мышью по заголовку формы, событие MouseMove не возникает? Это тоже баг?

[alibek]

Ну я тебе и ткнул пальцем на EBSplitter - он в исходниках легко находится в интернете:

Довольно посредственный, кстати, компонент.
То, что выкладывал Antonariy, на порядок качественнее.
Правда и в том, и в другом, зачем-то события (MouseMove) вручную пересылаются в сплиттер, никак не пойму причину этого.

[Andrey Fedorov]

Ну я тебе и ткнул пальцем на EBSplitter - он в исходниках легко находится в интернете:

Довольно посредственный, кстати, компонент.
То, что выкладывал Antonariy, на порядок качественнее.
Правда и в том, и в другом, зачем-то события (MouseMove) вручную пересылаются в сплиттер, никак не пойму причину этого.

Влом разбираться...
И компонент вполне нормальный - для обычной жизни его вполне хватает. Работать с ним просто.

При желании можно и с этим поиграться:

http://www.planet-source-code.com/Uploa ... 212005.zip

А вообще много их всяких...