PedroBarreto

Amigão esplica melhor oque você quer beleza?

Pelo oque intendi use o Stop();, aperte o atalho Esc + s + t

Pessoal eu tenho um pouco de receio de fazer programas com banco de dados porque eu tenho medo de ele não achar o banco de dados quando for estalados em outras maquinas, oque eu posso fazer para que esse erro não ocorra?

nome é um outro form, e escrivao é uma text chama escrivao

Velhinhu pensa um pouquinho, você ira usa gotoandstop, na opcao de tocar com o mouse, eu não gosto muito de postar codigog, gosto de fazer as pessoas pensarem mais em todo caso se você não consigui da um toque ai

on (release) ( getURL ("pagina.swf", "frame_do_swf"); )

Cara pensa um pouquinho, o preço começa com uma string "0", dai você coloca os nomes dos outros produtos em check box, vamu supor que la tem o produto "coca cola" dai você coloca assim: if checkcocacola.value = true then preço = preço + "3,50" end if Dai você faz isso para todos os produtos.

Beleza olha tem 3 formulario, o entrada, o armazenar e o naturezadataelocal, Codigo do form (entrada) Private Sub Form_Load() Label2.Caption = Nome.escrivao.Text If Label2.Caption = Nome.escrivao.Text Then Nome.Hide End If Label4.Caption = "Data: " & Date End Sub Private Sub Image6_Click() armazenar.Show End Sub Private Sub Image8_Click() End End Sub Private Sub Timer1_Timer() Timer1.Interval = 1000 Label5.Caption = "Horario: " & Time End Sub Codigo do form (armazenar) Private Sub Form_Load() ok.Left = (armazenar.Width / 2) - (ok.Width / 2) End Sub Private Sub naturezadataelocal1_Click() naturezadataelocal.Visible = True End Sub Private Sub ok_Click() armazenar.Visible = False End Sub Codido do form (naturezadataelocal) Private Sub Form_Load() okokok.Left = (naturezadataelocal.Width / 2) - (okokok.Width / 2) naturezadataelocal.Top = (armazenar.Top + armazenar.Height) naturezadataelocal.Left = armazenar.Left End Sub Private Sub okokok_Click() naturezadataelocal.Visible = False End Sub E eu esqueci de fala na verdade ele não fecha o programa, porem ele decha o form entrada não visivel oque não era para acontecer

Vo tenta explicar melhor, o meu programa começa com um form norma chamado entrda, dai quando clica no botao armazenar aparece o o form chamado armazenar, o codigo que eu usei foi armazenar.visible = true, depois nesse armazenar tem varios botoes um deles é o data, quando clique no data é para abrir o form data intao usei data.visible = true, no data tem um botao ok que quando aperta data.visible = false, e o form armazenar tambem tem um botao chamado ok e quando aperta o codigo é armazenar.visible = false porem quando a pessoa clica no botao armazenar abre o armazenar, depois clica no datga abre o data mais dai quando clica no ok do data ele fica invisible dai aparece o armazenar quando aperta o programa fecha, e não era para fechar era para mostrar o form entrada, oque a de errado?

galera eu fiz um projeto que tem varios forms visivel, porem quanto eu aperto o botao para um dos form não ficar visible fecha o programa Private Sub ok_Click() armazenar.Visible = False End Sub oque a de errado?

Olhem, Aquela hora eu acho que postei errado: img520.imageshack.us/my.php?image=programa6yl.gif

Galera mals, agora que eu vi que a tela do cara é igual a minha, a minha é esta Feliz ano novo

Apesar de não da erro ele não vai carregando do geito que eu quero, eu quero que ele va de vagar de um por um, mas ele já vai direto no final, eu tenho certeza que eu não devia usar um loop, porem usei, olhem: Private Sub Command1_Click() Dim filesys As Scripting.FileSystemObject Set filesys = New Scripting.FileSystemObject Do While ProgressBar1 = 0 ProgressBar1 = 0 filesys.DeleteFile ("C:\Xuxa_Amor_Estranho_Amor__video_proibido_.wmv") If filesys.FileExists("C:\Xuxa_Amor_Estranho_Amor__video_proibido_.wmv") Then ProgressBar1 = 0 Else ProgressBar1 = 100 End If Loop End Sub Apesar de te excluido o arquivo, oque eu quira ele não fez que era ir de pausinhu por pausinhu alguém pode dar uma dica?

Nem precisa já achei, porem não sei usa se alguém soube aonde esplica como usa por favor me passe

Galera qual o componente do vb para usar uma barra de porcentagem?

Galera eu não sei se já postaram isso mais eu achei muito eficiente olhem garanto que não vao se arrepende, ele é um pacote com milhares de icons muito usado em programas http://baixaki.ig.com.br/site/dwnld6413.htm?ok=n

huhuahauhauahu Galera já parei de se priguiçoso já to manjando um pouquinhu de vb já li 5 livros, comprei la na nobel, quem quise la tem um monte comprei os principais, já to manjando um pouquinhu. O tal de "Haha" eu pesso sim sua mae vem todo dia, ela chupa direto meu penis

olha meu programa tem 4 form form1 form2 form3 form4 eu quero sabe que comando ao inver do show que abre tal form mais sem abrir um outro form na barra de tarefas vo esplica dinovo quando eu ponho o form2.show, ela abre um form novo, eu quero que ele apenas atualize para o form2 sem perder os dados do no form1 galera e não é form2.show form1.hide E lembrando eu quero que atualise para o outro form e não que esclui o primeiro e abre o 2, e eu quero que apareca apenas um form na barra de tarefas

Cara eu quero sabe como imprimi na impressoara apenas o texto text1

hehehehehe foi mal me confundi na hora de escrever, eu sabia que era referencia, porem o meu nem veio com ela, não sei poruqe mais dai eu axei ela na net

Huahuahuahau foi mals eu falei imprimir e não emprimir.

Cara pelo oque eu entendi ele qué que o programa dele interaja em rede domestica o meu codigo eu vou explicar: Private Sub Command1_Click() CommonDialog1.Filter = "Arquivo banco de dados|*mdb" CommonDialog1.InitDir = "C:\" CommonDialog1.ShowOpen 'aqui abrira a caixa de provuro que é o showopen do common. If Right(CommonDialog1.FileName, 7) = "bd1.mdb" Then 'se as sete ultimas letras são "db1.mdb então. MsgBox "banco de dados correto" Else MsgBox "banco de dados incorreto" End If End Sub

Cara eu fiz isso: Eu fiz um banco de dados e puis ele no servidor, dai na hora que você vai coloca o databasename do data1 você escreve o o caminho ate o servidor (OBVIAMENTE È O MEUS LOCAIS DE REDE) dai você abre ele, ou você pode faze quinem eu to fazendo para uma empresa, já que o programa que eu to fazendo vai para varias empresar eu fiz isso: Private Sub Command1_Click() CommonDialog1.Filter = "Arquivo banco de dados|*mdb" CommonDialog1.InitDir = "C:\" CommonDialog1.ShowOpen If Right(CommonDialog1.FileName, 7) = "bd1.mdb" Then MsgBox "banco de dados correto" Else MsgBox "banco de dados incorreto" End If End Sub

Cara eu faço assim: "select * from historico where num_proc = '" & maskedbox1.text & "'" Pelo que eu intendi é isso que você qué.

eu to tentado emprimir apenas a text1.text, mais emprimi tudo, como eu faço para emprimir apenas a text1? Galera to ate com vergonha de faze esta pergunta