VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2004/11/12(Fri) 14:40
投稿者： アルゼイド
Ｅメール：
ＵＲＬ：
タイトル： グラフの描画

グラフを描くために目盛りの線を書きたいのですが、うまくいきません。教えてください
Private Sub グラフ_object()
     pic1.Cls
        a = 1
        b = 10
    For X = 500 To 7300 Step 6800 / b
        pic1.DrawStyle = 2
        pic1.Line (X, 300)-(X, 7100), QBColor(8)
        pic1.CurrentX = X - 150
        pic1.CurrentY = 7100 + 50
        pic1.Print a
        a = a + 1
        Next X
        c = Text22.Text
        d = Text22.Text
    For Y = 300 To 7100 Step 6800 / d
        pic1.DrawStyle = 2
        pic1.Line (500, Y)-(7300, Y), QBColor(8)
        pic1.CurrentX = 50
        pic1.CurrentY = Y - 80
        pic1.Print c
        c = c - (Text22.Text - Text23.Text) / d
        Next Y
        pic1.DrawStyle = 0
        pic1.Line (500, 300)-(7300, 7100), QBColor(0), B
        pic1.CurrentX = 7350
        pic1.CurrentY = 7350
        pic1.Print "[pH]"
        pic1.CurrentX = 250
        pic1.CurrentY = 60
        pic1.Print "[IR]"
End Sub

    Text22.Text = 10
    Text23.Text = 0　です。

なんですが、X軸の目盛りを１〜10にしたいのです。このままだと1〜11になるので、b = 9　にしたのですが、そうすると表示する場所はあるのに目盛りが1〜9までしか表示されないのです。
それとY軸のほうもText22を9にして実行すると目盛りの0の表示が消えてしまいます。
どうすればいいのでしょうか？
よろしくお願いします。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -