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 »

Imprimindo Relatórios do Crystal no Visual Basic

Imprimindo Relatórios do Crystal no Visual Basic Você precisa criar um relatório, baseado na sua tabela, diretamente no Crystal. Depois você deverá inserir o objeto Crystal no seu formulário. Você deve “setar”, diretamente nas propriedades do Crystal, ou em tempo de execução, as seguintes propriedades: ReportFileName, que é o nome do arquivo RPT que será

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...37»