投稿日 | : 2005/11/10(Thu) 21:55 |
投稿者 | : マヨ |
Eメール | : |
URL | : |
タイトル | : Re: グラフのX軸、Y軸の書き方 |
PictureBoxのScaleメソッドのヘルプを見てみてください。
と言っても、私はMSDNライブラリをインストールしているので内容が違う場合がありますので、下記
に内容をコピーします。
Scale メソッドの例
次のプログラムは、Scale メソッドを使って、フォーム上に棒グラフを描くための座標系を設定する例で
す。このプログラムを実行するには、フォーム モジュールのコード エディタ ウィンドウに下のコード
を貼り付け、F5 キーを押します。起動後、フォームをクリックします。
Private Sub Form_Click ()
Dim I, OldFontSize ' 変数を宣言します。
Width = 8640: Height = 5760 ' フォームのサイズを設定 (twip) します。
Move 100,100 ' フォームを移動します。
AutoRedraw = -1 ' AutoRedraw プロパティを有効にします。
OldFontSize = Font.Size ' 現在のフォント サイズを保管します。
BackColor = QBColor(7) ' 背景色を灰色に設定します。
Scale (0, 110)-(130, 0) ' 座標を設定します。
For I = 100 To 10 Step -10
Line (0, I)-(2, I) ' 目盛りを 10 単位に設定します。
CurrentY = CurrentY + 1.5 ' カーソル位置を移動します。
Print I ' 左側の目盛りを表示します。
Line (ScaleWidth - 2, I)-(ScaleWidth, I)
CurrentY = CurrentY + 1.5 ' カーソル位置を移動します。
CurrentX = ScaleWidth - 9
Print I ' 右側の目盛りを表示します。
Next I
' 棒グラフを引きます。
Line (10, 0)-(20, 45), RGB(0, 0, 255), BF ' 1 番目の青い棒グラフを引きます。
Line (20, 0)-(30, 55), RGB(255, 0, 0), BF ' 1 番目の赤い棒グラフを引きます。
Line (40, 0)-(50, 40), RGB(0, 0, 255), BF
Line (50, 0)-(60, 25), RGB(255, 0, 0), BF
Line (70, 0)-(80, 35), RGB(0, 0, 255), BF
Line (80, 0)-(90, 60), RGB(255, 0, 0), BF
Line (100, 0)-(110, 75), RGB(0, 0, 255), BF
Line (110, 0)-(120, 90), RGB(255, 0, 0), BF
CurrentX = 18: CurrentY = 100 ' カーソル位置を移動します。
Font.Size = 14 ' フォントを拡大します。
Print "年 4 回の商品セール" ' タイトルを出力します。
FontSize = OldFontSize ' フォント サイズを戻します。
CurrentX = 27: CurrentY = 93 ' カーソル位置を移動します。
Print "計画 Vs 実績" ' サブ タイトルを出力します。
Line (29, 86)-(34, 88), RGB(0, 0, 255), BF ' グラフ サンプルを出力します。
Line (43, 86)-(49, 88), RGB(255, 0, 0), BF
End Sub