Userform GetBtnType

Katılım
29 Ocak 2024
Mesajlar
98
Excel Vers. ve Dili
Office 2016
Merhaba,
Aşağıdaki kod' da belirtildiği üzere;
Userform üzerindeki nesnelerinde GetBtnType ifadesine neredenulaşırız? nasıl değiştirebiliriz?

GetBtnType(ctrl, 0)
GetBtnType(ctrl,
1)

buradaki 0 ve 1 ifadeleri ne anlama gelmektedir?

yardımlarınız için şimdiden teşekkürler,
iyi çalışmalar.


Kod:
            For Each ctrl In frmElement.Controls
                If GetBtnType(ctrl, 0) = "btn" Then
                    If GetBtnType(ctrl, 1) = GetBtnType(btnLabel, 1) Then
                        ......................................
                    End If
                End If
            Next
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Excelde yerleşik olarak "GetBtnType" adında bir prosedürü yok, kullandığınız dosyada yada ek bir kitaplıkta bulunan bir prosedür olabileceği gibi bir api de olabilir.

Yani "GetBtnType" hakkında bilgi için dosyanıza bakılması gerekir.
 
Katılım
29 Ocak 2024
Mesajlar
98
Excel Vers. ve Dili
Office 2016
Merhaba.

Excelde yerleşik olarak "GetBtnType" adında bir prosedürü yok, kullandığınız dosyada yada ek bir kitaplıkta bulunan bir prosedür olabileceği gibi bir api de olabilir.

Yani "GetBtnType" hakkında bilgi için dosyanıza bakılması gerekir.
teşekkürler, bu şekilde bir fonksiyon varmış

Kod:
Function GetBtnType(ctrl As Control, Index As Integer)
    If InStr(1, ctrl.Tag, "-") <> 0 Then
        GetBtnType = Split(ctrl.Tag, "-")(Index)
    Else
        GetBtnType = ctrl.Tag
    End If
End Function
 
Katılım
5 Kasım 2006
Mesajlar
589
Excel Vers. ve Dili
TÜRKCE Excel 2021 32bit
Merhaba,
Aşağıdaki kod' da belirtildiği üzere;
Userform üzerindeki nesnelerinde GetBtnType ifadesine neredenulaşırız? nasıl değiştirebiliriz?

GetBtnType(ctrl, 0)
GetBtnType(ctrl,
1)

buradaki 0 ve 1 ifadeleri ne anlama gelmektedir?

yardımlarınız için şimdiden teşekkürler,
iyi çalışmalar.


Kod:
            For Each ctrl In frmElement.Controls
                If GetBtnType(ctrl, 0) = "btn" Then
                    If GetBtnType(ctrl, 1) = GetBtnType(btnLabel, 1) Then
                        ......................................
                    End If
                End If
            Next
Anladığım kadarıyla 0 ile nesnenin Tag kontrol ediliyor btn varmı diye.
Varsa 1 ilede nesnenin tag ında - varmı kontrol ediliyor varsa - bundan sonraki kelime function ile bulunuyor.
 
Üst