SELECIONAR ITENS

FISH40 20/11/2009 17:16:18
#328286
Como Eu Posso Adicionar Varios Itens Pelo CommonDialog em um ListBox?
MARCOSLING 20/11/2009 17:31:25
#328289
Como assim?
Adicionar o quê exatamente?
FISH40 20/11/2009 19:45:21
#328307
Adicionar Musicas na Lista!
é Que Eu Só Consigo Adicionar um de Cada Vez!
MARCELO.TREZE 20/11/2009 19:55:35
#328309 Resposta escolhida
assim colega

Private Sub Command1_Click()
Dim sFile() As String
With dialog
  .InitDir = [Ô]caminho da pasta onde estão as musicas[Ô][ô]ex: c:\Minhasmucicas                         [ô]
  .FileName = vbNullString
  .Filter = [Ô]Arquivos de audio|                      *.mp3;*.wav;*.snd;*.au;*.aif;*.aifc;*.aiff;*.wma;*.mid;*.rmi;*.midi;*.AU|Arquivo de Video|*.avi;*.wmv;*.mpg;*.mpeg;*.mp2;*.m1v;*.mpe|Todos Arquivos(Todas as Extensões)|*.*|[Ô]
  .FilterIndex = 1
  .Flags = cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNAllowMultiselect Or cdlOFNExplorer
  .DialogTitle = [Ô]Selecione o arquivo[Ô]
  .CancelError = True
  .MaxFileSize = 30000
  On Error Resume Next
  .ShowOpen
  Select Case Err.Number
    Case cdlCancel
    Case Is <> 0
    Case 0
       sFile = Split(.FileName, ChrW$(0))
   End Select
   List1.Clear
   List1.AddItem sFile(0)
   
   For i = LBound(sFile) + 1 To UBound(sFile)
   List1.AddItem sFile(0) & [Ô]\[Ô] & sFile(i)
   Next
   If List1.ListCount > 1 Then List1.RemoveItem (0)
      On Error GoTo 0
End With
End Sub



abraço
FISH40 20/11/2009 21:07:58
#328315
Esse Não Deu :/

Eu Uso o Seguinte Codigo:

Private Sub Open_Click()
Dim sfile As String

    With CommonDialog1
         .DialogTitle = [Ô]Abrir Midia...[Ô]
         .CancelError = False
         .Filter = [Ô]Todos Os Formatos Suportados[Ô]
         .ShowOpen
      If Len(.FileName) = 0 Then
              Exit Sub
End If

      sfile = .FileName

    With List1
       .AddItem sfile

End With
End With
End Sub
MARCELO.TREZE 20/11/2009 21:31:34
#328318
como não deu, funciona perfeitamente, qual foi o erro
MARCELO.TREZE 20/11/2009 21:40:29
#328319
tente esta adptação ao seu código


Private Sub Open_Click()
Dim sfile() As String

    With CommonDialog1
         .DialogTitle = [Ô]Abrir Midia...[Ô]
         .CancelError = False
         .Flags = cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNAllowMultiselect Or cdlOFNExplorer
         .Filter = [Ô]Todos Os Formatos Suportados[Ô]
         .ShowOpen
       
      If Len(.FileName) = 0 Then
              Exit Sub
End If
       sFile = Split(.FileName, ChrW$(0))
      
List1.Clear
   List1.AddItem sFile(0)
   
   For i = LBound(sFile) + 1 To UBound(sFile)
   List1.AddItem sFile(0) & [Ô]\[Ô] & sFile(i)
   Next

   End With
End Sub



tente novamente
FISH40 20/11/2009 22:01:45
#328320
Citação:

tente esta adptação ao seu código


Private Sub Open_Click()
Dim sfile() As String

With CommonDialog1
.DialogTitle = [Ô]Abrir Midia...[Ô]
.CancelError = False
.Flags = cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNAllowMultiselect Or cdlOFNExplorer
.Filter = [Ô]Todos Os Formatos Suportados[Ô]
.ShowOpen

If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = Split(.FileName, ChrW$(0))

List1.Clear
List1.AddItem sFile(0)

For i = LBound(sFile) + 1 To UBound(sFile)
List1.AddItem sFile(0) & [Ô]\[Ô] & sFile(i)
Next

End With
End Sub



tente novamente



Da Esse Erro Com a Adaptação que você fez:
FISH40 20/11/2009 22:04:32
#328321
Opaa Resolvii,Faltava Isso:

  .MaxFileSize = 30000


Obrigado Amigo!
Tópico encerrado , respostas não são mais permitidas
Voltar