MSFlexGridにデータを出力するには？

解決

---

センサでデータを取得して、リアルタイムでMSFlexGridにデータを出力するにはどうしたらいいですか？
知っている方がいたら教えてください。
環境は、WindowsでVB6です。

編集 削除

---

MSFLEXGridの使い方が分からないのならば
http://www.bcap.co.jp/hanafusa/VBHLP/MSFlexind.htm

編集 削除

---

[MSFlexGrid].TextMatrix(Cols,Rows)=<リアルタイムなデータ>
みたいな？

編集 削除

---

それは、複数のデータも出力できるんですか？

編集 削除

---

基本は同じです、
複数のデータを一つのセルに出したいならば・・・。

複数のデータを複数のセルに出したいのであれば、RowsとColsを変更します。

編集 削除

---

[MSFlexGrid].TextMatrix(Cols,Rows)=<リアルタイムなデータ>を繰り返しにすればいいでんすか？

編集 削除

---

はい
Loopなどで、RowsやColsを変更しながら、リアルタイムなデータを
書き込んでいけば、どんどん行が追加していきます。

編集 削除

---

例えばこんな感じでしょうか？

For j = 1 To 1000
  MSFlexGrid1.TextMatrix(0, j) = i
  MSFlexGrid1.TextMatrix(1, j) = data(i)
  MSFlexGrid1.TextMatrix(2, j) = cVolt(i)
Next

編集 削除

---

そうですが、出来ませんか？

編集 削除

---

インデックスの有効範囲外になります。

編集 削除

---

ColsかRowsがおかしいんじゃ...

    Dim i As Long
    Me.MSHFlexGrid1.Cols = 3
    Me.MSHFlexGrid1.Rows = 1001
    For i = 1 To 1000
      Me.MSHFlexGrid1.TextMatrix(i, 0) = i
      Me.MSHFlexGrid1.TextMatrix(i, 1) = "TEST" & i
      Me.MSHFlexGrid1.TextMatrix(i, 2) = "FIELD" & i
    Next

編集 削除

---

インデックスは有効範囲内で使用しましょう。

有効範囲を超えている変数を特定してください。

編集 削除

---

ただ(0,j)を(j,0)としたら出力されエラーも解決しました。
ただ出力データが、1000まで行くとMSFlexGridの中身が全部1000番目のデータになるんですがどうしてですか？

編集 削除

---

どうして  の理由は  
「貴殿がそういうふうにコードを組んだから」  
以外には考えられないので、
ブレークポイントを設定してステップ実行して、
変数をウォッチしてみてください。
変数i,jを使って2重ループしてるのであれば、
その終了条件とi,jの値の遷移をよく確認してみてください。

編集 削除

---

解決しました。
みなさんありがとうございました。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。