Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

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