フォントファイルの情報を表示するソフトに着手。
c#のformでやってみよう思ってます。
Sub Line()
' 円の中心
Dim centerX As Integer
centerX = 300
Dim centerY As Integer
centerY = 100
' 円の半径
Dim radius As Integer
radius = 100
Dim max As Integer
max = 200
For i = 0 To max Step 1
radian = 3.14 * 2 * i / max
x = Cos(radian) * radius + centerX
y = Sin(radian) * radius + centerY
' オートシェイプで線を引く。
ActiveSheet.Shapes.AddLine(x, y, centerX, centerY).Select
Selection.ShapeRange.Line.Weight = 0#
' 色をちょっとづつ変えてみる。
Dim calor As Integer
calor = 255 / max * i
Selection.ShapeRange.Line.ForeColor.RGB = RGB(calor, 255, 255)
Next i
End Sub
public partial class MainWindow : Window
{
public MainWindow()
{
InitializeComponent();
}
private void button1_Click(object sender, RoutedEventArgs e)
{
TextBox txtNumber = new TextBox();
txtNumber.Name = "txtNumber";
txtNumber.Text = "1776";
txtNumber.Height = 20;
txtNumber.Width = 100;
testGrid.Children.Add(txtNumber);
testGrid.RegisterName(txtNumber.Name, txtNumber);
}
}
public class HelloWorld {
public static void main(String[] args) {
System.out.println("Hello World!");
}
}