eli eli..
Haluaisin sellasen jutut et :
Kun painan nappia niin joku tietty netti sivu aukeaa selaimeen ?
onko toi edes mahollista..varmaan on...mut en tiä koodia.
Jos joku viisaampi kooderi osais neuvvoa mua...?
Haluaisin sellasen jutut et :
Kun painan nappia niin joku tietty netti sivu aukeaa selaimeen ?
onko toi edes mahollista..varmaan on...mut en tiä koodia.
Jos joku viisaampi kooderi osais neuvvoa mua...?
Vastaukset 1
Vanhimmat
Kokeile jotain seuraavan kaltaista:
Private Sub Command1_Click()
YhdistaSivulle
End Sub
Sub YhdistaSivulle()
Dim IE As Object
On Error GoTo VIRHE
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://sivusto mikä avataan"
IE.Visible = True
Exit Sub
VIRHE:
MsgBox Err.Description
End Sub
*****************************************
Jos haluat lähettää sähköpostia kokeile tätä:
Kirjoita declaration osaan tämä:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
jonka jälkeen voit kutsua sitä vaikka jostain painonapista ja kas kummaa voit lähettää postiakin :)
Private Sub Command2_Click()
Call ShellExecute(Me.hwnd, "Open", "mailto:[email protected]", "", "", 1)
Unload Me
End Sub