Elenco file directory

[cipiupiu]

PublicClassForm1
PublicWithEvents myBottone AsButton
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load
Dim x = 12
Dim y = 12
Dim tagb = 1
ForEach Dir AsStringInDirectory.GetDirectories("C:\simbolico")
　
Dim Dir2 = (Dir.Remove(0, 13))
Dim myBottone AsNewButton
            myBottone.Text = (Dir2)
            myBottone.Location = New System.Drawing.Point(x, y)
            myBottone.Name = (Dir2)
            myBottone.Width = (417)
            myBottone.Height = (76)
            myBottone.Tag = (tagb)
Me.Controls.Add(myBottone)
AddHandler myBottone.Click, AddressOf onClick_myBottone
            y = y + 100
            tagb = tagb + 1
Next
　
EndSub

[cipiupiu]

PrivateSub onClick_myBottone(ByVal sender As System.Object, ByVal e As System.EventArgs)
If (sender.Tag = 1) Then
            MsgBox(sender.Name)
Dim x = 36
Dim y = 36
Dim objFSO AsObject
Dim objFolder AsObject
Dim objFile AsObject
            objFSO = CreateObject("Scripting.FileSystemObject")
            objFolder = objFSO.GetFolder("C:\simbolico\" + sender.Name)
ForEach objFile In objFolder.Files
Dim Dir3 = (objFile.Name)
Dim dirimmy AsString = ("C:\simbolico\" + sender.Name + "\" + Dir3)

[cipiupiu]

Dim myBottone2 AsNewButton
                myBottone2.Text = (Dir3)
                myBottone2.Location = New System.Drawing.Point(x, y)
                myBottone2.Name = (Dir3)
                 myBottone2.Width = (200)
                 myBottone2.Height = (200)
                myBottone2.BackgroundImage = System.Drawing.Image.FromFile(dirimmy)
                myBottone2.BackgroundImageLayout = ImageLayout.Stretch
Me.Controls.Add(myBottone2)
                y = y + 100
Next objFile

[cipiupiu]

ElseIf (sender.Tag = 2) Then

stessa cosa di sender1 e così via per tutti e 10

[optime]

perché nasconderli o eliminarli? aggiorna le proprietà e amen

[cipiupiu]

perché nasconderli o eliminarli? aggiorna le proprietà e amen

ovvero?

[optime]

riassegnale come fosse la prima volta

[cipiupiu]

riassegnale come fosse la prima volta

probabilmente starò svalvolando, ma non capisco come riassegnarle

[optime]

come fai la prima volta che clicchi uno dei 10 bottoni principali? apri la cartella corrispondente e assegni le immagini ai 30 bottoni sotto. corretto? se lo rifai, riassegni

[cipiupiu]

PrivateSub onClick_myBottone(ByVal sender As System.Object, ByVal e As System.EventArgs)
　
　
If (sender.Tag = 1) Then
Dim a = 0
Dim x = 36
Dim y = 36
Dim objFSO AsObject
Dim objFolder AsObject
Dim objFile AsObject
            objFSO = CreateObject("Scripting.FileSystemObject")
            objFolder = objFSO.GetFolder("C:\simbolico\" + sender.Name)