フォーム間のデータ引き渡しについて
- 題名: フォーム間のデータ引き渡しについて
- 著者: kei
- 日時: 2003/06/05 12:52:47
- ID: 20
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[1]: フォーム間のデータ引き渡しについて
- 著者: 管理人
- URL: http://dobon.net
- 日時: 2003/06/06 3:38:34
- ID: 22
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[2]: フォーム間のデータ引き渡しについて
- 著者: kei
- 日時: 2003/06/06 9:41:24
- ID: 23
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[3]: フォーム間のデータ引き渡しについて
- 著者: 管理人
- URL: http://dobon.net
- 日時: 2003/06/07 2:11:22
- ID: 29
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[4]: フォーム間のデータ引き渡しについて
- 著者: kei
- 日時: 2003/06/10 16:38:37
- ID: 33
- この記事の返信元:
- この記事への返信:
- ツリーを表示
VB.netを初めてまだ3日目の初心者です。
参考書を見ながら勉強しております。
フォーム1でフォルダ名を指定し、フォーム2内のリストビューで
フォーム1で指定されたフォルダ以下のファイルを表示するものを
作成しましたが、表示が改行されてなかったり
しているので本当にこれで良いのか不安です。
以下のソースを見て気がついた所がありましたら
ご指摘願えればありがたいです。
また通常、このようにフォーム2のリストビューの追加をフォーム1の所で
やってしまう事はありですか?
Private Sub F1Button_Click_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F1Button_Click.Click
'Form2のフォームオブジェクトを宣言する
Dim frmForm As New Form2()
Dim strDirectory As String
'FORM1のテキストボックスが空欄またはフォルダが存在しない時終了する
If TextBox1.Text = Nothing OrElse _
System.IO.Directory.Exists(TextBox1.Text) = False Then
MessageBox.Show("指定が正しくありません", "エラー通知")
Exit Sub
End If
frmForm.F2_ListView.Items.Clear() 'フォーム2のリストビュー内をクリア
For Each strDirectory In System.IO.Directory.GetDirectories
TextBox1.Text)
frmForm.F2_ListView.Items.Add(strDirectory)
Next
'フォーム2を表示
frmForm.ShowDialog()
End Sub