Caixa de diálogo open

[ricard.net 0]

Tem algum componente ou api que me possibilite abrir uma caixa de diálogo Open no vb6 para que eu possa escolher um arquivo local ou em alguma máquina da rede e me retornar o caminho do arquivo selecionado?Grato,Ricardo

[William Rodrigues 0]

Salve!

Tem sim, use o componente Common Dialog (Project/Components) para isso. Aí basta colocar:

CommonDialog.ShowOpen

;)

 

Abraços,

William Rodrigues

[kauebranco 0]

Abra um projeto normal em VB .. depois va no meu PROJECT clique em Components e adicione o item "Microsoft Common Dialog Control 6.0"esse componente faz isso que você pediu .. segue um exemplo ;;;;Private Sub SelecionaImagem() Dim filter As String fotos = "" filter = "Arquivos bmp (*.bmp*) | *.bmp*" CommonDialog1.filter = filter 'diretorio onde estao as imagens CommonDialog1.InitDir = App.Path CommonDialog1.DefaultExt = "*.*" CommonDialog1.ShowOpen fotos = CommonDialog1.FileName If fotos <> "" Then imgImagem.Picture = LoadPicture(fotos, , , 1275, 1275) Else imgImagem.Picture = LoadPicture("") End If