

| Type | Description | |||
| Object | An Object that indicates the inner ActiveX control being created by ControlID property. |
The following VB sample shows "How do I access the properties and the methods of an inner ActiveX control to a panel":
With StatusBar1 .BeginUpdate .Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _ "/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _ "/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _ "x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _ "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" With .VisualAppearance .Add 4,"c:\exontrol\images\border.ebn" .Add 5,"CP:4 1 1 -1 -1" End With .BackColorPanels = 83886080 .BackColor = -2147483633 .Format = "1/2,(24;5/6)" With .Panel(1) .ControlID = "MSCAL.Calendar" With .Object .MonthLength = 0 .BackColor = 16777215 End With End With With .Panel(5) .Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>" .Alignment = exAlignMiddleLeft .Percent = 75 .Transparency = 35 .Offset = "4 2 -4 -2" End With .EndUpdate End WithThe following VB.NET sample shows "How do I access the properties and the methods of an inner ActiveX control to a panel":
With AxStatusBar1 .BeginUpdate .Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _ "/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _ "/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _ "x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _ "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" With .VisualAppearance .Add 4,"c:\exontrol\images\border.ebn" .Add 5,"CP:4 1 1 -1 -1" End With .GetOcx().BackColorPanels = &H5000000 .GetOcx().BackColor = &H8000000f .Format = "1/2,(24;5/6)" With .get_Panel(1) .ControlID = "MSCAL.Calendar" With .Object .MonthLength = 0 .BackColor = 16777215 End With End With With .get_Panel(5) .Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>" .Alignment = EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft .Percent = 75 .Transparency = 35 .Offset = "4 2 -4 -2" End With .EndUpdate End WithThe following C++ sample shows "How do I access the properties and the methods of an inner ActiveX control to a panel":
/*
Copy and paste the following directives to your header file as
it defines the namespace 'EXSTATUSBARLib' for the library: 'ExStatusBar 1.0 Control Library'
#import "D:\\Exontrol\\ExStatusBar\\project\\Demo\\ExStatusBar.dll"
using namespace EXSTATUSBARLib;
*/
EXSTATUSBARLib::IStatusBarPtr spStatusBar1 = GetDlgItem(IDC_STATUSBAR1)->GetControlUnknown();
spStatusBar1->BeginUpdate();
spStatusBar1->Images(_bstr_t("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0") +
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" +
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" +
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
EXSTATUSBARLib::IAppearancePtr var_Appearance = spStatusBar1->GetVisualAppearance();
var_Appearance->Add(4,"c:\\exontrol\\images\\border.ebn");
var_Appearance->Add(5,"CP:4 1 1 -1 -1");
spStatusBar1->PutBackColorPanels(83886080);
spStatusBar1->PutBackColor(-2147483633);
spStatusBar1->PutFormat(L"1/2,(24;5/6)");
EXSTATUSBARLib::IPanelPtr var_Panel = spStatusBar1->GetPanel(long(1));
var_Panel->PutControlID(L"MSCAL.Calendar");
/*
Copy and paste the following directives to your header file as
it defines the namespace 'MSACAL' for the library: 'Microsoft Calendar Control 9.0'
#import "C:\\PROGRA~1\\MICROS~2\\Office\\MSCAL.OCX"
*/
MSACAL::ICalendarPtr var_Calendar = ((MSACAL::ICalendarPtr)(var_Panel->GetObject()));
var_Calendar->PutMonthLength(0);
var_Calendar->PutBackColor(16777215);
EXSTATUSBARLib::IPanelPtr var_Panel1 = spStatusBar1->GetPanel(long(5));
var_Panel1->PutText(L"<fgcolor=FFFFFF><img>1</img>75%</fgcolor>");
var_Panel1->PutAlignment(EXSTATUSBARLib::exAlignMiddleLeft);
var_Panel1->PutPercent(75);
var_Panel1->PutTransparency(35);
var_Panel1->PutOffset(L"4 2 -4 -2");
spStatusBar1->EndUpdate();
The following C# sample shows "How do I access the
properties and the methods of an inner ActiveX control to a panel":
axStatusBar1.BeginUpdate();
axStatusBar1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" +
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" +
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" +
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
EXSTATUSBARLib.Appearance var_Appearance = axStatusBar1.VisualAppearance;
var_Appearance.Add(4,"c:\\exontrol\\images\\border.ebn");
var_Appearance.Add(5,"CP:4 1 1 -1 -1");
(axStatusBar1.GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels = 0x5000000;
(axStatusBar1.GetOcx() as EXSTATUSBARLib.StatusBar).BackColor = 0x8000000f;
axStatusBar1.Format = "1/2,(24;5/6)";
EXSTATUSBARLib.Panel var_Panel = axStatusBar1.get_Panel(1);
var_Panel.ControlID = "MSCAL.Calendar";
// Add 'Microsoft Calendar Control 9.0' reference to your project.
MSACAL.Calendar var_Calendar = (var_Panel.Object as MSACAL.Calendar);
var_Calendar.MonthLength = 0;
var_Calendar.BackColor = 16777215;
EXSTATUSBARLib.Panel var_Panel1 = axStatusBar1.get_Panel(5);
var_Panel1.Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>";
var_Panel1.Alignment = EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
var_Panel1.Percent = 75;
var_Panel1.Transparency = 35;
var_Panel1.Offset = "4 2 -4 -2";
axStatusBar1.EndUpdate();
The following VFP sample shows "How do I access the
properties and the methods of an inner ActiveX control to a panel":
with thisform.StatusBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .VisualAppearance .Add(4,"c:\exontrol\images\border.ebn") .Add(5,"CP:4 1 1 -1 -1") endwith .BackColorPanels = 83886080 .BackColor = -2147483633 .Format = "1/2,(24;5/6)" with .Panel(1) .ControlID = "MSCAL.Calendar" with .Object .MonthLength = 0 .BackColor = 16777215 endwith endwith with .Panel(5) .Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>" .Alignment = 16 .Percent = 75 .Transparency = 35 .Offset = "4 2 -4 -2" endwith .EndUpdate endwith