Ir para conteúdo
Fórum Script Brasil

PiGmEu

Membros
  • Total de itens

    642
  • Registro em

  • Última visita

Tudo que PiGmEu postou

  1. PiGmEu

    Grid

    Salve brother.. tipo.. da uma olhada nas paginas 2 e 3.. la deve ter uns 4 topicos iguais ao seu! e tem a solucao hiihih Abracos
  2. PiGmEu

    Copiar Text

    Olá Gabi. Se voce quiser copiar um texto e jogar em outro programa sem selecionar a text o comando é este: Clipboard.SetText Text1.text mas caso você queria q so o texto selecionado seja copiado o codigo é este: Clipboard.SetText Text1.SelText Espero ter ajudado! Abraços e Bjs!
  3. fala comigo no MSN.. eu tenho um zip q eu acho q pode t ajudar Ps.. se alguém tiver algum host pra mim hospedar melhor ainda
  4. PiGmEu

    Três Em Um Só

    Salve Galera.. desculpe a correria auehaeuhea mas abaixo ta o link q explica certinho passo-a-passo como enviar email usando VB + ASPMAIL http://www.google.com.br/search?q=cache:6K...t-BR&lr=lang_pt la tem o link pra pegar a DLL do SMTP q eu disse! ihh Abracos
  5. PiGmEu

    Caption Invisível

    Bom.. entendi duas coisas 1º Se voce quiser q um botao fique "invisivel" é so coloca a propriedade VISIBLE como FALSE 2º Se voce quiser apenas e o Caption não aparece.. Limpe o Caption! Espero ter ajuda! Abracos! []´s!
  6. PiGmEu

    Alterando Registros

    Bom.. se eu entendi bem ficaria assim a string SQL "UPDATE TABELA SET caminho = "CD001"" seria isso??
  7. PiGmEu

    Caixa Alta

    Edit: Postamos juntos hein D4rk Schn31d3r eheheh Se voce quiser q apos um LostFocus tudo fique em Maiuscula é assim: Private Sub txtUsuar_LostFocus() txtUsar = UCase(txtUsar) End Sub Mas se voce quiser q a cada letra digitada ela se transforme em maiuscula não muda muito coisa... é assim: Private Sub txtUsuar_Change() txtUsar.Text = UCase(Text1.Text) txtUsar.SelStart = Len(Text1) End Sub Abraços!
  8. PiGmEu

    Três Em Um Só

    vou mandar a DLL no seu email do hotmail.
  9. Rlx Brother! Volte Logo! Abracos!
  10. PiGmEu

    Três Em Um Só

    01 tem uma dll q você pega acho q é www.aspmail.com, la você baixa as DLLS e insere a SMTPSVG.DLL no seu projeto. Apos isso abaixo vai o codigo pra você enviar: Dim sucesso As Boolean Set EnviaEmail = CreateObject("SMTPsvg.Mailer") EnviaEmail.RemoteHost = SMTP.servidor.com.br EnviaEmail.FromName = "FULANO" EnviaEmail.FromAddress = "fulano@servidor.com.br" EnviaEmail.AddRecipient email_da_empresa@servidor.com.br EnviaEmail.Subject = "ASSUNTO" EnviaEmail.Bodytext = "Conteudo do Email" sucesso = EnviaEmail.SendMail 02 Se voce der uma olhada nesse link http://scriptbrasil.com.br/forum/index.php?showtopic=23059 o Gray explicou mais ou menos como você pode fazer isso! 03 Num entendi!
  11. PiGmEu

    Lostfocus Gotfocus

    LostFocus Um exemplo. você ta digitando em um text certo? ai você muda de text, essa parte q ele muda de text chama-se LOSTFOCUS. o Text Anteriar não esta mais em FOCU GOTFOCUS Na hora q voce saiu de uma text e foi pra outra, assim q o cursos estiver na text ele executa o evento GOTFocus q seria ASSIM Q ELE RECEBER O FOCU ELE EXECUTA TAL COMANDO.. On Error GoTo MErro Isso quer dizer Se acontecer algum erro no evento, ele vai para um tratamento de erro chamado MErro. Será q deu pra entender ou eu compliquei ainda mais??? hihihihi Abracos
  12. Bom primeiramente.. voce deve usar a linguagem que voce saiba... isso já facilitará.. e como disse o Brother Gray... todas as linguagens fazem isso!
  13. PiGmEu

    Dúvida De Função

    Olá Fernanda.. Bom.. eu desconheco essa função! tem como você passar o codigo pra gente ver o q ela pode fazer? Abraços! PS.. Leia minha Sig!
  14. Acho q essa apostilinha pode tirar algumas das suas duvidas! http://www.macoratti.net/Crystal6.zip Abracos!
  15. Essa opção iginora o restante dos digitos "escondidos" pela formação, no seu caso 2 casas decimais. E isto altera o resultado final. Obs.: os valores continuarão arredondados pra visualização. Humm beleza.. vou tentar.. hihi vlw a ajuda ae galerinha!
  16. Olá Deb. Voce queria salvar o .rpt ou voce quer exportar para alguma coisa??? (.pdf, xls, etc.)
  17. Vlw Joaozava t devo uma!
  18. Salve galera... Seguinte.. to com um duvida agora... eu tenho um Mes e um Ano.. exemplo: Janeiro/2004, eu queria saber qts dias tem esse Mês... assim: Janeiro/2004 - 31 dias Fevereiro/2004 - 28 dias e assim vai.. Vlw Pela ajuda! Abraços!
  19. Comecei com Cobol, depois p/ Clipper, e depois VB e agora aprendendo os .net da vida! ehehhe
  20. PiGmEu

    Comentário

    Precisar estamos ae!
  21. PiGmEu

    Msdn

    ihhihi Q bom cara! Precisar o Pessoal da SB ta aki!
  22. PiGmEu

    Comentário

    Ps.. na barra de EDIT tem um Botao q ele automaticamente faz isso nas suas linhas selecionadas chama "COMMENT BLOCK"
  23. PiGmEu

    Sub E Function

    Isso mesmo Promotor Advanced!! exemplo: Function somar(numero As Integer) As Integer Dim valor1 As Integer Dim valor2 As Integer valor1 = 10 valor2 = 20 somar = (valor1 + valor2) * numero 'aki eu to retornando um valor para a minha funcao soma End Function ai se eu fizer um botao e colocar assim: Private Sub Command1_Click() text1.Text = somar(3) 'aki ele vai chamar a funcao passando como parametro o numero 3, e depois ela retorna o valor da conta da Funcao End Sub já uma sub não pode voltar um valor! Acho q deu pra entender não é?? hihi
  24. PiGmEu

    Como .......?

    e para criar um .EXE Vai em FILE -> MAKE<nome do seu projeto.exe>
×
×
  • Criar Novo...