Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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
    Next
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.

 

 

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