componente igual akele do windows

[ASP!Vb 0]

Gostaria de saber como faço alguma coisa parecido com akele do windows tipo copiando pasta q aparece a pasta e o arquivo q está sendo copiado no momento, deve ser uma ocx, sei la.

 

Ele tem tbm nos instaladores q vai dizendo o progresso da instalaçao.

alguem conhece? http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

[Fabyo 66]

Para copiar um arquivo e mostrar igual ao Windows se usa uma API

 

coloque num modulo:

 

	Private Declare Function SHFileOperation Lib "shell32.dll" _
	Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

	Private Type SHFILEOPSTRUCT
		hWnd As Long
		wFunc As Long
		pFrom As String
		pTo As String
		fFlags As Integer
		fAnyOperationsAborted As Boolean
		hNameMappings As Long
		lpszProgressTitle As String
	End Type

	Private RST As Long
	Private FLOP As SHFILEOPSTRUCT


Public Sub CopiarArq(ByVal Origem As String, ByVal Destino As String)

On Error GoTo CopiarArq_Error

 FLOP.hWnd = 0
 FLOP.wFunc = &H2

 'Arquivo de origem:
 FLOP.pFrom = Origem & vbNullChar & vbNullChar

 'Diretório ou arquivo de destino:
 FLOP.pTo = Destino & vbNullChar & vbNullChar

 FLOP.fFlags = &H40
 RST = SHFileOperation(FLOP)
 If RST <> 0 Then
'Erro na cópia
MsgBox Err.LastDllError, vbCritical Or vbOKOnly
 Else
If FLOP.fAnyOperationsAborted <> 0 Then
  MsgBox "Falha na cópia do banco!!!", vbCritical Or vbOKOnly
End If
 End If

  On Error GoTo 0
  Exit Sub

CopiarArq_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure CopiarArq of Módulo mdGeral"
End Sub

 

depois só usar:

 

CopiarArq ArquivoOrigem, ArquivoDestino

 

outro exemplo usando barra de progresso:

 

http://www.macoratti.net/vb_cabp.htm

[ASP!Vb 0]

beleza obrigado, vo testar amanha posto aki o resultado

[ASP!Vb 0]

Opa desculpa, eu não e fiz entender. :mellow:

 

Eu tenho uma função que faz uma pesquisa das pastas existentes em um diretorio q eu indico, eu queria mostrar em um label que pastas ele está encontrando para o formulario ão ficar estatico parecendo que está travado, tipo akele dos antivirus q mostra que pasta e arquivos ele está fazendo a busca. http://forum.imasters.com.br/public/style_emoticons/default/shifty.gif

[Fillipe 0]

Opa desculpa, eu não e fiz entender. :mellow: Eu tenho uma função que faz uma pesquisa das pastas existentes em um diretorio q eu indico, eu queria mostrar em um label que pastas ele está encontrando para o formulario ão ficar estatico parecendo que está travado, tipo akele dos antivirus q mostra que pasta e arquivos ele está fazendo a busca. http://forum.imasters.com.br/public/style_emoticons/default/shifty.gif

dentro do loop que faz a pesquisa nas pastas escreva no label a pasta atual..ex:

for i = * to *	  PesquisarPasta(pasta) 'eh só uma suposição da sua função	  Label.Caption = pasta ' irá mostrar tds as pastas em q ele está pesquisandonext i

[ASP!Vb 0]

beleza obrigado, é isso mesmo, deu certo! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif