DRIVE LIST BOX, DIR LIST BOX E O FILE LIST BOX
Tenho um projeto onde seria interessante utilizar esses controles, para quando for escolhido o drive e a pasta, todos os arquivos de midia dessa pasta (ex: mp3, wma, mp4 e etc) esses possam ser carregados na lista, pois estou desenvolvendo um media player no VB, e quero evitar ter que fazer uma biblioteca de musicas, utilizando esses recursos como segunda opçao!!!
Gostaria de saber como esses controles funcionam e como aplica-los a meu caso!!!
Obrigado
Gostaria de saber como esses controles funcionam e como aplica-los a meu caso!!!
Obrigado
Veja se isso ajuda voce.. ok..
como quero adicionar arquivos de midia nessa file list box como posso fazer para q so esses arquivos sejam adicionados nessa lista??? e como fazer para que quando selecionado, esse arquivo seja executado???
Private Declare Function ShellExecute Lib [Ô]shell32.dll[Ô] Alias [Ô]ShellExecuteA[Ô] (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_HIDE = 1
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Change()
File1.Pattern = [Ô]*.mp3;*.wma[Ô]
End Sub
Private Sub File1_Click()
ShellExecute 0, [Ô]Open[Ô], Environ$([Ô]PROGRAMFILES[Ô]) & [Ô]\Windows Media Player\wmplayer.exe[Ô], Dir1.Path & [Ô]\[Ô] & File1.FileName, [Ô][Ô], SW_HIDE
End Sub
Private Const SW_HIDE = 1
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Change()
File1.Pattern = [Ô]*.mp3;*.wma[Ô]
End Sub
Private Sub File1_Click()
ShellExecute 0, [Ô]Open[Ô], Environ$([Ô]PROGRAMFILES[Ô]) & [Ô]\Windows Media Player\wmplayer.exe[Ô], Dir1.Path & [Ô]\[Ô] & File1.FileName, [Ô][Ô], SW_HIDE
End Sub
Tópico encerrado , respostas não são mais permitidas