' Center caption in Adodc control'' Input: frmForm - Form Adodc contol in on' datAdodc - Adodc control' sCaption - Caption text'' Output: Padded Caption textSub 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) + sCaptionEnd Sub
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
