文字列の変数が適応されない
投稿者 ちゅーぼー  ()
投稿日時
2007/8/28 06:06:00
こんにちは。
掲載されている情報だけではなんともいえません。考えられるコードを組みましたが、正しく動作しますよ。
Public aaa As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
aaa = "テスト"
Label1.Text = aaa
End Sub
そんなに大きいコードにはならないと思いますので、該当部分を掲載してください。"フォーム"と表示されるからには、必ずどこかで"フォーム"と代入しているはずだと思うのですが。チェックしてみてください。
掲載されている情報だけではなんともいえません。考えられるコードを組みましたが、正しく動作しますよ。
Public aaa As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
aaa = "テスト"
Label1.Text = aaa
End Sub
そんなに大きいコードにはならないと思いますので、該当部分を掲載してください。"フォーム"と表示されるからには、必ずどこかで"フォーム"と代入しているはずだと思うのですが。チェックしてみてください。
投稿者 ゼン  ()
投稿日時
2007/8/28 07:29:00
>>ちゅーぼーさん
Module Module1
Public aaa As String
End Module
ーーーーーーーーーー
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'RadioButton1を選択した場合
If RadioButton1.Checked Then
'文字を代入
aaa = "テスト"
'インスタンス作成
Dim f As New Form2
'■form2のプロパティのテキストを変更
f.Text = "テスト12345"
'From1を非表示にする
Me.Visible = False
'From1を閉じてFrom2へ
f.Show()
Me.Hide()
Else
MsgBox("チェックされていません。")
End If
End Sub
End Class
ーーーーーーーーーーーーー
Public Class Form2
Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'文字をセット
Label1.Text = aaa
End Sub
End Class
ーーーーーーーーーーーーー
これです。よろしくお願いします。
Module Module1
Public aaa As String
End Module
ーーーーーーーーーー
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'RadioButton1を選択した場合
If RadioButton1.Checked Then
'文字を代入
aaa = "テスト"
'インスタンス作成
Dim f As New Form2
'■form2のプロパティのテキストを変更
f.Text = "テスト12345"
'From1を非表示にする
Me.Visible = False
'From1を閉じてFrom2へ
f.Show()
Me.Hide()
Else
MsgBox("チェックされていません。")
End If
End Sub
End Class
ーーーーーーーーーーーーー
Public Class Form2
Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'文字をセット
Label1.Text = aaa
End Sub
End Class
ーーーーーーーーーーーーー
これです。よろしくお願いします。
投稿者 ゼン  ()
投稿日時
2007/8/28 08:07:00
すみません。自己解決しました。
質問とサンプルではaaaと変えて書いてましたが実際のプログラムにはnameを使ってました。
変数をnameにするとフォームと勝手に変換されるみたいです。お騒がせしました。
質問とサンプルではaaaと変えて書いてましたが実際のプログラムにはnameを使ってました。
変数をnameにするとフォームと勝手に変換されるみたいです。お騒がせしました。
投稿者 かさのば  ()
投稿日時
2007/8/28 09:49:00
>>3
>>変数をnameにするとフォームと勝手に変換されるみたいです
そんな機能は無いですよ。
"フォーム"という文字列が取得されるのは、nameが変数ではなく、FormのNameプロパティとして扱われてしまっているからだと思います。
http://msdn2.microsoft.com/ja-jp/library/system.windows.forms.control.name(VS.80,d=toc).aspx
>>変数をnameにするとフォームと勝手に変換されるみたいです
そんな機能は無いですよ。
"フォーム"という文字列が取得されるのは、nameが変数ではなく、FormのNameプロパティとして扱われてしまっているからだと思います。
http://msdn2.microsoft.com/ja-jp/library/system.windows.forms.control.name(VS.80,d=toc).aspx
投稿者 かさのば  ()
投稿日時
2007/8/28 09:51:00
>>4
すいません、上のリンク間違ってました。
正しくはこっちです↓
http://msdn2.microsoft.com/ja-jp/library/system.windows.forms.control.name(VS.80).aspx
すいません、上のリンク間違ってました。
正しくはこっちです↓
http://msdn2.microsoft.com/ja-jp/library/system.windows.forms.control.name(VS.80).aspx
投稿者 ゼン  ()
投稿日時
2007/8/30 11:26:00
>>かさのばさん
詳しくありがとうございます。
詳しくありがとうございます。
Public aaa As String
'文字を代入
aaa = "テスト"
'文字をセット
Label1.Text = aaa
これだとなぜか「フォーム」という文字が適応されて、
本来入れたい文字が適応されません。
どうすれば解決できるのでしょうか?
よろしくお願いします。
言語:VB2005
OS:xpsp2