Глюк после компиляции

[Matew]

Имеется вот такой код:

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

Private Sub sliRazmer_Change()
Dim intPress As Integer
If flRazmer = 0 then
        intPress = MsgBox("Точно изменить?", vbQuestion + vbYesNo, "Вопрос")
        If intPress = vbNo Then
            Exit Sub
        Else
                sliRazmer.SetFocus
                flRazmer=1
        End If
End If
If flRazmer=1 then а=sliRazmer.value
End Sub


Такая же процедура на Скрол. Так вот, после компиляции программа при попытки изменить положение слайдера выдает ошибку №5. Она происходит в строке sliRazmer.SetFocus. Мож мне это как нить переделать?

[tyomitch]

Попробуй в Form_Load первой строкой вставить

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

Show

[Matew]

А почему это поможет??

[Matew]

Помогло на половину)) Ошибку не выдает, но МСЖбокс два раза выкидывает. Че делать?

[tyomitch]

А почему это поможет??

Потому что SetFocus обламывается при невидимой форме.

[gaidar]

Прежде всего - стандартный код, при использовании SetFocus таков:

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

If Object.Visible Then Object.SetFocus


А что это, кстати, за a такое:

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

а=sliRazmer.value

Просто интересно.

И использование одного и того же кода в Change и Scroll не оправдано.

[Matew]

Форма и слайдер видимы наверняка.
а-это размер полигона в другой процедуре
а почему неьзя использовать одинаковые процедуры в скроле и чендже?

[gaidar]

Можно, но не нужно. Ведь при Scroll происходит Change. Поэтому-то два раза и появляется сообщение.

[Matew]

А без компиляции тока один раз.......

[Amed]

Можно, но не нужно. Ведь при Scroll происходит Change. Поэтому-то два раза и появляется сообщение.

Хм... Позволю себе заметить, что при Scroll Change уже не происходит. Лично у меня оба события происходят абсолютно независимо...

[GSerg]

Тогда я позволю заметить, что Change происходит сразу вслед за последним Scroll

[Amed]

Так. Скажем, ставлю на событие scroll оператор msgbox "scroll", а на change - msgbox "change".
Если они происходят один за другим, то должны выползти 2 msgbox'а в непонятно каком порядке.
Но в том то всё и дело, что выползает только один
Кликаешь на контрол - Change, перетаскиваешь движок - Scroll.

[GSerg]

А ты вместо msgbox сделай debug.? ...

[Amed]

Debug.Print?

Тот же результат

[Matew]

Я попробовал вот так:

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

Private Sub sliRazmer_Scroll()
On Error GoTo qq


If flRazmer = 0  Then
Dim intPress As Integer
        intPress = MsgBox("Точно изменить?", vbQuestion + vbYesNo, "Ïîäòâåðæäåíèå")
        If intPress = vbNo Then
            Exit Sub
        Else
            flRazmer = 1
            If sliRazmer.Visible Then sliRazmer.SetFocus
        End If
End If
qq:
If flRazmer = 1  Then a=sliRazmer.value
End Sub


Поставил Show в Form_load, убрал вообще Change. Ошибку не выдает, но сообщение всеравно два раза вывдит! Если убрать On Error GoTo qq то и ошибку выдает! Что мне делать? Мож это как-то по другому написать?

[Amed]

Попробуйте добавить ещё DoEvents после Show в Form_Load...

[Matew]

DoEvents не помогло(((. Мож алгоритм поменять?

[Amed]

Ошибка происходит при невидимой форме? Может, так сделать:

Do While Form1.Visible=False
DoEvents
Loop

Вместо DoEvents...

Но я точно не уверен...

[Matew]

Ошибка происходит при видимой форме((

[SHURUP]

Я не понял, зачем вообще нужно "sliRazmer.SetFocus", ведь если вызывается событие scroll или Change, то контрол sliRazmer становится активным.
Убирай "sliRazmer.SetFocus" и обе проблемы исчезают.

[Matew]

Без него ниче ваще не работает-сообщение два раза выскакивает(есть тока процедура скрол, ченджя нет), и нельзя сдвинуть слайдер фокус пропадает после МСЖбокса((

[SHURUP]

Да! я протупил! Но ради реабилитации выкладую пример!
Токо-что сам сделал - вроде работает!

[Matew]

Я выяснил в чем дело! После компиляции событие Scroll происходит два раза! Что можно сделать? Я уже пробовал поменять сам Слайдер на форме-не помогает(((

[SHURUP]

Уточню, второй раз произходит когда после месаджбокса фокус переходит на ползунок слайда. это легко проверить, просто счелкнув на сам бегунок(без перетаскивания).
Попробуй так, как я показал в примере. Т.е. отслеживать скрол: если происходит перемещение слайда -то выполнять какие-то действия, а когда позиция слайда не изменилась (slide1.value = prevValue), то это значит что сработал глюк слайда и ничего приетом не делать.
А вообще подумай, может можно обойтись без слайда. Со скролбаром таких глюков не замечалось. А если я правильно понял, у тебя слайдер имеет два значения - 0 и 1, То в этом случае тебе поможет элементарный чекбокс.

[Matew]

SHURUP, я сделал так, как ты сказал, но ничего не изменилось. После компияции все равно сообщение выскакиает дважды(((( До компиляции все работает нормально. Второй раз когда выскакивает сообщение выбор да или нет не имеет значения, результат зависит тока от первгого выбора((

[Matew]

Все сори! се работает!