Login | Register   
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: VB6
Expertise: beginner
Jul 3, 2002

CenterCaptionInAdodc - Center a caption on an ADODC Data control

' Center caption in Adodc control
'
' Input: frmForm  - Form Adodc contol in on
'        datAdodc - Adodc control
'        sCaption - Caption text
'
' Output:  Padded Caption text

Sub CenterCaptionInAdodc(ctrl As Adodc, ByVal sCaption As String)
    Dim lTextWidth As Long
    Dim lSpaceWidth As Long
    Dim iPad As Long

    sCaption = Trim(sCaption)
    lTextWidth = ctrl.Parent.TextWidth(sCaption)
    lSpaceWidth = ctrl.Parent.TextWidth(" ")
    iPad = Round(((ctrl.Width - lTextWidth - 1300) / 2) / lSpaceWidth, 0)

    ctrl.Caption = Space(iPad) + sCaption

End Sub
Bill O'Neil
 
Comment and Contribute

 

 

 

 

 


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

 

 

Sitemap