Enviando um email pelo Outlook

Enviando um email pelo Outlook 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 = “webmundi@webmundi.com” mapimessages1.AddressResolveUI = True mapimessages1.ResolveName mapimessages1.MsgSubject = “Titulo da minha

Continue reading »

Evitando que o programa apareça na lista de tarefas do Windows

Use a propriedade TaskVisible do objeto App. No evento Load do form principal ou na procedure Main do módulo principal, coloque o seguinte código: App.TaskVisible = False Em adição para evitar que o título de uma janela não apareça na barra de tarefas, configure a propriedade ShowInTaskBar do form para False.

Continue reading »

Alarme

Alarme em Visual Basic Option Explicit Dim AlarmTime Const conMinimized = 1 Private Sub Form_Click() AlarmTime = InputBox(“Digite a hora”, “VB Alarme”, Hora de Alarme) If AlarmTime = “” Then Exit Sub If Not IsDate(AlarmTime) Then MsgBox “Valor digitado inválido” Else ‘ String válida, AlarmTime = CDate(AlarmTime) ‘ Guarda o valor da hora em AlarmTime.

Continue reading »

Apagar todos os registros de uma tabela

Dicas de Visual Basic

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

Continue reading »

Descobrindo se o S.O. é Windows 95 ou Windows NT

Descobrindo se o S.O. é Windows 95 ou Windows NT ‘DEMONSTRAÇÃO DE IDENTIFICAÇÃO DO SISTEMA OPERACIONAL CORRENTE. ‘ ‘FUNÇÕES Public Declare Function GetVersionEx Lib “kernel32” Alias “GetVersionExA” (lpVersionInformation As OSVERSIONINFO) As Long ‘CONSTANTES Public Const VER_PLATFORM_WIN32_NT As Long = 2 Public Const VER_PLATFORM_WIN32_WINDOWS As Long = 1 Public Const VER_PLATFORM_WIN32s As Long = 0 ‘TIPOS

Continue reading »
Pages:1234567...37»