- Katılım
- 11 Mart 2005
- Mesajlar
- 3,049
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhaba,
Ekli dosyada userform' da sağ click ile ilgili olarak Class Module ile ilgili bir çalışma yapıyorum.
Multipage' de Alanlar adındaki multipage' e girmesi için
[Üretim-A] sayfasında Listbox üzerinde sağ tıklayınca 2. menüde Alanlar' a tıklayınca hata veriyor.
Aşağıdaki satırda hata veriyor.
Set objCtl = objCtl.ActiveControl
işin doğrusu bu fonksiyonun ne işe yaradığını anlayamadım.
desteğiniz için teşekkürler,
iyi Çalışmalar.
Ekli dosyada userform' da sağ click ile ilgili olarak Class Module ile ilgili bir çalışma yapıyorum.
Multipage' de Alanlar adındaki multipage' e girmesi için
[Üretim-A] sayfasında Listbox üzerinde sağ tıklayınca 2. menüde Alanlar' a tıklayınca hata veriyor.
Aşağıdaki satırda hata veriyor.
Set objCtl = objCtl.ActiveControl
işin doğrusu bu fonksiyonun ne işe yaradığını anlayamadım.
desteğiniz için teşekkürler,
iyi Çalışmalar.
Kod:
Private Function m_ActiveListBox() As Boolean
'
Dim objCtl As Object
Set objCtl = m_objParent.ActiveControl
Do While UCase(TypeName(objCtl)) <> "LISTBOX"
If UCase(TypeName(objCtl)) = "MULTIPAGE" Then
Set objCtl = objCtl.Pages(objCtl.Value).ActiveControl
Else
Set objCtl = objCtl.ActiveControl
End If
Loop
m_ActiveListBox = (StrComp(objCtl.Name, m_LstBox.Name, vbTextCompare) = 0)
ErrActiveListBox:
Exit Function
End Function
[code]
Ekli dosyalar
-
38.1 KB Görüntüleme: 4
-
99.8 KB Görüntüleme: 9
-
115.1 KB Görüntüleme: 9