Lines Matching refs:ctl
452 Dim ctl As Control variable
482 For Each ctl In frm.Controls
485 ctl.Font.Charset = nCharSet
487 If TypeName(ctl) = "Menu" Then
488 If IsNumeric(ctl.Caption) Then
489 ctl.Caption = LoadResString(CInt(ctl.Caption))
491 ElseIf TypeName(ctl) = "TabStrip" Then
492 For Each obj In ctl.Tabs
503 ElseIf TypeName(ctl) = "Toolbar" Then
504 For Each obj In ctl.Buttons
509 ElseIf TypeName(ctl) = "ListView" Then
510 For Each obj In ctl.ColumnHeaders
515 ElseIf TypeName(ctl) = "TextBox" Then
516 If IsNumeric(ctl.Tag) Then
517 ctl.Text = LoadResString(CInt(ctl.Tag))
520 If IsNumeric(ctl.Tag) Then
521 ctl.Caption = GetResString(CInt(ctl.Tag))
524 If IsNumeric(ctl.ToolTipText) Then
526 ctl.ToolTipText = LoadResString(CInt(ctl.ToolTipText))