Как передать свойство если InkEdit явно не объявлен ? - VB

Формулировка задачи:

У меня вопрос как такому объекту передовать свойства (например .BackColor = &HC0E0FF), или вызывать события ???, ниже работающая часть кода ...

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Public InkEdit1 As Object
'Dim WithEvents ???
 
Private Sub Form_Load()
    Set InkEdit1 = Controls.Add("INKED.InkEdit", "InkEdit1", Me)
 
    With InkEdit1
        .Visible = True
    End With
End Sub
 
Private Sub Form_Resize()
 
    With InkEdit1
        .Width = Me.ScaleWidth
        .Height = Me.ScaleHeight
'        Call CallByName(InkEdit1, "BackColor", VbLet, &HC0E0FF)
    End With
End Sub

Решение задачи: «Как передать свойство если InkEdit явно не объявлен ?»

textual
                            Листинг программы 
                        
Public Property Get Ink(Index&) As Variant
    Set Ink = InkEdit1(Index).object
End Property
 
Private Sub Command1_Click()
    Ink(1).Text = Command1.Caption
End Sub

Оцени полезность:

15 голосов , оценка 4.333 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы