Matheus-vb6

Consegui :) vlw kuroi e raphael, o código que usei foi: Private Sub Command1_Click() For Each Var In Form1.Controls If TypeOf Var Is TextBox Then Var.BackColor = &H80000008 End If Next End Sub Abraços Tópico resolvido

Boa noite pessoal, estou migrando para o 2008 aos poucos, e projetos basicos já fiz... porém na hora de banco de dados complicou.... Estou tentando esse modulo Module mdlConexao Public cn As ADODB.Connection 'Public rsdados As Recordset Public Function abrebanco() cn = New ADODB.Connection cn.Open("provider=microsoft.jet.oledb.4.0;data source= D:\Matheus\2010\Produções\Programação\VB\Banco de dados - agenda\WindowsApplication1\WindowsApplication1\agenda.mdb;jet oledb:database password=123321") End Function Public Function fechabanco() cn.Close() End Function End Module Que eu usava no vb6, consegui fazer a conexao pelo "data source",mas ainda sim prefiro trabalhar via código... Quando tento inserir, ele me retorna isso: Mas já fiz referencia no ado Abraços

Isso, esse programa q eu tenho aqui e não lembrava, 7loader o/, vlws cara :D o meu pc também é "generico", esse print é do notebook :) Acho que o nome é OEM Vlws cara Tópico Resolvido

Pessoal, gostaria de saber como é o nome daqueles simbolos que ficam nas informações do computador, no caso desse print, itautec... nos da positivo tem o joia, e tal... eu tinha um programa que trocava esse simbolo, mas pra achar o programa preciso lembrar o nome disso.... Abraços

vamos supor que eu queria trocar a cor de todos textbox... lembro que uma vez usei +- isso for each VARIAVEL as textbox variavel.backcolor = cor next +- assim.... mas eu esqueci, muito tempo sem usa :S Abraços Edit---- eu vi esse link antes de posta, mas fico vermelho no vb.. eu tentei assim for each ELEMENTO as textbox in form1

Boa tarde gente... estava fazendo algumas coisas simples hoje e esqueci como usa o for each.... Exemplo.. pra mim trocar a cor de todos textbox como seria? Abraços

foi uma das formas q eu tentei, não deu :S

2010? então você está usando o vb.net... não o vb6... mas acredito que o esquema seria o mesmo, eu tenho o vb novo aqui, vou dar uma olhada como é a ferramenta... inclusive a moderação provavelmente movera seu tópico pra sessao vb.net Abraços... ta add :D

É vdd, você tem meu projeto =p mas de boa cara, se conseguir me fala :D Alias, aprendeu como que le a imagem quando ta em binario no bd? Abraços

Poderia postar um exemplo? Não consegui fazer :S

Vlw kuroi, eu estou tento dificuldades para navegar no forum, porisso não consegui buscar... Fica dando erro de ip Vlws e abraço Tópico resolvido

Eu não gosto de converter para binário, não sei se te ajudaria, mas vou falar como eu utilizo para salvar imagem... No bd access, tenho uma tabela chamada Imagem com uma unica coluna(numero integer), então, vamos supor que la esteja 0... Quando o usuario for registrar ele atualiza isso para +1... no caso ficaria 1 agora... e pela função filecopy, ele copia a imagem para pasta dentro do aplicativo... e no cadastro do usuario, uma coluna chamada "Imagem" registra o numero da foto dele, no caso seria 1... vou postar o código que uso: abrebanco Set rsdados = New Recordset rsdados.Open "SELECT * FROM imagem", cn numero = rsdados("numero") + 1 FileCopy cd.FileName, ("" & App.Path & "" & "\fotos\" & numero & ".jpg") inserir2 = "update imagem2 set Imagem='" & numero & "'" no cadastro do usuario, na coluna fotos, poe a variavel numero.... cn.execute inserir '(cadastro) cn.execute inserir2 '(soma 1 na imagem para o proximo usuario)

Boa tarde gente... Como faço para que quando uma textbox ganhe foco, todo o conteúdo dela seja selecionado? Abraços

Interessante esse cliptext, porem eu ainda prefiro um contador para verificar se esta totalmente preenchido... se eu quiser limpar campo o cliptext=empty não serve não é?? Codigo que uso para verificar: dim branco as boolean branco=false x = 1 Do While x <= Len(NOME.Text) If Mid(NOME.Text, x, 1) = "_" Then branco=true x = x + 1 Loop Abraços

Nossa, eu não tinha reparado que você usou .mask.... funcionou assim? Porque geralmente eu uso .text="__" pra checar campos vazios, .cliptext eu nunca usei, então já n sei usar... Abraços

Essa condição que você propos, não é necessario, a propriedade change acho que te atenderia melhor... quanto a ferramenta, segue na imagem abaixo ela: Ela está destacada em amarelo! O código que te postei resolveria seu problema... porém esqueci uma coisa... você tem q concatenar o nome com uma extensão, no caso ".jpg" Qualquer duvida poste ai ou add MSN Abraços!

Boa tarde... Uma label não abre imagem.... mas você pode utilizar um "image", recomendo mais que o picturebox... e por não estar utilizando banco de dados, a busca seria feita sempre na mesma pasta? Se sim... você pode utilizar um textbox com a propriedade change Private Sub Text1_Change() On Error GoTo erro Image1.Picture = LoadPicture(Text1.Text) Exit Sub erro: End Sub Qualquer duvida só postar :D Abraço

Testou la e funcionou normal, só reinstalei com os arquivos do package do vb Vlws pessoal Tópico resolvido

Se em todas condições você estiver usando exit sub... você pode coloca-lo fora do IF... na minha opiniao fica mais simples :D

Durante acesso ao banco de dados e impressao.... No meu computador e no meu notebook, ambos com vb instalado, funcionam normal... Fiz um novo instalador, dessa vez incluindo arquivos do Package & Deployment Wizard do visual studio, amanha vou testar... Abraços EDIT- O usuario trouxe o notebook dele aqui em casa, antes de executar o novo instalador, testei na rede daqui de casa, e tava apresentando os erros... reinstalei e funcionou normal (sem os erros), mas vou aguardar ele testar na rede dele... as vezes pode dar erro de novo...

Boa tarde gente! Distribui um programa recentemente, com instalador, tudo bonitinho, a proposito o instalador para ser criado, eu utilizei o instalshield... Porém, conforme o programa vai rodando, aparece direto janelas do windows: "preparando para instalar" Ai abre essa janela: Mas não tem esse arquivo para mim achar ou instalar, então clico em cancelar, e vai abrindo novas janelas.... Após varias vezes ele para e executa o programa normal... Como resolvo isso? O computador do cliente utiliza winxp

AA sim, problema resolvido... eu tava tentando com aspas e apostrofos, nunca ia pensar nos conchetes kk.. vlw kuroi Tópico resolvido

Boa tarde gente Estou aprendendo sobre dml (manipulação de dados) e fiquei meio preso em algumas coisinhas, por exemplo... na criação de tabelas, no create, se meu nome for ter espaço, como faço? inserir = "create table " & Text1.Text & "(Campo1 single)" Aonde esta campo1, se fosse campo 1... Outra coisa, nos tipos, quais são? Só consegui Single e String... Abraços

1° No form load, você faz ele carregar a imagem normal... vamos supor o nome da imagem seja launcher.jpg image1.picture=loadpicture(caminho & "launcher.jpg") Com a opção strech habilitada.... Agora quando você quiser atualizar a imagem, só substitua a imagem Launcher... ou renomeie ela para Launcher2, e a nova imagem para launcher 2° veja a opção moveable do seu form... Abraços, qualquer duvida poste ai cara Boa sorte :D

bom gente, não achei sessao mais apropriada para isso porem se estiver errado podem me mover, sem problemas!! Quero desejar a todos um feliz natal e um próspero ano novo! Sei que não conheço 1% dos membros desse fórum, porém aqueles que estão aqui, ou estiveram ao menus uma vez... não são pessoas más, são pessoas boas atras de conhecimento! Problemas de 2010, vamos por numa caxinha e enterra... Porque a vida é assim, hoje você pode chorar por um problema, mas pode ter certeza que você ira rir disso! Gostaria de citar um exemplo, de um livro que estou lendo, chama-se "Ágape" do Pe. Marcelo, e uma parte diz assim: Acho que isso serve-nos de exemplo quando dizemos algo a alguém sem pensar na reação... Aproveitem bem os seus amigos e familiares, porque nada é eterno, deem valor a quem merece e não menospreze ninguém, mas também nunca deixe que façam isso com vc! Bom natal a todos, inclusive suas familias e seus amigos!! Que venha 2011!