[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2004/10/04(Mon) 22:15
投稿者名:トム
Eメール:
URL :
タイトル:
サンプルについて
VB6.0のMSChart関係の「散布図を表示する」のサンプルを実行してみると、
プロパティの値が不正ですとエラーが出ますが、このサンプルコードが
間違っているのでしょうか?それともcsvファイルは、seiseki.csvではないのでしょうか?

投稿時間:2004/10/05(Tue) 07:11
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: サンプルについて
> VB6.0のMSChart関係の「散布図を表示する」のサンプルを実行してみると、
> プロパティの値が不正ですとエラーが出ますが、このサンプルコードが
> 間違っているのでしょうか?それともcsvファイルは、seiseki.csvではないのでしょうか?

サンプルコードは間違っていません。
エラーが出ている所をよく確認して下さい。
使用されているデータの行数・列数とコードの行数・列数の指定等が合っていますか?

投稿時間:2004/10/05(Tue) 18:54
投稿者名:トム
Eメール:
URL :
タイトル:
Re^2: サンプルについて
レスありがとうございます。
> サンプルコードは間違っていません。
> エラーが出ている所をよく確認して下さい。
> 使用されているデータの行数・列数とコードの行数・列数の指定等が合っていますか?
ちなみに、csvファイルは、MSChartコントロールを使ってグラフを表示する(その1)で
作成したseiseki.csvでしょうか?

投稿時間: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

投稿時間:2004/10/06(Wed) 22:49
投稿者名:トム
Eメール:
URL :
タイトル:
Re^4: サンプルについて
ありがとうございます。
このサンプルを見ながら、勉強させて頂きます。