|
Тема |
Събития към контроли |
|
Автор | _cro (Нерегистриран) | |
Публикувано | 15.06.05 18:07 |
|
|
Здравейте, имам multipage (да кажем mPage), към която в run time добавям контроли - текстбоксове, комбота и пр. Искам да им присвоя събития но не се сещам как!
Например комбо изчертавам по следния начин
Private Sub AddCombo(cName As String, posX As Long, posY As Long, cWidth As Long, cStyle As Long)
Set cmb = mPage.Pages(mPage.Value).Controls.Add("Forms.ComboBox.1")
With cmb
.Name = cName
.TextAlign = fmTextAlignRight
.Font.Size = 9
.Font.Name = "verdana"
.SpecialEffect = fmSpecialEffectFlat
.Style = IIf(cStyle = 0, fmStyleDropDownCombo, fmStyleDropDownList)
.Left = posX
.Top = posY
.Width = cWidth
.Height = 16
.TextAlign = fmTextAlignLeft
End With
End Sub
Сега искам на събитието Click да "закача" някоя функция. Можете ли да ми помогнете?
|
| |
|
|
|