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

投稿日: 2004/10/05(Tue) 21:20
投稿者花ちゃん
Eメール
URL
タイトルRe^3: サンプルについて

> ちなみに、csvファイルは、MSChartコントロールを使ってグラフを表示する(その1)で
> 作成したseiseki.csvでしょうか?

上記のデータを数値の部分のみ2行10列分だけ使ったものです。

紛らわしいならご自分でデータを作成するなり、下記を試して見て下さい。
でも、上記データを読み込む部分が理解できないと応用もできませんよ。
データの読込は通常のグラフと同じですよ。
但し、散布図なので数値データだけが必要なので項目等の文字列の部分は削除するなり
データを数値にしておかないと、プロパティの値が不正ですとエラーが出ますよ
(サンプルのコードそのままでは)

Private Sub sDataOpen()
'2行10列のデータを読込み
    Dim Dat(1, 9) As Integer, j  As Long, i As Long
    Dat(0, 0) = 69
    Dat(0, 1) = 87
    Dat(0, 2) = 74
    Dat(0, 3) = 71
    Dat(0, 4) = 84
    Dat(0, 5) = 77
    Dat(0, 6) = 77
    Dat(0, 7) = 75
    Dat(0, 8) = 68
    Dat(0, 9) = 87
    Dat(1, 0) = 81
    Dat(1, 1) = 80
    Dat(1, 2) = 82
    Dat(1, 3) = 69
    Dat(1, 4) = 86
    Dat(1, 5) = 70
    Dat(1, 6) = 69
    Dat(1, 7) = 90
    Dat(1, 8) = 88
    Dat(1, 9) = 70
    With MSChart1
        .ColumnCount = 2
        .RowCount = 10
        'データをセット
        For i = 0 To 1
            .Column = i + 1
            For j = 0 To 9
                .Row = j + 1
                .Data = Dat(i, j)
            Next j
        Next i
     End With
End Sub


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

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

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