FormからFormへの値の引渡しについて (ID:138335)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Form1ではButtonにドライブ名を格納し、そのButtonを押したらそれぞれのドライブ名をForm2に私、そのドライブ名の中のファイルを表示させたいのですが・・・
今私がやっているのは、

Dim fname As String
        'Dim fname2 As String
        Dim folder() As String

ListBox1.DataSource = My.Computer.FileSystem.GetDirectories("C:\",FileIO.SearchOption.SearchTopLevelOnly, "*")

ListBox2.DataSource = My.Computer.FileSystem.GetFiles
("C:\",FileIO.SearchOption.SearchTopLevelOnly, "*")

i = 0

myfolder2 = ListBox1.DataSource(0)

For Each fname In My.Computer.FileSystem.GetFiles(myfolder2)

myfolder2 = ListBox1.DataSource(i)
            fname2 = myfolder2

folder = myfolder2.Split("\")
            bt(i) = New Button
            bt(i).Top = y
            If y > 450 And y < 900 Then

bt(i).Width = 200
                bt(i).Left = 200
                If y < 450 Then
                    z = 0
                End If

bt(i).Top = z
                z += 25

ElseIf y > 900 Then
                bt(i).Width = 200
                bt(i).Left = 400
                If y = 900 Then
                    z = 0
                End If
                bt(i).Top = z
                z += 25

ElseIf y <= 450 Then

bt(i).Width = 200
                bt(i).Left = 0
                bt(i).Top = y
                y += 25

End If

bt(i).TextAlign = ContentAlignment.MiddleLeft
            bt(i).Tag = i
            bt(i).Text = folder(1)
            Controls.Add(bt(i))
            AddHandler bt(i).Click, AddressOf buttons_click
            x += 1
            i += 1

Buttons_Click
Dim a As New Form2
a.Show()

Dim fname As String
        Dim fname2 As String
        Dim folder() As String
        Dim y As Integer = 0
        Dim x As Integer

ListBox1.DataSource = My.Computer.FileSystem.GetDirectories( _
                                            "C:\", FileIO.SearchOption.SearchTopLevelOnly, _
                                            "*")

ListBox2.DataSource = My.Computer.FileSystem.GetFiles( _
                                  "C:\", _
                                  FileIO.SearchOption.SearchTopLevelOnly, _
                                  "*")

myfolder2 = ListBox2.DataSource(0)

FileIO.SearchOption.SearchTopLevelOnly, _
       
        For Each fname2 In My.Computer.FileSystem.GetFiles(myfolder2)
            'myfolder2 = fname2
            myfolder3 = IO.Path.GetDirectoryName(fname2)
            ListBox3.Items.Add(myfolder3)
            folder = fname2.Split("\")
            bt(i) = New Button
            bt(i).Left = 0
            bt(i).Width = 200
            bt(i).Top = y
            bt(i).TextAlign = ContentAlignment.MiddleLeft
            bt(i).Tag = i
            bt(i).Text = folder(1)
            'bt(i).Text = folder(2)
            Controls.Add(bt(i))
            AddHandler bt(i).Click, AddressOf buttons_click
            y += 25
            x += 1
        Next

名のですが・・・

←解決時は質問者本人がここをチェックしてください。

戻る