Visual Basic

Enviando um e-mail pelo Outlook via Visual Basic   Primeiro, selecione o componente MICROSOFT MAPI CONTROLS. Depois acrecente no seu form o objeto MAPISESSION e MAPIMESSAGES que apareceram na sua toolbox. Então use a seguinte codificação para enviar uma mensagem: mapisession.Action = 1 mapimessages1.SessionID = mapisession.SessionID mapimessages1.Compose mapimessages1.RecipAddress = “[email protected]” mapimessages1.AddressResolveUI = True mapimessages1.ResolveName mapimessages1.MsgSubject…

Como Abrir base de dados com Senha ? Este exemplo utiliza o objeto Dao Jet. Para outros objetos consulte o Help do VB. Para abrir o banco é necessário passar a senha no parâmetro Connect. No exemplo abaixo, a senha é “web”. Dim wrk As Workspace Dim db As Database Set wrk = DBEngine.Workspace(0) Set…

Obtendo o nome longo de um arquivo através de seu nome curto   Com esta função pode se obter o nome longo de um arquivo. Seu funcionamento é simples. Através da passagem de parâmetro do nome curto de arquivo nome é retornado seu nome longo. Public Function GetLongName(ByVal psShortName As String) As String Dim liPos…

No Visual Basic, quando se trabalha com formulários MDI (Multiple Document Interface), é possível organizar as janelas-filhas (MDIChilds) de diferentes formas para melhorar a disposição da interface. Tipos de Organização Disponíveis 🔹 Cascata (Cascade): As janelas são empilhadas de forma sobreposta.🔹 Lado a Lado Horizontalmente (Tile Horizontal): As janelas são distribuídas horizontalmente.🔹 Lado a Lado…

Para efetuar uma discagem pelo VB,basta insirir o código: Crie um MsComm no seu Form; Depois Digite: Mscomm1.CommPort = 2 ‘(Nº da porta em que está seu FAX/MODEM) Mscomm1.PortOpen = True Mscomm1.Output = “ATDT 1234567” ‘(Discagem por Tom) MScomm1.Output = “ATDP 1234567” ‘(Discagem por Pulso)

Eliminando o IF quando possível no Visual Basic   Se você atribui true ou false para uma variável (ou propriedade), após testar certas condições, poderia fazê-lo sem o IF. Veja: If (age > 18 and sex = “M”) and (NecessitaSeContigente = true ) Then ServicoMilitar = true Pode substituir por: ServicoMilitar = (age > 18…

No Visual Basic, é possível transformar um Label em um hyperlink para abrir páginas da web ou enviar e-mails. Isso pode ser feito utilizando a API ShellExecute, que permite executar arquivos e URLs diretamente do código. Passo a Passo para Criar Hyperlinks em Labels Código Completo Explicação do Código – ShellExecute → Função usada para…

O ListBox padrão do Visual Basic não suporta colunas, mas podemos contornar essa limitação utilizando a função API SendMessage do Windows. Isso permite organizar os itens da ListBox em colunas utilizando tabulações. Passo a Passo para Criar Colunas na ListBox – Adicione uma ListBox ao formulário e nomeie-a como lstCapitais.– Crie um módulo (arquivo .BAS)…

Form circular Adicione o seguinte código nas declarações da form: Private Declare Function CreateEllipticRgn Lib “gdi32” (ByVal X1 As _ Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib “user32” (ByVal hWnd _ As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As…

Validando CGC e CPF no Visual Basic Os números de CGC e CPF possuem dígitos verificadores para que ?!?!?!… Horas para serem verificados!!! Isto é obvio. A validação deve ser feita (por qualquer sistema decente) para impedir a digitação por engano e os CGCs e CPFs falsos. Function Fu_consistir_CgcCpf (Vl_CgcCpf As String) ‘ Esta Rotina…

Apagar todos os registros de uma tabela Algumas linguagens de programação têm uma instrução que permite apagar todos os registos de uma tabela. Digamos que pretendemos que a mesma se torne “vazia”. (a instrução “Zap” do clipper e do FoxPro) O Visual basic infelizmente não possui uma instrução deste tipo. Há duas maneiras de efetuar…