Type | Description | |||
IFontDisp | A Font object that specifies the font to display the panels. |
The following VB sample shows "How can I change the control's font":
With StatusBar1 .BeginUpdate .VisualAppearance.Add 4,"c:\exontrol\images\border.ebn" .VisualAppearance.Add 5,"CP:4 1 1 -1 -1" .BackColorPanels = 83886080 Set f = CreateObject("StdFont") With f .Name = "Verdana" .Size = 12 End With .Font = f .Format = """static text""[fg=255][a=17],11,22,(33/44)" .EndUpdate End WithThe following VB.NET sample shows "How can I change the control's font":
Dim f With AxStatusBar1 .BeginUpdate .VisualAppearance.Add 4,"c:\exontrol\images\border.ebn" .VisualAppearance.Add 5,"CP:4 1 1 -1 -1" .GetOcx().BackColorPanels = &H5000000 f = CreateObject("StdFont") With f .Name = "Verdana" .Size = 12 End With .Font = f .Format = """static text""[fg=255][a=17],11,22,(33/44)" .EndUpdate End WithThe following C++ sample shows "How can I change the control's font":
/* 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\\Debug\\ExStatusBar.dll" using namespace EXSTATUSBARLib; */ EXSTATUSBARLib::IStatusBarPtr spStatusBar1 = GetDlgItem(IDC_STATUSBAR1)->GetControlUnknown(); spStatusBar1->BeginUpdate(); spStatusBar1->GetVisualAppearance()->Add(4,"c:\\exontrol\\images\\border.ebn"); spStatusBar1->GetVisualAppearance()->Add(5,"CP:4 1 1 -1 -1"); spStatusBar1->PutBackColorPanels(83886080); /* Includes the definition for CreateObject function like follows: #include <comdef.h> IUnknownPtr CreateObject( BSTR Object ) { IUnknownPtr spResult; spResult.CreateInstance( Object ); return spResult; }; */ /* Copy and paste the following directives to your header file as it defines the namespace 'stdole' for the library: 'OLE Automation' #import "C:\\WINNT\\System32\\stdole2.tlb" */ stdole::FontPtr f = ::CreateObject(L"StdFont"); f->PutName(L"Verdana"); f->PutSize(_variant_t(long(12))); spStatusBar1->PutFont(IFontDispPtr(((stdole::FontPtr)(f)))); spStatusBar1->PutFormat(L"\"static text\"[fg=255][a=17],11,22,(33/44)"); spStatusBar1->EndUpdate();The following C# sample shows "How can I change the control's font":
axStatusBar1.BeginUpdate(); 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; stdole.IFontDisp f = new stdole.StdFont() as stdole.IFontDisp; f.Name = "Verdana"; f.Size = 12; axStatusBar1.Font = (f as stdole.IFontDisp); axStatusBar1.Format = "\"static text\"[fg=255][a=17],11,22,(33/44)"; axStatusBar1.EndUpdate();The following VFP sample shows "How can I change the control's font":
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 83886080 f = CreateObject("StdFont") with f .Name = "Verdana" .Size = 12 endwith .Font = f .Format = ""+chr(34)+"static text"+chr(34)+"[fg=255][a=17],11,22,(33/44)" .EndUpdate endwith