FarPoint.Win.Spread.StyleInfo info = new FarPoint.Win.Spread.StyleInfo();
FontDialog f = new FontDialog();
bool b;
if (f.ShowDialog() == DialogResult.OK)
{
info.Font = f.Font;
b = info.IsPropertySet(FarPoint.Win.Spread.SheetStyleProperty.Font);
listBox1.Items.Add(b.ToString());
fpSpread1.ActiveSheet.DefaultStyle = info;
}
Dim info As New FarPoint.Win.Spread.StyleInfo()
Dim f As New FontDialog()
Dim b As Boolean
If f.ShowDialog() = DialogResult.OK Then
info.Font = f.Font
b = info.IsPropertySet(FarPoint.Win.Spread.SheetStyleProperty.Font)
ListBox1.Items.Add(b.tostring())
FpSpread1.ActiveSheet.DefaultStyle = info
End If