User Control

[inf]

Доброго времени суток.

У меня несколько вопросов касающихся User Control(я только начал его изучать, так что не кричите сильно):
1)Как добавить пункт в свойства User Control? (например: как у таймера Interval)
2)Я сделал User Control с постоянным размером и при его изменении за (-1;-1) VB CRASHED!!!! а при нормальных изменениях размеров в большую сторону все нормально.
делаю так:

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

Private Sub UserControl_Resize()
On Error Resume Next
UserControl.Height = 500
UserControl.Width = 500
End Sub

При первом ресайзе User Control VB работает нормально как и подобает при ON ERROR RESUME NEXT, а если повторить то вылетает из VB. Почему такое происходит? (Ведь с таймером то все нормально при этих же операциях) Это не столь важно, но факт! Остается фактом, с которым мне не очень хочется смирится.
3) Как отслеживать KeyDownы на форме? (из User Control естественно)

З.Ы. Убедительная просьба написать код с пояснениями или хотябы просто код. Я ведь только учусь.
Заранее спс.

[Dmitriy2003]

Что то форум то глючит - вот хотел человеку помочь а нифига постинг уплыл в нибытие


"опс заработал". короче два раза писать не интересно нету никаких глюков.

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


Public Property Get MyInterval() As Variant

End Property

Public Property Let MyInterval(ByVal vNewValue As Variant)

End Property


Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

End Sub


[inf]

ну блин.....
этот вопрос теперь будет мучать меня до конца моих дней. Люди добрые поможите, чем можите.

[tyomitch]

Возьми да заюзай "VB6 ActiveX Ctrl Interface Wizard", раз без него невмоготу.

[inf]

Возьми да заюзай "VB6 ActiveX Ctrl Interface Wizard", раз без него невмоготу.

Мне бы по русски хотелось услышать ответ. Неужели это такие сложные вопросы?

[Viper]

Возьми да заюзай "VB6 ActiveX Ctrl Interface Wizard", раз без него невмоготу.

имеется ввиду, что надо воспользоваться стандартным дизайнером пользовательских элементов управления имеющимся в стандартной посавке VB6. Меню Add-Ins->ActiveX Ctrl Interface Wizard. Если там вдруг нет, то добавляем при помощи Add-Ins->Add-In Manager...

[inf]

Возьми да заюзай "VB6 ActiveX Ctrl Interface Wizard", раз без него невмоготу.

имеется ввиду, что надо воспользоваться стандартным дизайнером пользовательских элементов управления имеющимся в стандартной посавке VB6. Меню Add-Ins->ActiveX Ctrl Interface Wizard. Если там вдруг нет, то добавляем при помощи Add-Ins->Add-In Manager...

Да это я понял, просто я просил ответить с кодом и желательно пояснениями.

Но все равно вопрос 2 и 3 осаются открытыми!

[inf]

ВСЕ! Люди остался всего 1 вопрос!!!

3) Как отслеживать KeyDownы на форме?

[Konst_One]

по 2-му пункту поподробней опишите свою ситуацию, потому что я не могу воспроизвести вашу ошибку.

3. не забудьте KeyPreview=True выставить у формы

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

Option Explicit
Private WithEvents frm As Form

Private Sub frm_KeyDown(KeyCode As Integer, Shift As Integer)
    UserControl.Print "KeyCode=" & KeyCode
End Sub

Private Sub frm_Load()

End Sub

Private Sub UserControl_Initialize()

End Sub

Private Sub UserControl_Show()

    If Ambient.UserMode = True Then
        Set frm = UserControl.Parent
    End If

End Sub

Private Sub UserControl_Terminate()
    Set frm = Nothing
End Sub

[inf]

по 2-му пункту поподробней опишите свою ситуацию, потому что я не могу воспроизвести вашу ошибку.

Это уж не очень важно, но все таки....

Мой UserControl не видим при выполнении. Я его откомпилировал и засунул в свою прогу(уже готовый). Размеры его постоянные. При изменении этих размеров в большую сторону (например было 500х500, а стало 2000х2000), размеры контрола возвращаются в исходные. Но при изменении размеров в меньшую сторону(менее чем 0х0) происходит ошибка при которой VB вылетает без предупреждения даже(это происходит при повторении действий. В первый раз ON ERROR RESUME NEXT срабатывает)

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

[Konst_One]

есть трабла, нашел

попробуй так, по крайней мере, у меня ошибки теперь нет:

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

On Error Resume Next

    UserControl.Width = 500
    UserControl.Height = 500
    DoEvents
   
    If Err.Number <> 0 Then Err.Clear

[inf]

есть трабла, нашел

попробуй так, по крайней мере, у меня ошибки теперь нет:

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

On Error Resume Next

    UserControl.Width = 500
    UserControl.Height = 500
    DoEvents
   
    If Err.Number <> 0 Then Err.Clear

Интересное какое-то решение, но мне оно не помогло =(

[Konst_One]

вот , подправь где тебе надо:

[inf]

спасибо тебе добрый человек.