こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VBの各種フォーム表示について

ご質問です。フォームに関してですが、各種フォーム表示について
疑問があります。

まずFrom2には
Dim frm2 As New Form2
frm2.Show()
等で表示する事が可能ですが、
"Explorer1.vb","LoginForm1.vb","AboutBox1.vb","TextFile1.txt"
"Dialog1.vb"等の表示はどの様なコードですか?

googleで検索しているものの、1ヶ月経ち全然見つかりません。
是非お教え下さい。
(VB2008使用)

投稿日時 - 2008-11-05 16:03:42

QNo.4455623

困ってます

質問者が選んだベストアンサー

新しいプロジェクトでWindowsアプリケーションを作成。

・Form1にボタンを5個配置
・Form1にラベルを1個配置
・ソリューションエクスプローラーからログインフォーム等を追加する。
・TextFile1.txtのプロパティ:出力ディレクトリにコピーで「常にコピーする」にしておいてください。(ファイルの中身は適当)
・以下のようにForm1にソースを記述する。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Explorer1.Show()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
LoginForm1.Show()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
AboutBox1.Show()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dialog1.Show()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim sr As New System.IO.StreamReader("TextFile1.txt", System.Text.Encoding.GetEncoding(932))
Dim txt As String = sr.ReadToEnd()
sr.Close()
Label1.Text = txt
End Sub

表示する「だけ」ならこれで可能。
何をしたいのかわからないのでこれ以上は回答できません。

投稿日時 - 2008-11-05 16:39:54

お礼

.showですね。
有り難うございます。
いや表示するだけなので、別にそれ以上は求めません。

有り難うございました。

投稿日時 - 2008-11-06 01:53:34

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問