Ir para o conteúdo

Pesquisar na Comunidade

A mostrar resultados para tags ''vb''.



Mais opções de pesquisa

  • Pesquisa por Tags

    Introduza as tags separadas por vírgulas.
  • Pesquisar por Autor

Tipo de Conteúdo


Fórum

  • Bem-vindos ao Portugal-a-Programar
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
    • Apresentações
  • Comunidade a Trabalhar
    • Wiki P@P
    • Apresentação de Projectos de Programação
    • Downloads
  • Revista PROGRAMAR
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Haskell
    • Pascal
    • Python
    • Bases de Dados
    • Visual Basic Clássico
    • Visual Basic for Applications (VBA)
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • SharePoint
    • Apresentação de Software
  • Informática Extra-Programação
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • Matemática
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Revista PROGRAMAR
  • Projectos
  • Wiki

Categorias

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros



Filtrar por número de...

1814 resultados

  1. LISTVIEW

    Srs , Alguém poderia me ajudar a resolver esse probleminha : Preciso somar uma coluna do ListView1: FrmDesvio.ListView1.ListItems.Item(1).ListSubItems.Add.Text = TextVaccNC_Sec.Text
  2. retirar valores da list box

    Por favor ajudem rapido amanhã tenho teste 2.4. Crie o código necessário para que ao clicar num número da lista esse número seja removido (Sub EliminarDaLista()) da lista e adicione à lista um novo número que é o resultado da multiplicação do número removido por 3 (Function AlterarNumeroDaLista ()). Utilize a passagem de parâmetros por referência (ByRef) sempre que for possível.
  3. Desafio procuro

    Malta eu sou do 12º ano só tenho um mês de aulas de AI(aplicações informaticas), logo não sei muito disto nem conheço as funcionalidade de tudo... o que eu gostava era que me proposessem desafios para eu fazer! e que me digam mais ao menos algumas dicas ou topicos para fazer! Atenção :NÃO QUERO O CÓDIGO!! o meu objetivo e aprender algumas das funcionalidades do vb e evoluir ! obvio para saberem o que fazem vou ao yt mas o resto da programação eu quero antes tentar sozinho! dps qq duvida exponho a vocês! Neste momento acabei um desafio que me deram ( a minha mãe) que me pediu para fazer um teste com escolhas múltiplas. andei um mês porque haviam certas coisas que ainda não sabia tipo a diferença de radiobutons para checkboox e a maneira como programar. para além de vários erros que iam dando, nao por estar errado o código mas por dps a execução não ser 100% aquilo que eu queria! vou deixar ai o código. Se calhar é um código muito fraco por ser iniciante mas deiam dicas! Public Class formulário Dim resultado, resultado1, resultado2, resultado3 As String Private Sub Bnfinal_Click(sender As System.Object, e As System.EventArgs) Handles Btnfinal.Click Dim a, b, c, d As Integer If ChckF1.Checked Then resultado = "Nice!!" a = 25 Else resultado = "WHAT???" a = 0 End If If ChckV2.Checked Then resultado1 = "Nice!!" b = 25 Else resultado1 = "WHAT???" b = 0 End If If ChckV3.Checked Then resultado2 = "Nice!!" c = 25 Else resultado2 = "WHAT???" c = 0 End If If ChckF4.Checked Then resultado3 = "Nice!!" d = 25 Else resultado3 = "WHAT???" d = 0 End If LblR1.Text = resultado LblR2.Text = resultado1 LblR3.Text = resultado2 LblR4.Text = resultado3 Lblcassificacao.Text = a + b + c + d & "/100" If Lblcassificacao.Text = 100 & "/100" Then MsgBox("Tiveste 100!! PRBS") Else MsgBox("tiveste " & Lblcassificacao.Text & ". Para a Próxima corre melhor!") End If End Sub Private Sub BtnLimpar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpar.Click LblR1.Text = "" LblR2.Text = "" LblR3.Text = "" LblR4.Text = "" ChckF1.Checked = False ChckV1.Checked = False ChckF2.Checked = False ChckV2.Checked = False ChckF5.Checked = False ChckV3.Checked = False ChckF4.Checked = False ChckV4.Checked = False ChckF1.Enabled = True ChckV1.Enabled = True ChckF2.Enabled = True ChckV2.Enabled = True ChckF5.Enabled = True ChckV3.Enabled = True ChckF4.Enabled = True ChckV4.Enabled = True Lblcassificacao.Text = "0/100" End Sub Private Sub ChckF1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckF1.CheckedChanged ChckF1.Enabled = False ChckV1.Enabled = False End Sub Private Sub ChckV1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckV1.CheckedChanged ChckF1.Enabled = False ChckV1.Enabled = False End Sub Private Sub ChckF2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckF2.CheckedChanged ChckF2.Enabled = False ChckV2.Enabled = False End Sub Private Sub ChckV2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckV2.CheckedChanged ChckF2.Enabled = False ChckV2.Enabled = False End Sub Private Sub ChckF5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckF5.CheckedChanged ChckF5.Enabled = False ChckV3.Enabled = False End Sub Private Sub ChckV3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckV3.CheckedChanged ChckF5.Enabled = False ChckV3.Enabled = False End Sub Private Sub ChckF4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckF4.CheckedChanged ChckF4.Enabled = False ChckV4.Enabled = False End Sub Private Sub ChckV4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckV4.CheckedChanged ChckF4.Enabled = False ChckV4.Enabled = False End Sub Private Sub Btnlimpar4_Click(sender As System.Object, e As System.EventArgs) Handles Btnlimpar4.Click ChckF4.Checked = False ChckV4.Checked = False ChckF4.Enabled = True ChckV4.Enabled = True End Sub Private Sub Btnlimpar3_Click(sender As System.Object, e As System.EventArgs) Handles Btnlimpar3.Click ChckF5.Checked = False ChckV3.Checked = False ChckF5.Enabled = True ChckV3.Enabled = True End Sub Private Sub Btnlimpar2_Click(sender As System.Object, e As System.EventArgs) Handles Btnlimpar2.Click ChckF2.Checked = False ChckV2.Checked = False ChckF2.Enabled = True ChckV2.Enabled = True End Sub Private Sub Btnlimpar1_Click(sender As System.Object, e As System.EventArgs) Handles Btnlimpar1.Click ChckF1.Checked = False ChckV1.Checked = False ChckF1.Enabled = True ChckV1.Enabled = True End Sub End Class PS : não se esqueçam de mandar um desafio!
  4. Pessoal, tenho um form com uma picturebox que contem um gif de loading. Estou tentando fazer com que antes de executar um método ele exiba essa imagem de carregando e feche quando terminar. ele até funciona mas em determinado momento conforme o uso ele me retorna o erro: An unhandled exception of type 'System.Threading.ThreadAbortException' occurred in System.Drawing.dll Additional information: O thread estava sendo anulado. Public Class clsModoCarregando Dim FrmLoading As New Loading Dim trdelegate As New ThreadStart(AddressOf carregarFormLoading) Dim trd As New Thread(trdelegate) Private Sub carregarFormLoading() Try FrmLoading.ShowDialog() Catch ex As ThreadAbortException Thread.ResetAbort() End Try End Sub Public Sub ExibirLoad() If Not trd.IsAlive Then trd.Name = "threadCarregando" trd.IsBackground = True trd.Start() End If End Sub Public Sub FecharLoad() If trd.IsAlive Then trd.Abort() trd.Join() End If End Sub End Class 'evento do botao pesquisar do form Private Sub btnPesquisar_Click(sender As Object, e As EventArgs) Handles btnPesquisar.Click Dim ModoCarregando As New Ambiente.clsModoCarregando If lstConsulta.Items.Count > 0 Then ModoCarregando.ExibirLoad() dtgPesquisa.DataSource = insPesquisa.pesquisar(lstConsulta, dtNomesPesquisa.Rows(0)("Tabela")) dtgPesquisa.DataMember = dtNomesPesquisa.Rows(0)("Tabela") ModoCarregando.FecharLoad() Else If txtValorPesquisa.Text = String.Empty Then MsgBox("informe o valor a ser pesquisado.", vbInformation) txtValorPesquisa.Focus() Else MsgBox("Adicione a consulta antes de pesquisar.", vbInformation) btnAdicionar.Focus() End If End If End Sub
  5. Chamar arquivo Help.chm

    Pessoal , Alguém sabe como faço para chamar um arquivo de help.chm pelo VB6 ? Chamar arquivo Help.chm Pessoal ... por favor alguém para me ajudar ???
  6. enter

    ha alguma maneira de uma pessoa carregar numa tecla qualquer, ex enter, e a barrinha passar para a linha debaixo???
  7. [VB6] Minusculas/Maiusculas

    Private Sub Command1_Click() nome = inputbox("Nome do Produto") Data1.Recordset.MoveFirst Do Until Data1.Recordset.EOF = True If Text1 = nome Then GoTo registo_encontrado End If Data1.Recordset.MoveNext Loop MsgBox ("Registo não encontrado") GoTo sair_procedimento registo_encontrado: Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text5.Enabled = True sair_procedimento: End Sub Na parte do "If Text1 = nome " só me detecta se for MESMO exactamente igual, como posso fazer com que ignore as minusculas/Maiusculas?
  8. O passado no presente

    Boas, Sei que estes foruns são povoados de mentes brilhantes como tal venho desta forma tentar a minha sorte. Tenho uma aplicação desenvolvida em vb5, da qual não me posso libertar sem mais nem menos. A dita já está partida em multi-camadas (UI, BL e DAL) mas tem um ponto fraco, usa bases de dados access onde imperam os recordsets. Neste momento preciso de criar a camada de dados (DAL) e provavelmente a BL, mantendo a interface com a UI, para SQL mas usando o ADO.NET EF através de interop. Alguém me pode dar uma ajuda com a passagem de dados das Entidades p/ recordsets. Ou melhor alguém está interessado em pegar neste projeto em outsource, ou ainda, podem-me indicar alguma entidade nacional ou estrangeira que faça este tipo de outsource com custos moderados (sou pequenino). Obrigado.
  9. boas galera, sou BR mas gostei do forum, sempre estou aqui então... eu preciso pegar o texto que esta em um arquivo .txt hospedado em um dominio na net e passar cada pedaço dele pra uma determinada textbox EX: (texto no arquivo .txt) "OLA / Galera / Meu / Nome / é / Fury / SL" (No VB) Txt1.text = "Ola" Txt2.text = "Galera" Txt3.text = "Meu" Txt4.text = "Nome" Txt5.text = "é" Txt6.text = "Fury" Txt7.text = "SL" Obrigado Pela atençao espero que Me ajudem pois preciso muito
  10. Tratamento de erro VB 6

    Boa noite amigos!!! Estou com problema...e o seguinte... no text1.text está recebendo dados da serial exemplo: 0,12 0,45 1,45 4,89 e quando os valores está recebendo neste formato acima ..o código abaixo funciona perfeitamente.....mas tem momento que aparece dados assim : 0488, 1489,2 quando o if abaixo lê esses dados o software dá erro e para de funcionar. If Text1.Text > valor And Text1.Text < valor1 Then List1.AddItem "ok" else List2.AddItem "Nok" End If teria alguma forma de tratar esse erro....e fazer que o software não pare de funcionar?
  11. boas galera, sou BR mas gostei do forum, sempre estou aqui então... eu preciso pegar o texto que esta em um arquivo .txt hospedado em um dominio na net e passar cada pedaço dele pra uma determinada textbox EX: (texto no arquivo .txt) "OLA / Galera / Meu / Nome / é / Fury / SL" (No VB) Txt1.text = "Ola" Txt2.text = "Galera" Txt3.text = "Meu" Txt4.text = "Nome" Txt5.text = "é" Txt6.text = "Fury" Txt7.text = "SL" Obrigado Pela atençao espero que Me ajudem pois preciso muito
  12. IMPRIMINDO MSCHART

    Alguém poderia me ajudar a Imprimir um gráfico gerado pelo MSCHART ? Esse é meu código do gráfico : 'Gráfico de DESVIO % '----------------------------------------------------------------------------------------------- FrmDesvio.MSChart1.chartType = VtChChartType2dLine FrmDesvio.MSChart1.ColumnCount = 1 FrmDesvio.MSChart1.RowCount = s + 1 FrmDesvio.MSChart1.Row = s + 1 FrmDesvio.MSChart1.Data = TextGrafico.Text FrmDesvio.MSChart1.RowLabel = s '-----------------------------------------------------------------------------------------------
  13. Srs , Alguém poderia me ajudar a resolver esse probleminha : Preciso tirar a média da ultima coluna : ListView1.ListItems.Item(1).ListSubItems.Add.Text = TextGrafico.Text Agradeço desde já
  14. Boa noite! Estou utilizando vb6 em uma aplicação recebendo dados da serial,os dados estáo recebendo pelo text1.text o seguinte formato: 0,140,450,780,890,560,450,560,250,410,780,620,950,260,150,490,150,460,29 E preciso separar e mostrar no text2.text apenas no formato 0,14. agradecido
  15. Boa tarde, Gostaria da vossa ajuda, no sentido da criação de uma macro em VBA. A macro que eu pretendo tem de desempenhar a função de copiar alguns valores de um ficheiro excel, para um outro. O ficheiro que vai buscar os dados, tem várias colunas e linhas, no entanto só pretendo alguns desses valores (algumas das colunas e das linhas). Será possível darem-me uma ajuda, por favor? Muito obrigado
  16. Media player com 2 playlist

    Boa noite amigos, se alguém puder me ajudar, o meu problema é o seguinte: Monte um Media player de vídeo com 2 playlist, esta tudo funcionando direitinho, o meu único problema, é que eu gostaria que quando um playlist chegue ao fim o outro começa, (ai que está o problema) Como faço?
  17. Erro no MSChart

    Alguém pode me ajudar ? Criei um programa , e quando tentei rodar em outra máquina aparece um erro conforme descrição abaixo : Run-time error '339': Component ' MSCHRT20.OCX' or one of its dependencies not correctly registered: a file is missing or invalid
  18. Srs , Alguém poderia me ajudar a resolver esse probleminha : Preciso pegar o maior valor da ultima coluna : ListView1.ListItems.Item(1).ListSubItems.Add.Text = TextGrafico.Text ListView1.ListItems.Add(1).Text = s ListView1.ListItems.Item(1).ListSubItems.Add.Text = TextVacc_NC_CV.Text ListView1.ListItems.Item(1).ListSubItems.Add.Text = TextVacc_C_CV.Text ListView1.ListItems.Item(1).ListSubItems.Add.Text = TextVacc_NC_VB.Text ListView1.ListItems.Item(1).ListSubItems.Add.Text = TextVacc_C_VB.Text ListView1.ListItems.Item(1).ListSubItems.Add.Text = TextGrafico.Text Agradeço desde já
  19. Condição com IF

    Senhores , alguem pode me ajudar ... não estou conseguindo inserir no meu projeto uma condição : Quero que a cor de a Label1 fique vermelha quando o valor da Text1 for maior ou = 1,5 e menor ou = -1,5 Quero que a cor da Label1 fique Amarela quando o valor da Text1 estiver entre 1 e 1,5 e entre -1 e -1,5 Quero que a cor da Label1 fique Verde quando o valor da Text1 for menor ou =1,0 e maior ou = -1
  20. Problemas MSHFlexGrid

    Boa tarde, Programo ocasionalmente e em VB 6.0, sou novo no forum e neste momento deparo-me com um problema que nunca antes me tinha acontecido. Imaginem que adiciono 5 linhas a uma mshflexgrid e depois removo todas menos a do cabeçalho, se voltar a inserir linhas na mesma grid elas não aparecem no entanto o valor das rows continua a aumentar, mais esquisito ainda e as linhas começam a aparecer à décima linha. Alguém me pode dar uma dica? Obrigado desde já.
  21. Enviar email

    Galera, vamos enviar um email utilizando SMTP, muuuuito facil mesmo! Segue o codigo: clsCDOmail.cls Option Explicit ' para la conexión a internet Private Declare Function InternetGetConnectedState _ Lib "wininet.dll" ( _ ByRef lpdwFlags As Long, _ ByVal dwReserved As Long) As Long Private Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8 Private Const INTERNET_RAS_INSTALLED As Long = &H10 Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20 Private Const INTERNET_CONNECTION_CONFIGURED As Long = &H40 ' variables locales Private mServidor As String Private mPara As String Private mDe As String Private mAsunto As String Private mMensaje As String Private mAdjunto As String Private mPuerto As Variant Private mUsuario As String Private mPassword As String Private mUseAuntentificacion As Boolean Private mSSL As Boolean Public Event Error(Descripcion As String, Numero As Variant) Public Event EnvioCompleto() Function Enviar_Backup() As Boolean ' Variable de objeto Cdo.Message Dim oCDO As Object ' chequea si hay conexión If InternetGetConnectedState(0&, 0&) = False Then RaiseEvent Error("No se puede enviar el correo. " & _ "Verificar la conexión a internet si está disponible", 0) Exit Function End If ' chequea que el puerto sea un número, o que no esté vacío If Not IsNumeric(puerto) Then RaiseEvent Error("No se ha indicado el puerto del servidor", 0) Exit Function End If ' Crea un Nuevo objeto CDO.Message Set oCDO = CreateObject("CDO.Message") ' Indica el servidor Smtp para poder enviar el Mail ( puede ser el nombre _ del servidor o su dirección IP ) oCDO.Configuration.Fields( _ "http://schemas.microsoft.com/cdo/configuration/smtpserver") = mServidor oCDO.Configuration.Fields( _ "http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' Puerto. Por defecto se usa el puerto 25, _ en el caso de Gmail se usa el puerto 465 oCDO.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = mPuerto ' Indica el tipo de autentificación con el servidor de correo _ El valor 0 no requiere autentificarse, el valor 1 es con autentificación oCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/" & _ "configuration/smtpauthenticate") = Abs(mUseAuntentificacion) ' Tiempo máximo de espera en segundos para la conexión oCDO.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 ' Configura las opciones para el login en el SMTP If mUseAuntentificacion Then ' Id de usuario del servidor Smtp ( en el caso de gmail, _ debe ser la dirección de correro mas el @gmail.com ) oCDO.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = mUsuario ' Password de la cuenta oCDO.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mPassword ' Indica si se usa SSL para el envío. En el caso de Gmail requiere que esté en True oCDO.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = mSSL End If ' Estructura del mail ''''''''''''''''''''''''''''''''''''''''''''''' ' Dirección del Destinatario oCDO.To = mPara ' Dirección del remitente oCDO.From = mDe ' Asunto del mensaje oCDO.Subject = mAsunto ' Cuerpo del mensaje oCDO.TextBody = mMensaje 'Ruta del archivo adjunto If mAdjunto <> "" Then If Len(Dir(mAdjunto)) = 0 Then ' ..error RaiseEvent Error("No se ha encontrado el archivo en la siguiente ruta: ", 0) Exit Function Else ' ..lo agrega oCDO.AddAttachment (mAdjunto) End If End If ' Actualiza los datos antes de enviar oCDO.Configuration.Fields.Update On Error Resume Next Screen.MousePointer = vbHourglass ' Envía el email oCDO.Send Screen.MousePointer = 0 ' .. si no hubo error If Err.Number = 0 Then Enviar_Backup = True RaiseEvent EnvioCompleto ElseIf Err.Number = -2147220973 Then RaiseEvent Error("Posible error : nombre del Servidor " & _ "incorrecto o número de puerto incorrecto", Err.Number) ElseIf Err.Number = -2147220975 Then RaiseEvent Error("Posible error : error en la el nombre de usuario, " & _ "o en el password ", Err.Number) Else RaiseEvent Error(Err.Description, Err.Number) End If ' Descarga la referencia If Not oCDO Is Nothing Then Set oCDO = Nothing End If Err.Clear Screen.MousePointer = vbNormal End Function ' propiedades ''''''''''''''''''''' Property Get servidor() As String servidor = mServidor End Property Property Let servidor(value As String) mServidor = value End Property Property Get para() As String para = mPara End Property Property Let para(value As String) mPara = value End Property Property Get de() As String de = mDe End Property Property Let de(value As String) mDe = value End Property Property Get Asunto() As String Asunto = mAsunto End Property Property Let Asunto(value As String) mAsunto = value End Property Property Get Mensaje() As String Mensaje = mMensaje End Property Property Let Mensaje(value As String) mMensaje = value End Property Property Get Adjunto() As String Adjunto = mAdjunto End Property Property Let Adjunto(value As String) mAdjunto = value End Property Property Get puerto() As Variant puerto = mPuerto End Property Property Let puerto(value As Variant) mPuerto = value End Property Property Get Usuario() As String Usuario = mUsuario End Property Property Let Usuario(value As String) mUsuario = value End Property Property Get PassWord() As String PassWord = mPassword End Property Property Let PassWord(value As String) mPassword = value End Property Property Get UseAuntentificacion() As Boolean UseAuntentificacion = mUseAuntentificacion End Property Property Let UseAuntentificacion(value As Boolean) mUseAuntentificacion = value End Property Property Get ssl() As Boolean ssl = mSSL End Property Property Let ssl(value As Boolean) mSSL = value End Property Nas privates, coloque: Dim WithEvents Omail As clsCDOmail Vamos enviar o email agora, em um Command, coloque: Private Sub enviar_Click() Set Omail = New clsCDOmail '------------------------ 'use as funções With Omail .servidor = "smtp.live.com" ' O servidor SMTP .puerto = "25" ' A porta .UseAuntentificacion = True ' Faz a autenticação .ssl = True ' modo ssl, vai variar de acordo com seu servior de email, aqui no caso, vamos usar TRUE .Usuario = "seuemail@gmail.com" ' Coloca aqui o teu email .PassWord = "senhadousuario" ' Senha do email .Asunto = "Assunto" ' Assunto da mensagem .Adjunto = "" ' aqui eh o anexo, se quiser colocar algum anexo, coloque o local do arquivo, ex: C:\arquivo.exe, caso nao queira anexo, deixe como esta .de = "TheMarKs" ' Nome do remetente .para = "email_do_seu_amigo@hotmail.com" ' Email do destinatario .Mensaje = "Sua mensagem aqui" .Enviar_Backup ' Envia o email End With Set Omail = Nothing 'exclui MsgBox "Email enviado com sucesso!", vbNormal, "Email enviado!" End Sub Bom, eh isso! Muito facil neh?
  22. Estou criando um launcher para abrir um jogo, mas preciso que ele abra somente um, e que se houver a tentativa de abrir dois eles gere uma mensagem "Você não pode abrir dois launchers" e não abra o segundo. Se alguém puder ajudar ficaria grato.
  23. Senhores preciso de ajuda para acionar o botão " CmdLogin " através do acionamento da tecla ENTER .. Private Sub CmdLogin_Click() If TextUsuario.Text = "SILVERIO" And TextSenha.Text = "TBG" Or TextUsuario.Text = "GERALDO" And TextSenha.Text = "TBG" Or TextUsuario.Text = "DIEGO" And TextSenha.Text = "TBG" Or TextUsuario.Text = "FLAVIO" And TextSenha.Text = "TBG" Then Unload Me frmConector.Show 1 Else: MsgBox " *** Login e ou Senha incorreto tente novamente *** ", vbOKOnly, "CVTEST" TextUsuario.Text = "" TextSenha.Text = "" End If End Sub
  24. Olá pessoas... Eu estou com uma duvida nesse codigo <p> <a class="btn" href="/scenes/jobsAccept/2845270"><font color="green">SIM</font></a> <a class="btn" href="/scenes/jobsReject/2845270"><font color="red">NÃO</font></a> </p> preciso fazer o meu button clicar no "sim" pelo webbrowser do vb , porque a class dos 2 são iguais e o link que fica no href é gerado , só se tivesse como fazer o form identificar se está escrito "JobsAccept" e clicar nesse botão mas eu não sei fazer isso , me ajudem por favor...
  25. Fórmula

    Alguém poderia me ajudar a inserir essa fórmula no meu projeto ??? Essa é uma fórmula que se encontra no excel TextVacc_C_VB.Text = TextVacc_NC_VB * (TextPop.Text / TextPb) * (TextTb.Text / TextTop.Text) * (TextZb.Text / TextZop.Text) Agradecimentos desde já
×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade