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

投稿日: 2004/11/17(Wed) 14:26
投稿者アルゼイド
Eメール
URL
タイトルRe^2: グラフに●で値をとっていく方法

調べて●であたいをとっていくことはできました!
    With pic1
        .FillStyle = vbFSSolid
        .FillColor = vbBlue
    End With
    For u = 0 To 9
        x1 = 500 + 6800 / 9 * u
        y1 = 300 + 6800 / Text22.Text * (Text22.Text - Val(Mid(Form2.List1.List(u), 4, 6)))
        pic1.Circle (x1, y1), 70, vbBlue
    Next u

でも、これを2回実行すると今度はグラフがぬりつぶされてしまうのです…。
どうすればいいのでしょうか?アドバイスお願いします。


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

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