

| Type | Description | |||
| Appearance | An Appearance collection that holds a collection of skins |
The following VB sample changes the border of the tooltip, using an EBN file:
Private Sub Form_Load()
Set t = New EXTOOLTIPLib.ToolTip
With t
.VisualAppearance.Add &H12, "c:\temp\winword.ebn"
t.Appearance = &H12000000
t.BackColor = RGB(255, 255, 255)
End With
End Sub
The following VB.NET sample changes the border of the tooltip, using an EBN file:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
t = New EXTOOLTIPLib.ToolTip
t.VisualAppearance.Add(&H12, "c:\temp\winword.ebn")
t.Appearance = &H12000000
t.BackColor = ToUInt32(Color.White)
End Sub
where the ToUInt32 function is defined like follows:
Shared Function ToUInt32(ByVal c As Color) As UInt32
Dim i As Long
i = c.R
i = i + 256 * c.G
i = i + 256 * 256 * c.B
ToUInt32 = Convert.ToUInt32(i)
End Function
The following C# sample changes the border of the tooltip, using an EBN file:
private void Form1_Load(object sender, EventArgs e)
{
t = new EXTOOLTIPLib.ToolTip();
t.VisualAppearance.Add(0x12, "c:\\temp\\winword.ebn");
t.Appearance = (EXTOOLTIPLib.AppearanceEnum)0x12000000;
t.BackColor = ToUInt32(Color.White);
}
where the ToUInt32 function is defined like follows:
private UInt32 ToUInt32(Color c)
{
long i;
i = c.R;
i = i + 256 * c.G;
i = i + 256 * 256 * c.B;
return Convert.ToUInt32(i);
}
The following C++ sample changes the border of the tooltip, using an EBN file:
void initToolTip()
{
CoInitialize( NULL );
if ( SUCCEEDED( CoCreateInstance( __uuidof(EXTOOLTIPLib::ToolTip), NULL, CLSCTX_ALL, __uuidof(EXTOOLTIPLib::IToolTip), (LPVOID*)&m_spToolTip ) ) )
{
m_spToolTip->VisualAppearance->Add( 0x12, COleVariant( "c:\\temp\\winword.ebn" ) );
m_spToolTip->Appearance = (EXTOOLTIPLib::AppearanceEnum)0x12000000;
m_spToolTip->BackColor = RGB(255,255,255);
}
}
The following VFP sample changes the border of the tooltip, using an EBN file:
public t as Object
t = CreateObject("Exontrol.ToolTip")
with t
.VisualAppearance.Add(0x12,"c:\temp\winword.ebn")
.Appearance = 0x12000000
.BackColor = RGB(255,255,255)
endwith