|
Тема
|
Събития към контроли
|
|
Автор | _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 да "закача" някоя функция. Можете ли да ми помогнете? ![](http://i.dirbg.com/clubs/icons/frown.gif)
| |
Тема
|
Re: Събития към контроли
[re: _cro]
|
|
Автор | VBProgrammer (Нерегистриран) |
Публикувано | 20.06.05 19:12 |
|
AddHandler cmb.SelectedIndexChanged, New EventHandler(AddressOf Me.AddedCombo_SelectedIndexChanged)
'Definarash nqkyde po-doly
Private Sub AddedCombo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
| |
|
А тебе оти те няма в ICQ-то? ;о)
Щирлиц
| |
Тема
|
Re: Събития към контроли
[re: Щиpлиц]
|
|
Автор | VBProgrammer (Нерегистриран) |
Публикувано | 21.06.05 18:21 |
|
мамка им админска - файервола яде ИП пакети сега вече и порт 80 почнаха.
| |
|
|
|
|