Ir para conteúdo
Fórum Script Brasil

Matheus-vb6

Membros
  • Total de itens

    415
  • Registro em

  • Última visita

Tudo que Matheus-vb6 postou

  1. Seu problema parece estar no banco de dados... 1- verifique se sua chave primaria esta no nome... se estiver ele n deixa cadastrar de novo... 2- ve se você declaro uma chave primaria... :D
  2. meu MSN ta ai no perfil: matheus.rubens@hotmail.com.. Se você puder me mandar o projeto eu tento fazer, porque ai eu já vejo como ta seu BD.. ABraços :D
  3. No caso... ElseIf x = 3 Then MsgBox "tres" x = 1
  4. edit: Fiz aqui rapidinho Dim x As Single Private Sub Form_Load() x = 1 End Sub Private Sub Timer1_Timer() If x = 1 Then MsgBox "um" x = x + 1 ElseIf x = 2 Then MsgBox "dois" x = x + 1 ElseIf x = 3 Then MsgBox "tres" x = x + 1 End If End Sub ABraços :D
  5. Matheus-vb6

    Visusal Basic 6

    no começo do codigo você manda desabilita... depois da ultima linha de codigo, antes do end sub você habilita
  6. Boa tarde gente :D Gostaria de saber como trabalhar com o "Proximo" e "anterior" do objeto... ou que ele seguisse um playlist (da lista), exemplo... da musica 1 iria pra proxima, q no caso seria a 10... Imagem:
  7. Matheus-vb6

    Visusal Basic 6

    Ola... primeiramente bem vindo ao forum :D se no começo você por BOTAO.enabled=false e no final BOTA.enabled=true não da certo?? Abraços
  8. dim existe as boolean dim numero as integer dim contador as integer contator=1 existe=false set rsdados = new adodb.recordset rsdados.open "select * from TABELA",rsdados do while rsdados.eof=false and existe=false if rsdados("Codigo") = contador then existe=true numero = contador else rsdados.movenext contador=contador+1 end if loop Vai por essa logica..... Abraço :D
  9. nossa, vdd, currency :X, sabia q tinha esquecido algo kkkk, inclusive tem um tópico q me ensinaram currency :D Abraços :D
  10. Fiz essa sintaxe só pra te ajudar enquanto não consigo fazer com o format... If Mid(resultado, Len(resultado) - 2, 1) = "," Then Label1.Caption = "R$" & resultado Else Label1.Caption = "R$" & resultado & ",00" End If Abraços cara :D
  11. Cara... esse autonumber geralmente é só pra indexação e chave primaria..... mas se você quiser q repita, você pode mandar ele ir verificando numero por numero.. por exemplo... x=1 se x = rsdados("Codigo") então x=x+1, se não codigo pode ser x... A logica acho q seria essa Abraço :D
  12. o mid ele meio que pega trechos, por exemplo, se eu colocar mid(txt1.text,1,3) e no meu txt1.text esteja escrito Matheus, ele pegara Mat, porque eu determinei q começa a partir do primeiro caracter os 3... ou outro exemplo, no meu text1.text esteja escrito Matheus novamente e eu fale mid(txt1.text,3,2) ele pegara th Abraços :D
  13. aa cara, tenta fazer assim resultado = round(A+B,2) label1.caption = format(resultado,"R$00,00") ABraços :D
  14. Opa cara :D Então... vamos dizer q ele receba a soma de A + B.... resultado = A+B label1.caption = format(resultado,"R$00,00") Abraços :D
  15. Ola Gilberto, tudo bem?? Bem vindo ao fórum... Para fazer esse tipo de busca, você pode utilizar o MID.... no caso se você se conecta por sql, seria assim: set rsdados = new adodb.recordset rsdados.open "select * from TABELA where mid(COLUNA,0,len(txt1.text)) = '" & mid(txt1.text,0,len(txt1.text)) & "'" Não testei, mas acredito que seja a partir dessa logica... Abraços cara... se n der certo eu testo aqui.... Boa sorte :D
  16. Eu queria q independente de onde apertasse executasse certa ação... mas acho que vou ter q fazer individual mesmo :/
  17. Boa noite moça H_H, tudo bem? Em components, habilite o microsoft masked edit control 6.0... Ele é uma caixa de texto comum, porém possui a propriedade mask, a qual você pode determinar o q ele vai aceitar... por exemplo, um telefone: (##)####-#### # - numero ? - caracter a - caracter ou número No caso do seu cpf 123.456.789-11 ficaria ###.###.###-## Abraços :D
  18. Ola vick... para fechar determinado formulário você usa Unload... no caso para fechar o form que você esta usando use unload me para fechar outro unload NOME Qualquer duvida poste :D Abraços edit--- Cuidado para não dar um unload e não exibir outro formulario, se não seu programa vai ficar aberto mas oculto... Não sei se você já sabe, mas é interessante você conhecer o .show e .hide... form1.show ' exibe um formulario form1.hide ' somente oculta um formulario, tipo um unload só q sem perder informações já digitadas....
  19. Valeeeu :D Durante a semana vou aperfeiçoando e vejo se n tenho mais duvidas... Por hora tópico resolvido :D
  20. Oi gente.. estou desenvolvendo um navegador... e gostaria de saber como posso configurar X tecla pra funcionar independente de onde esteja o foco... exemplo... se eu apertar esc, para a navegação se eu apertar o alt o menu oculto fica visivel... entre outros Abraços :D
  21. Consegui resolver tudo \o.... agora só falta um esquema... como deixar um arquivo oculto?
  22. Ele da erro ao tentar fazer o q? Que linha ele aponta o erro? Abraços
  23. Private Sub Form_Load() abrebanco Set rsdados = New ADODB.Recordset rsdados.Open "select * from ativacao", cn arq = App.Path & "\ativacao.key" n = FreeFile() Open arq For Input As #n conteudo = Input(LOF(n), n) Close #n linhas = Split(conteudo, vbCrLf) últimos10caracteres = Right(penúltima, 10) Dim errado As Boolean errado = False If Mid(conteudo, 1, 1) = Mid(rsdados("Key"), 1, 1) Then errado = True If Mid(conteudo, 2, 1) = Mid(rsdados("Key"), 2, 1) Then errado = True If Mid(conteudo, 3, 1) = Mid(rsdados("Key"), 3, 1) Then errado = True If Mid(conteudo, 4, 1) = Mid(rsdados("Key"), 4, 1) Then errado = True If Mid(conteudo, 5, 1) = Mid(rsdados("Key"), 5, 1) Then errado = True If Mid(conteudo, 6, 1) = Mid(rsdados("Key"), 6, 1) Then errado = True If Mid(conteudo, 7, 1) = Mid(rsdados("Key"), 7, 1) Then errado = True If Mid(conteudo, 8, 1) = Mid(rsdados("Key"), 8, 1) Then errado = True If Mid(conteudo, 9, 1) = Mid(rsdados("Key"), 9, 1) Then errado = True If Mid(conteudo, 10, 1) = Mid(rsdados("Key"), 10, 1) Then errado = True If Mid(conteudo, 11, 1) = Mid(rsdados("Key"), 11, 1) Then errado = True If Mid(conteudo, 12, 1) = Mid(rsdados("Key"), 12, 1) Then errado = True If errado = True Then frmAtivado.Show Unload Me ElseIf errado = False Then End If Consegui fazendo dessa forma... bem semelhante ao link que você postou... agora o meu problema volta ao random...
  24. não conheço esse input e output e nunca usei esse fto... vou correr atras.... Qnt criptografar, acho que com a função "MID" eu conseguiria verificar, e para gerar um código eu poderia fazer tipo...uma variavel... ela vazia, ai um Random com do while ou for, até completar 12 caracteres por exemplo.. e registrar no banco de dados, a cada caracter gerador ele concatenaria +- codigo = codigo & gerador Vou também atras de gerar codigo Abraços :D tentando ake =p
  25. Isso que você quer? public function teste(nome as string) msgbox nome end function ''''no form teste("Blablabla") Abraços :D
×
×
  • Criar Novo...