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 »

Validando CGC e CPF

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

Continue reading »

Desabilitando o botão Fechar nos forms

Desabilitando o botão Fechar nos forms Adicione o código a seguir em um módulo .BAS: Public Const MF_BYPOSITION = &H400& Public Declare Function RemoveMenu Lib “user32” _ (ByVal hMenu As Long, _ ByVal nPosition As Long, _ ByVal wFlags As Long) As Long Public Declare Function GetSystemMenu Lib “user32” _ (ByVal hWND As Long, _

Continue reading »

Função de arredondamento

Função de arredondamento no Visual Basic A função a seguir efetua o arredondamento em um determinado valor dependendo no número de casas decimais que se entra como parâmetro: Function Arredonda(Valor as double, Casas as integer) as double Arredonda = Int ( Valor * 10^Casas+0.5) / 10^Casas End Function ‘Use desta forma: Arredonda (45.3246, 3) para

Continue reading »

Criando Credits Scroll

Criando Credits Scroll Para criar um formulário com que os créditos rolem no Form proceda da seguinte forma: Crie um Form. Adicione um timer ao seu form com o valor do intervalo =1 Tenha 1 label ou mais em seu form (esse código pode rolar figuras, textboxes …) Private Sub Timer1_Timer() Label1.Top = Label1.Top –

Continue reading »
Pages:1234567...15»