テキストボックスの値をグラフにする

トミー 2006-12-06 00:11:42 No: 134444

はじめまして。１つのテキストボックスに記述してある数値をグラフ化したいのですが、どのようにして値をグラフに入力するかわかりません。テキストボックスを沢山使っては、グラフにすることができるのですが、一つだとどうやってグラフに入力する値を識別するかわかりません。助言お願いします。

特攻隊長まるるう 2006-12-06 00:49:23 No: 134445

テキストボックスに数値がどのように記述してあるか？
それをどう処理したいか？を説明してないから誰も助言は
できないでしょうが、

> テキストボックスを沢山使っては、グラフにすることができるのですが
と書いてるから、１つのテキストボックスに記述してある
数値を、沢山のテキストボックスに分ければできると
言っているんだよね？

…好きなように分ければ良いのでは？

んで、分け方が分からないと言うのであれば、どんな文字を
どんな規則で分けるのか？全然書いてないのでは？って
話になるし、
画面上に沢山のテキストボックスを置くのがイヤ…とか
なってきたら文字列型の変数をつかえばいいじゃん…と。

K・今川 2006-12-06 01:53:29 No: 134446

Split関数を使えば数値を一つづつ取り出すことができます。
とりあえずスペース区切りとしてプログラムを作ってみました。(VB6使用)
これを使えばスペース、改行ごとにデータを取り出すことができます。
詳しくはHELPを参照してください。

特攻隊長まるるうさんの仰る通りデータの構造がわからなければ的確な助言はできません。

Private Sub Command1_Click()

  Dim Tex1 As String
  Dim Tex2 As Variant
  Dim Tex3 As Variant

Tex1 = Text1.Text
Tex2 = Split(Text1, " ", -1, vbTextCompare)

  For Each Tex3 In Tex2
    Text2.Text = Text2.Text & Tex3 & vbCrLf
  Next

End Sub

特攻隊長まるるう 2006-12-06 02:28:53 No: 134447

ほぅ。Variant 型使って For Each で取り出すんだ？
初心者に難しかった時の為に、同様のコードを別の手法で。
[VB6.0]
Option Explicit
Private Sub Command2_Click()
    Dim strTex1 As String
    Dim strTex2 As String
    Dim strTexArr() As String
    Dim i As Integer
    'デザイン画面で指定
    'Me.Text2.MultiLine = True

    strTex2 = ""
    strTex1 = Me.Text1.Text
    strTexArr = Split(strTex1, " ")
    For i = 0 To UBound(strTexArr, 1)
        strTex2 = strTex2 & strTexArr(i) & vbCrLf
    Next i
    Me.Text2.Text = strTex2
End Sub