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

Continuar lendo »

DBGrid com consultas parametrizadas (consulta com parâmetros)

DBGrid com consultas parametrizadas (consulta com parâmetros) Você deverá mudar a propriedade RecordSource do seu controle data (no qual é baseado o DBGrid) em tempo de execução, para algo como o que segue: Data1.RecordSource = “Select * suatabela Where seucampo = valordocamponoformulário” Data1.Refresh É necessário utilizar o método Refresh para atualizar o controle Data.

Continuar lendo »

Ajustar o tamanho dos objetos quando muda o tamanho do formulário

Ajustar o tamanho dos objetos quando muda o tamanho do formulário Para ajustar o tamanho de objetos quando se redimensiona um form em tempo de execução, utilize o evento Form_Resize (redimensionar tamanho), por exemplo: Private Sub Form_Resize() Text1.Width = Form1.Width / 2 Text1.Left = Form1.Width / 4 Text1.Top = Form1.Height / 3 End Sub

Continuar lendo »

Arredondar um número para o valor múltiplo de 5 mais próximo

Dicas de Visual Basic

Arredondar um número para o valor múltiplo de 5 mais próximo Nesta dica de Visual Basic do Web Mundi.com, aprenderemos como arredondar um número para o valor múltiplo de 5 mais próximo. Para isto, basta utilizar a seguinte função:

  Obrigado Espero que esta dica tenha sido útil e tenha lhe ajudado a aumentar seus conhecimentos

Continuar lendo »

Mapear unidade de rede

Mapear uma unidade de rede; Declare Function WNetAddConnection Lib “mpr.dll” Alias “WNetAddConnectionA” (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName _ As String) As Long Declare Function WNetGetConnection Lib “mpr.dll” Alias “WNetGetConnectionA” _ (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName _ As Long) As Long Declare Function WNetCancelConnection Lib “mpr.dll” Alias

Continuar lendo »
Pages:1234567...34»