label1とlabel2の値をlabel3に同時に表示されるには？

初心者 2006-03-12 12:37:00 No: 130612

初歩的な質問ですいません。

timerを使って、別の時間帯に取得したlabel1とlabel2の値をlabel3に表示させたいのですが、うまくいきません。

timer1でlabel1の値。その数秒後timer2でlabel2の値を取得してます。
それぞれの値は、label3に表示されるのですが、timerで更新された、それぞれの1,2の値、ひとつずつのみしか、label3に記入されません。

今は↓
Label1.Text = "MyForm.Label1.Text2 "& "MyForm2.Label1.Text "と記述してます。これだと、うまくいきませんでした。

ものすごく初歩的な質問かもしれませんが、知ってる方いたら、よろしくお願いします。

? 2006-03-12 13:13:59 No: 130613

>Label1.Text = "MyForm.Label1.Text2 "& "MyForm2.Label1.Text "

>それぞれの1,2の値、ひとつずつのみしか、label3に記入されません。
って本当に？ダブルクオートで囲んでいるならば、常に
MyForm.Label1.Text2 MyForm2.Label1.Text
という文字列が表示されるように思うんだが・・・。

初心者 2006-03-12 13:28:22 No: 130614

はい。囲んでます。でもなぜか、別にtimerが起動するごとに、
その取得されたどちらからのlabelの値だけが、
label3に入力されてしまうんです。

出掛けに一筆 2006-03-12 18:01:15 No: 130615

Label1.Text = MyForm.Label1.Text2 & MyForm2.Label1.Text と
ダブルクオートは不要では？

133 2006-03-12 21:25:28 No: 130616

ものすごく基礎的なことだと思うんですけど
label3のCaptionに代入するには
label1.Caption=値
じゃなくて
label3.Caption=値
ですよね

初心者 2006-03-12 22:39:08 No: 130617

1と３は打ち間違えです。３で書いてます。
でも入力されません

あとダブルクオートのけても、うまく同時に表示されませんでした。

133 2006-03-12 23:12:08 No: 130618

ようは情報提示していないところにバグがあると言いたいわけですね。

A3 2006-03-12 23:18:11 No: 130619

label1.text というようにCaptionではなくtextを使用しているので
環境はvb.netかvb2005ということですか？

初心者 2006-03-12 23:25:35 No: 130620

はい。すいません。書き忘れです。 .netです

あと、ここではわかりやすくとおもって、ラベル１、２、３と書いていますが、実際は、ＭＤＩのform2 form3で取得したそれぞれの値をform1の
ラベルに同時に表示させたいのですが、ひとつずつしかできません。

なので、上で書いた、コードは間違いじゃなくて、実際には、label1と記述してます。

わかりにくくなってしまって、すいません。

noname 2006-03-14 19:29:34 No: 130621

一度グローバル変数に代入してから表示させてみては？

我龍院忠太 2006-03-15 17:39:56 No: 130622

かなり錯綜気味ですね(^^;
MDIフォームのParentとChildにそれぞれLabel1だけが乗っている例で、
とりあえずやってみましたので、適当に参考にして下さい。
Public Class Form1
      Dim f2 As New Form2
      Dim f3 As New Form3
      Private Sub Form1_Load(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load
          f2.Label1.Text = "Form2Label1"
          f3.Label1.Text = "Form3Label1"
          f2.MdiParent = Me
          f3.MdiParent = Me
          f2.Show()
          f3.Show()
          Me.Label1.Text = f2.Label1.Text + ":" + f3.Label1.Text
      End Sub
End Class