画像表示

１９９８年６月１８日の１２観測所ベクトル風画像

　１２観測所のベクトル風画像。VisualBasicのVer2.0で矢印の塗りつぶしに成功。
といっても大西さんのアドバイスによるもので、ＡＰＩ関数Polygonが使えるように、コードモジュールで、

　　Option Explicit
　　Type POINTAPI
　　　　x As Integer
　　　　y As Integer
　　End Type
　　Declare Sub Polygon Lib "GDI" (ByVal hDC As Integer, lpPoints As POINTAPI, ByVal nCount As Integer)
　　Declare Sub SetPolyFillMode Lib "GDI" (ByVal hDC As Integer, ByVal nPolyFillMode As Integer)

を記述しました。
さらに、これまでのベクトル･グラフ描画に加えて、中断･再開ボタン、ベクトル描画を追加。ピクチャーボックスにも日付や時刻を加えました。
下の画像は、そのインターフェイスと、湖陸風を表しています。

前に戻る