Jump to content

  2. → Viewing Profile: Posts: RodrigoBytes

RodrigoBytes

Member Since 27/04/2003
Offline Last Active 21/04/2004, 00:31
-----

Posts I've Made

In Topic: Abrir Explore

18/04/2004, 17:01

Eu tenho uma forma mais simplificada basta colocar no evento onde você quer que o explore seja aberto o seguinte comando Shell ("explorer.exe")


Mas dessa maneira naum tem como vc decidir q site aparecer no navegador. No exemplo q eu mostrei, vai abrir o forum da WM. Olhe:

Private Sub cmdexplorer_Click()
Dim iret As Long
iret = ShellExecute(Me.hwnd, _
vbNullString, _
"http://forum.wmonline.com.br", _
vbNullString, _
"c:\", _
SW_SHOWNORMAL)
End Sub

Opa,
tenta assim então:
Shell ("explorer [url="http://ww.rodrigobytes.com.br")"]http://ww.rodrigobytes.com.br")[/url]

Um abraço,
Rodrigo de Souza Delphino

In Topic: Abrir Outlook No Vb

18/04/2004, 11:47

Valew, mas tem como por exemplo eu fazer abrir o outlook e ainda configurar um e-mail pra ja ser enviado?

Olá,

bem o não entendi se você quer enviar email do Outlook(do pacote do office) ou do Outlook Express(que vem junto com o windows).
o Código abaixo é para o outlook e para que ele funcione corretamente o serviço MAPI deve esta iniciado e inserido ao projeto.

Private Sub Form_Load()
On Error GoTo erro
Dim olapp As Object
Dim oitem As Object
Set olapp = CreateObject("Outlook.Application")
Set oitem = olapp.CreateItem(0)

With oitem
.Subject = "O titulo da mensagem"
.To = "contato@rodrigobytes.com.br"
.Body = "A mensagem"
.Send
End With
Set olapp = Nothing
Set oitem = Nothing
Exit Sub
erro:
MsgBox "O outlook não foi encontrado ou o serviço MAPI não foi iniciado", vbCritical, "Erro"
end sub

se você quiser o código equivalente do outlook express posta ai ...

Um abraço,
Rodrigo de Souza Delphino

In Topic: Dúvida Sobre O Timer

17/04/2004, 23:56

Ateh ai, td bem. soh q eu kero um q o usuario consigua controlar o cronometro, parando, zerando, etc...

Olá,

Não é dificil basta entender um pouco de logica, veja o código abaixo caso não consiga entender pegue o form pronto.

Dim mtempo As Double
Private Sub cmdiniciar_Click()
tmrcontador.Enabled = True
End Sub

Private Sub cmdparar_Click()
tmrcontador.Enabled = False
tempo = 0
lbltempo.Caption = tempo
End Sub

Private Sub cmdpausar_Click()
tmrcontador.Enabled = False
End Sub

Private Sub tmrcontador_Timer()
mtempo = mtempo + 1
lbltempo.Caption = mtempo
End Sub

Tem um forma anexado a mensagem baixe ele que o cronometro já está pronto.

Um abraço,
Rodrigo de Souza Delphino

In Topic: Abrir Explore

17/04/2004, 23:35

Opa,

Eu tenho uma forma mais simplificada basta colocar no evento onde você quer que o explore seja aberto o seguinte comando Shell ("explorer.exe")

Um abraço,
Rodrigo de Souza Delphino

In Topic: Condição

19/10/2003, 10:27

Ola,

Vc está um pouco equivocado, vc deve colocar fmCad_Cliente.show no evento setfocus da caixa de texto txtcodigo, e não em uma instrução condicional.
é so issso!

Espero ter ajudado
Rodrigo

  1. Fórum WMO
  2. → Viewing Profile: Posts: RodrigoBytes
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq