واژه TypeName ؟؟

[سپهر-111]

سلام دوستان
در کد زیر ، واژه TypeName چه کاری انجام میدهد ؟؟(ایا در میان یک رشته جستجو انجام میدهد؟)



Private Sub Form_Load()
Dim objCtl As Control

For Each objCtrl In Me.Controls
If TypeName(objCtl) = "Label" Then objCtl.Font.Name = "Tahoma"
Next

End Sub

[the king]

سلام دوستان
در کد زیر ، واژه TypeName چه کاری انجام میدهد ؟؟(ایا در میان یک رشته جستجو انجام میدهد؟)



Private Sub Form_Load()
Dim objCtl As Control

For Each objCtrl In Me.Controls
If TypeName(objCtl) = "Label" Then objCtl.Font.Name = "Tahoma"
Next

End Sub


TypeName اسم نوع داده رو بر می گردونه، فرضا اگه متغیر objCtl یک کنترل Label باشه متن "Label" رو بر می گردونه.
از این قابلیت TypeName استفاده شده تا در بین کنترل های داخل فرم (مجموعه Me.Controls) کنترل هایی که Label هستند
رو پیدا کرده و Font شون رو به Tahoma تغییر دهیم.