William Rodrigues

Mandaram bem hein Abraços, William Rodrigues

Beleza.. Como já tinha dito... "Qualquer coisa estamos aí " Abraços, William Rodrigues

Opa !!! Mandaram super bem nessa hein Abraços, William Rodrigues

Beleza.. Qualquer coisa é só postar Abraços, William Rodrigues

Brother... No site do Macoratti tem alguns artigos sobre Crystal Reports. Tem Boletos Bancários, Gráficos, Cartas, etc. Acho que pode te ajudar, caso queira usar o Crystal Reports. Abraços, William Rodrigues

Boa Decio Legal esse negócio de formatar disquetes... Abraços, William Rodrigues

É... deve ter sido mesmo Abraços, William Rodrigues

Boa Brunão Abraços, William Rodrigues

hehehe Ajudou mesmo né Beleza... Qualquer coisa é só dar um toque Abraços, William Rodrigues

Beleza então brother... Qualquer dúvida que surgir é só postar beleza Abraços, William Rodrigues

Mandou bem PiGmEu Abraços, William Rodrigues

Boa Eddie... Voltando ao Visual Basic... Espero te encontrar aqui no fórum mais vezes brother Abraços, William Rodrigues

Salve Rapaziada... Bom, vou esperar os manos da ADMIN se pronunciar direito. Caso eles aceitem fazer colunas de respectivas áreas vou querer me envolver na coluna de VB. Mas, isso tem que ser conversado direito. Não adianta ficarmos aqui falando, falando e falando sendo que eles, que tomam a decisão, não se pronunciam ! Abraços, William Rodrigues

hehehehe você é um barato cara... hehehehehe Abraços, William Rodrigues

Brother... Faça o download desse tutorial aqui e veja: Teste de Ícone no System Tray Abraços, William Rodrigues

Brother... Coloca a seguinte API no seu código: Declare Function GetMenu% Lib "User" _ (ByVal hWnd%) Declare Function RemoveMenu% Lib "User" _ (ByVal hWnd%, ByVal nPosition%, _ ByVal wFlags%) E depois é só colocar isso: Dim Res% Res = RemoveMenu(GetMenu(Form.hWnd), _ SC_MOVE, MF_BYPOSITION) Abraços, William Rodrigues

Ok... Acho que posso te ajudar... Existem duas maneiras básicas de trabalhar com imagens em banco de dados : 1 - Você salva no arquivo a localização da imagem e a carrega toda vez que quer exibí-la. 2 - Você salva a imagem diretamente no seu banco de dados. Você não pode salvar um arquivo imagem apenas atribuindo o nome da imagem ao campo e usando o comando Update. Um arquivo imagem geralmente é um arquivo do tipo binário que precisa ser tratado antes de ser gravado. Vamos usar o método AppendChunck() da ADO para fazer isso. Inicie um novo projeto aí no VB6 e faça a referência para Microsoft ADO Ext. 2.X for DDL and Security Coloque um controle Image. Um controle ADO Data Control (faça a referência antes). Um botão (CommandButton) e o CommonDialog (Microsoft Common Dialog Control 6.0). Ah...e uma caixa de texto também ! Mude a propriedade DataSource do controle Image e Text para o ADODC1 e coloque o seguinte código: Private Sub Form_Load() Dim dbNome$, tbNome$ dbNome = "c:\teste\DBImg.mdb" tbNome = "Imagens" If Dir(dbNome) = "" Then Dim cn$ Dim cat As New ADOX.Catalog Dim tImagens As New ADOX.Table cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & dbNome & ";" cat.Create cn With tImagens .Name = tbNome .Columns.Append "Nome", adVarWChar .Columns!Nome.Attributes = adColNullable .Columns.Append "Imagem", adLongVarBinary End With cat.Tables.Append tImagens Set tImagens = Nothing Set cat = Nothing End If With Adodc1 .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbNome & ";Persist Security Info=False" .RecordSource = "SELECT * FROM " & tbNome .Refresh End With 'vinculando os controles text1 e image1 ao adodc1 Text1.DataField = "Nome" Command1.Caption = "&Incluir Imagem" Image1.DataField = "Imagem" End Sub estou usando o banco de dados chamado DBImg.mdb que tem a tabela Imagens com a seguinte extrutura: 1 Nome - Tipo Texto 2 Imagem - Tipo Binário Longo Vamos criar uma conexão com o banco de dados e definimos o recordset atual como sendo igual a todos os registros da tabela. ("SELECT * FROM " & tbNome ) Private Sub Command1_Click() Dim f as String Dim L as String dim Imagem as String On Error GoTo trata_erro With CommonDialog1 .CancelError = True .Filter = FLTR .ShowOpen Imagem$ = .FileName End With f = FreeFile Open Imagem For Binary Access Read As f L = LOF(f) ReDim B(L) As Byte Get f, , B() Close f 'inclui o registro no banco de dados With Adodc1.Recordset .AddNew !Imagem.AppendChunk B() !Nome = Imagem .Update End With 'mostra imagem no controle image1 Image1.Picture = LoadPicture(Imagem) Exit Sub trata_erro: MsgBox Err.Description End Sub Quando o usuário selecionar uma imagem ativamos a rotina que guarda a imagem no vetor B() ,e , em seguida gravamos o banco de dados o nome da imagem e a imagem , usando o método AppenChunck() Mas, se você quer tratar imagens sem o ADO Data control vai precisar da rotina para ler a imagem do banco de dados e exibí-la. Segue abaixo: Private Sub LeImagem_Click() Dim L as string Dim t as string dim f as string L = Adodc1.Recordset!Imagem.ActualSize ReDim B(L) As Byte B = Adodc1.Recordset!Imagem.GetChunk(L) t = "tmp" f = FreeFile Open t For Binary Access Write As f Put f, , B() Close f Set Image2.Picture = LoadPicture(t) End Sub Obs: Você deve substituir o nome do campo Imagem na rotina quando for adaptar o código ao seu caso Acho que ajudou um pouco né? Mude, faça um teste e veja se dá certo. PS: estou sem VB aqui ! Abraços, William Rodrigues

Mandou bem Graymalkin Acho que sabendo disso da pra você alterar o seu código ramon Qualquer dúvida é só falar beleza Abraços, William Rodrigues

É isso mesmo cara.. Mover o seu tópico lá pros manos de ASP Æ tio urso e Dark0 é com vocês Abraços, William Rodrigues

Hi... I do not know to speak very well English, but I go to try... Here we do not speak on CD's not to argue on piracy and original software. But, one will have doubts on the VB6 or VB.NET is alone to post One I hug, William Rodrigues

Coloca lá sim brother Abraços, William Rodrigues

Beleza então cara... Achei as dicas (Vetor e Binary) do Graymalkin muito boa... Abraços, William Rodrigues

Mandou super bem Joaozava Abraços, William Rodrigues

É isso æ... Foi apenas uma brincadeira... Abraços, William Rodrigues

Acho que na Lista de Sites pode ter alguns artigos e/ou apostilas que pode te ajudar nisso cara Abraços, William Rodrigues