Image e Localizar

[vef 0]

PRECISO DE UMA ROTINA PARA GRAVAR E EXIBIR A IMAGEM.PRECISIDO DE UMA ROTINA PARA BUSCA Q PROCURE POR UMA VARIAVEL EXEMPLODIGITO "123" E ELE PROCURA E ELE PROCURA TODOS OS CPFs INICIADOS.NAO PRECISA SER UMA ROTINA ,SO UMA JUDA JA E O BASTANTE.OBRIGADO PELA ATENÇÃO.

[kauebranco 0]

PRECISO DE UMA ROTINA PARA GRAVAR E EXIBIR A IMAGEM.PRECISIDO DE UMA ROTINA PARA BUSCA Q PROCURE POR UMA VARIAVEL EXEMPLODIGITO "123" E ELE PROCURA E ELE PROCURA TODOS OS CPFs INICIADOS.NAO PRECISA SER UMA ROTINA ,SO UMA JUDA JA E O BASTANTE.OBRIGADO PELA ATENÇÃO.

sobre as imagens!!!

'imagens grandes		Public Sub SalvaImagensGrandes(f As ADODB.Field, File As String)		Dim b()	  As Byte		Dim ff	   As Long		Dim i		As Long		Dim FileLen  As Long		Dim Blocks   As Long		Dim LeftOver As Long				On Error GoTo ErrHandler		ff = FreeFile		Open File For Binary Access Read As ff				FileLen = LOF(ff)		Blocks = Int(FileLen / nBUFFER)		LeftOver = FileLen Mod nBUFFER				ReDim b(LeftOver)		Get ff, , b()		f.AppendChunk b()				ReDim b(nBUFFER)		For i = 1 To Blocks		Get ff, , b()		f.AppendChunk b()		Next		Close ff		Exit Sub		ErrHandler:		MsgBox "ERROR: " & Err.Description		End Sub		Public Function ExibeImagensGrandes(f As ADODB.Field) As StdPicture				Dim b()	  As Byte		Dim ff	   As Long		Dim File	 As String		Dim i		As Long		Dim FileLen  As Long		Dim Blocks   As Long		Dim LeftOver As Long				On Error GoTo ErrHandler		File = "temppic.bmp"		ff = FreeFile		Open File For Binary Access Write As ff		Blocks = Int(f.ActualSize / nBUFFER)		LeftOver = f.ActualSize Mod nBUFFER		b() = f.GetChunk(LeftOver)		Put ff, , b()		For i = 1 To Blocks		b() = f.GetChunk(nBUFFER)		Put ff, , b()		Next		Close ff		Erase b				Set ExibeImagensGrandes = LoadPicture(File)				Kill File		Exit Function		ErrHandler:		MsgBox "ERROR: " & Err.Description		End Function

[vef 0]

PRECISO DE UMA ROTINA PARA GRAVAR E EXIBIR A IMAGEM.PRECISIDO DE UMA ROTINA PARA BUSCA Q PROCURE POR UMA VARIAVEL EXEMPLODIGITO "123" E ELE PROCURA E ELE PROCURA TODOS OS CPFs INICIADOS.NAO PRECISA SER UMA ROTINA ,SO UMA JUDA JA E O BASTANTE.OBRIGADO PELA ATENÇÃO.

sobre as imagens!!!

'imagens grandes		Public Sub SalvaImagensGrandes(f As ADODB.Field, File As String)		Dim b()	  As Byte		Dim ff	   As Long		Dim i		As Long		Dim FileLen  As Long		Dim Blocks   As Long		Dim LeftOver As Long				On Error GoTo ErrHandler		ff = FreeFile		Open File For Binary Access Read As ff				FileLen = LOF(ff)		Blocks = Int(FileLen / nBUFFER)		LeftOver = FileLen Mod nBUFFER				ReDim b(LeftOver)		Get ff, , b()		f.AppendChunk b()				ReDim b(nBUFFER)		For i = 1 To Blocks		Get ff, , b()		f.AppendChunk b()		Next		Close ff		Exit Sub		ErrHandler:		MsgBox "ERROR: " & Err.Description		End Sub		Public Function ExibeImagensGrandes(f As ADODB.Field) As StdPicture				Dim b()	  As Byte		Dim ff	   As Long		Dim File	 As String		Dim i		As Long		Dim FileLen  As Long		Dim Blocks   As Long		Dim LeftOver As Long				On Error GoTo ErrHandler		File = "temppic.bmp"		ff = FreeFile		Open File For Binary Access Write As ff		Blocks = Int(f.ActualSize / nBUFFER)		LeftOver = f.ActualSize Mod nBUFFER		b() = f.GetChunk(LeftOver)		Put ff, , b()		For i = 1 To Blocks		b() = f.GetChunk(nBUFFER)		Put ff, , b()		Next		Close ff		Erase b				Set ExibeImagensGrandes = LoadPicture(File)				Kill File		Exit Function		ErrHandler:		MsgBox "ERROR: " & Err.Description		End Function

EU USO O DATA EO IMAGE, A ROTINA NAO FUNCIONOU, FOI POR ISSO?SERA Q você NAO TEM UMA ROTINA COMPLETA DE BUSCA ?SE PUDER ME AJUDAR, AGRADEÇO VLW....

[Ivan Kaizzær 0]

Bom dia, qual seria o tamanho mais adequado para a variável nBUFFER???