Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB4.,VB5,VB6
Expertise: beginner
Dec 16, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Ensure that a form's TextBox and ComboBox controls have same height

In general you don't have any control on a ComboBox's Height property, because it is determined automatically by VB depending on the font used for the ComboBox control. If you have a form that contains both TextBox and ComboBox controls, you should ensure that all your single-line TextBox controls are as tall as the ComboBox controls on the same form. The following routine can help you quickly set the Height property of all the single-line TextBox controls on a form:

' change the height of all the single-line TextBox in a form

Sub SetTextboxHeight(frm As Form, ByVal Height As Single)
    Dim ctrl As Control
    For Each ctrl In frm.Controls
        If TypeOf ctrl Is TextBox Then
            If ctrl.MultiLine = False Then
                ctrl.Height = Height
            End If
        End If
End Sub
For example, if you have a Combo1 control on the Form1 form, you can ensure that all the TextBox control on that form are as tall as the ComboBox control with this line of code:

Private Sub Form_Load()
    SetTextboxHeight Me, Combo1.Height
End Sub
Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date