Type | Description | |||
Long | A long expression that indicates the index of the icon being displayed in the panel. |
The following VB sample shows "How can I insert an icon 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=" .VisualAppearance.Add 4,"c:\exontrol\images\border.ebn" .VisualAppearance.Add 5,"CP:4 1 1 -1 -1" .BackColorPanels = 83886080 .Format = "1,2,3,4,(5/6/7/8)" .Panel(1).Image = 1 .EndUpdate End WithThe following VB.NET sample shows "How can I insert an icon 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=" .VisualAppearance.Add 4,"c:\exontrol\images\border.ebn" .VisualAppearance.Add 5,"CP:4 1 1 -1 -1" .GetOcx().BackColorPanels = &H5000000 .Format = "1,2,3,4,(5/6/7/8)" .get_Panel(1).Image = 1 .EndUpdate End WithThe following C++ sample shows "How can I insert an icon 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 "C:\\WINNT\\system32\\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="); spStatusBar1->GetVisualAppearance()->Add(4,"c:\\exontrol\\images\\border.ebn"); spStatusBar1->GetVisualAppearance()->Add(5,"CP:4 1 1 -1 -1"); spStatusBar1->PutBackColorPanels(83886080); spStatusBar1->PutFormat(L"1,2,3,4,(5/6/7/8)"); spStatusBar1->GetPanel(long(1))->PutImage(1); spStatusBar1->EndUpdate();The following C# sample shows "How can I insert an icon 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="); axStatusBar1.VisualAppearance.Add(4,"c:\\exontrol\\images\\border.ebn"); axStatusBar1.VisualAppearance.Add(5,"CP:4 1 1 -1 -1"); (axStatusBar1.GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels = 0x5000000; axStatusBar1.Format = "1,2,3,4,(5/6/7/8)"; axStatusBar1.get_Panel(1).Image = 1; axStatusBar1.EndUpdate();The following VFP sample shows "How can I insert an icon 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) .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 83886080 .Format = "1,2,3,4,(5/6/7/8)" .Panel(1).Image = 1 .EndUpdate endwith