Does your control support subscript or superscript, in HTML captions?
VBA (MS Access, Excell...)
With Button1
.Caption = "Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>s" & _
"uperscript</off></font></sha> support"
End With
VB6
With Button1
.Caption = "Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>s" & _
"uperscript</off></font></sha> support"
End With
VB.NET
With Exbutton1
.Caption = "Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>s" & _
"uperscript</off></font></sha> support"
End With
VB.NET for /COM
With AxButton1
.Caption = "Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>s" & _
"uperscript</off></font></sha> support"
End With
C++
/*
Copy and paste the following directives to your header file as
it defines the namespace 'EXBUTTONLib' for the library: 'ExButton 1.0 Control Library'
#import <ExButton.dll>
using namespace EXBUTTONLib;
*/
EXBUTTONLib::IButtonPtr spButton1 = GetDlgItem(IDC_BUTTON1)->GetControlUnknown();
spButton1->PutCaption(_bstr_t("Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>s") +
"uperscript</off></font></sha> support");
C++ Builder
Button1->Caption = TVariant(String("Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>s") +
"uperscript</off></font></sha> support");
C#
exbutton1.Caption = "Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>s" +
"uperscript</off></font></sha> support";
JScript/JavaScript
<BODY onload='Init()'>
<OBJECT CLASSID="clsid:F3A2203A-6B28-4A74-9DC9-4065D1C0A29D" id="Button1"></OBJECT>
<SCRIPT LANGUAGE="JScript">
function Init()
{
Button1.Caption = "Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>s" +
"uperscript</off></font></sha> support";
}
</SCRIPT>
</BODY>
VBScript
<BODY onload='Init()'>
<OBJECT CLASSID="clsid:F3A2203A-6B28-4A74-9DC9-4065D1C0A29D" id="Button1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Button1
.Caption = "Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>s" & _
"uperscript</off></font></sha> support"
End With
End Function
</SCRIPT>
</BODY>
C# for /COM
axButton1.Caption = "Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>s" +
"uperscript</off></font></sha> support";
X++ (Dynamics Ax 2009)
public void init()
{
str var_s;
;
super();
var_s = "Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>su";
var_s = var_s + "perscript</off></font></sha> support";
exbutton1.Caption(var_s);
}
Delphi 8 (.NET only)
with AxButton1 do
begin
Caption := 'Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>su' +
'perscript</off></font></sha> support';
end
Delphi (standard)
with Button1 do
begin
Caption := 'Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>su' +
'perscript</off></font></sha> support';
end
VFP
with thisform.Button1
var_s = "Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>su"
var_s = var_s + "perscript</off></font></sha> support"
.Caption = var_s
endwith
dBASE Plus
local oButton
oButton = form.Activex1.nativeObject
oButton.Caption = "Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>superscript</off></font></sha> support"
XBasic (Alpha Five)
Dim oButton as P
oButton = topparent:CONTROL_ACTIVEX1.activex
oButton.Caption = "Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>superscript</off></font></sha> support"
Visual Objects
oDCOCX_Exontrol1:Caption := "Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>superscript</off></font></sha> support"
PowerBuilder
OleObject oButton
oButton = ole_1.Object
oButton.Caption = "Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>superscript</off></font></sha> support"
Visual DataFlex
Procedure OnCreate
Forward Send OnCreate
Set ComCaption to "Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>superscript</off></font></sha> support"
End_Procedure
XBase++
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oButton
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oButton := XbpActiveXControl():new( oForm:drawingArea )
oButton:CLSID := "Exontrol.Button.1" /*{F3A2203A-6B28-4A74-9DC9-4065D1C0A29D}*/
oButton:create(,, {10,60},{610,370} )
oButton:Caption := "Text with <font ;7><off 6><sha ;;0>subscript</off></font></sha> and <font ;7><off -6><sha ;;0>superscript</off></font></sha> support"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN