Suite Pro - Checkbox caption

Print Page | Close Window

Checkbox caption

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Suite Pro
Forum Description: Topics Related to Codejock Suite Pro
URL: http://forum.codejock.com/forum_posts.asp?TID=15754
Printed Date: 03 May 2024 at 9:05pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Checkbox caption

Posted By: JvdH
Subject: Checkbox caption
Date Posted: 01 December 2009 at 3:03pm

Hello,

Does anyone have a clue why the code at the botton aint working for the CJ checkboxes?

It is working for the CJ PushButton and for the default VB6 checkboxes.

Hope someone can help me out.

Thank you

Sub SetLanguage(frmForm As Form)
Dim ctl As control
For Each ctl In frmForm.Controls

If TypeOf ctl Is PushButton Then _
ctl.Caption = ReadINIFile(App.Path & "\Language.ini", frmForm.Name, ctl.Name, "")

If TypeOf ctl Is CheckBox Then _
ctl.Caption = ReadINIFile(App.Path & "\Language.ini", frmForm.Name, ctl.Name, "")

Next ctl
End Sub

Private Sub Form1_Load()

SetLanguage Me

End Sub

Greetings, JvdH

-------------
Product: Xtreme SuitePro (ActiveX) version 13.2.1
Platform: Windows 7 (64bit)
Language: Visual Basic 6.0 SP6

Replies:

Posted By: Oleg
Date Posted: 02 December 2009 at 4:48am

Hi,

Try "XtremeSuiteControls.CheckBox" intead.

-------------
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS

Posted By: JvdH
Date Posted: 02 December 2009 at 4:10pm

oleg wrote:

Hi,

Try "XtremeSuiteControls.CheckBox" intead.

Works great.

Thanks m8.

-------------
Product: Xtreme SuitePro (ActiveX) version 13.2.1
Platform: Windows 7 (64bit)
Language: Visual Basic 6.0 SP6