hur gör jag för att lista upp alla filer i varsin Label ur en mapp?
och dessutom så vill jag inte att alla filändelserna står med så som t.ex *.exe ,*.txt o.s.v.......
det ska fungera lite ungefär som Windows Start meny
så man ska även kunna klicka på den valda filen och den ska startas
själva exekverigen av filer är inga problem utan det är mer hur jag ska få koden
på varje label

tack på förhand

KAnske detta kan var till hjälp:
<code>
' * Lägg till en Label
' * Sätt index till 0 för Label1

Option Explicit

Private mHighlight As Boolean

Private Sub Form_Load()
Dim FileName As String
Dim Label As Label
Dim Previous As Label
FileName = Dir$(App.Path & "\*.*")
If Len(FileName) Then
Set Previous = Label1(0)
Previous.Caption = FileName
FileName = Dir$()
Do While Len(FileName)
Set Label = Label1(Label1.UBound + 1)
Load Label
Label.Move Previous.Left, Previous.Top + Previous.Height
Label.Caption = FileName
Label.Visible = True
Set Previous = Label
FileName = Dir$()
Loop
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Label As Label
If mHighlight Then
For Each Label In Label1
Label.BackColor = vbButtonFace
Label.ForeColor = vbButtonText
mHighlight = False
Next
End If
End Sub

Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Label As Label
For Each Label In Label1
If Label.Index = Index Then
Label.BackColor = vbHighlight
Label.ForeColor = vbHighlightText
mHighlight = True
Else
Label.BackColor = vbButtonFace
Label.ForeColor = vbButtonText
End If
Next
End Sub
</code>

Stort tack =))
det var nästan så som jag ville ha det
fast jag ville inte ha fil ändelserna...men det kan jag själv försöka att
fixa bort

men hur gör jag för att lägga en exekverings kod för varje label?
jag testade med att lägga in detta

<code>
Private Sub Label1_Click(Index As Integer)

MsgBox Label1.Caption

End Sub
</code>

men den fungerade inte...
jag är helt nybörjade på Indexerade Kontrollers
det kanske märks ;)

hoppas att någon kan hjälpa mig med detta

tack på förhand

Det är bara att skriva såhär:

<code>
Msgbox Label1(Index).Caption
</code>

/Micke

hehe...tack

ibland är det lättare än vad man tror....