Give action

Dobbeltklik på den knap, du har indsat, så kommer der et vindue, hvor du kan skrive den kode, der skal udføres ved klik på knappen.

Ja, det har jeg fundet ud af :o)
Men hvad ER koden???

Du kan f.eks. give brugeren en meddelelse:

Private Sub Command1_Click()
MsgBox \"Hello World!!\",vbInformation,\"First MsgBox\"
End Sub

Første og nederste linie kommer af sig selv, når du dobbeltklikker på din knap.

Nåeh, at åbne browseren i et bestemt vindue er faktisk ikke helt nemt. Kommandoen Shell bruges til at starte andre programmer (.EXE) fra VB, du kan f.eks gøre sådan:

Shell \"C:\\Windows\\iexplore.exe\"

For at åbne Internet Explorer.

Ja driis ...
Og han kunne f.eks. også starte Internet Exploreren og vælge www.eksperten.dk ?!!?!?

Og ...
Hvordan gør han så det ?

Hvis du vil åbne brugerens default webbrowser, på siden www.eksperten.dk, gør du sådan her:

Du nåede at læse lord\'s spørgsmål igen  ;-)

Ok, nu kan jeg åbne browseren ved klik!
Her er en ide! Hvis du kan hjælpe får du 100 point :o)

En textbox, hvor man kan skrive en url..eks:(www.eksperten.dk) Så en knap som man kan trykke på, og så åbner den www.eksperten.dk

Kan du/i hjælpe mig?

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
Dim a As Long

Private Sub Command1_Click()
a = ShellExecute(Me.hwnd, \"open\", \"http://www.eksperten.dk\", \"\", \"\", 1)
End Sub

Hvis der skal være en tekstboks, hvor man kan skrive adressen, bruger du det her (Jeg regner med at tekstboksen hedder Text1 (virkeligt originalt, ikke?)

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
Dim a As Long

Private Sub Command1_Click()
a = ShellExecute(Me.hwnd, \"open\", Text1.Text, \"\", \"\", 1)
End Sub

Jo det er for cool!!!
hehe jeg håber du vil hjælpe når jeg kører fast igen :o)

SIDSTE SPØRGSMÅL!!!
Hvordan laver jeg en knap, som LUKKER programmet???

Naturligvis!

Jeg kan også lige forklare koden lidt:
Øverste linie deklarerer en Windows API funktion (API = Advanced Programming Interface eller noget i den retning), som vi skal bruge til at åbne browseren. Den næste linie deklarerer en variabel af typen Long, som vi skal bruge idet vores funktion returnerer en Long.

Under kommandoknappen kalder vi så funktionen. Den første parameter er et handle til det vindue, idette tilfælde Me.hwnd, som benytter sig af ShellExecute. Dernæst specificeres, hvad vi ønsker at gøre med filen, i dette tilfælde \"open\". Det næste er adressen, som du nok har regnet ud, denne kunne også være en fil på computeren. Dernæst kommer ekstra parametre samt arbejdsbiblioteket, som vi sætter til en tom streng. 1 - tallet til sidst specificerer, at browseren skal åbnes i et normalt vindue.

Luk programmet: Brug END