[VB] In een menu een hyperlink maken

[NiMu83]

Ik heb een form met daarin een menubalk. Nou wil ik als ze bijvoorbeeld About --> Website klikken dat ze dan naar een internet adres gaan.
Weet iemand hoe ik dit doe?
(ben nog maar een newbie met VB)

Thanks

[Gerco]

Dan moet je ShellExecute() gebruiken. Zoek maar op GoT en je vind een dozijn topics met voorbeeld VB code.

[Korben]

code:

Declare Function ShellExecute& Lib "shell32" 
(ByVal hWnd As Long, 
lpOperation As String, 
lpFile As String, 
lpParameters As String, 
lpDirectory As String, 
ByVal nShowCmd As Integer)

Dim dummy As Long

dummy = ShellExecute(Me.hWnd, "open", "http://www.bert.nl/", "", "", SW_SHOWNORMAL)

If dummy <= 32 Then
   MsgBox "ShellExecute failed."
End If

[NiMu83]

sjeez kan dat niet simpeler?
dit is een stukje code:

Private Sub mnuHomepage_Click()

End Sub

Die komt dus als je naar About--> Homepage gaat

Als ik dus daar op klik moet ik naar een internet site gaan...
bv NavigateTo ofzo>

[Korben]

Zucht... moet ik alles voorkauwen? Er bestaat zoiets als intelligentie...

code:

' in je form code -> Declarations
Declare Function ShellExecute& Lib "shell32" (ByVal hWnd As Long, lpOperation As String, lpFile As String, lpParameters As String, lpDirectory As String, ByVal nShowCmd As Integer)
Private Const SW_SHOWNORMAL = 1

Private Sub mnuHomepage_Click()
  Dim dummy As Long

  dummy = ShellExecute(Me.hWnd, "open", "http://www.rtfm.nl/", "", "", SW_SHOWNORMAL)

  If dummy <= 32 Then
     MsgBox "ShellExecute failed."
  End If
End Sub

[NiMu83]

Op woensdag 10 oktober 2001 10:54 schreef Xenophage het volgende:
Zucht... moet ik alles voorkauwen? Er bestaat zoiets als intelligentie...

code:

' in je form code -> Declarations
[b]Declare Function ShellExecute& Lib "shell32" (ByVal hWnd As Long, lpOperation As String, lpFile As String, lpParameters As String, lpDirectory As String, ByVal nShowCmd As Integer)[/b]

Private Sub mnuHomepage_Click()
  Dim dummy As Long

  dummy = ShellExecute(Me.hWnd, "open", "http://www.rtfm.nl/", "", "", SW_SHOWNORMAL)

  If dummy <= 32 Then
     MsgBox "ShellExecute failed."
  End If
End Sub

als ik dat in de General Declarations doe dan zegt ie:
Compile error:
Constants, fixed-lengths strings, arrays, blabla, not allowed as public members of object modules

(sorry maar ik weet alleen een beetje de basisdingen van VB, ben net begonnen pas)

[Crazy D]

Op woensdag 10 oktober 2001 11:01 schreef Windhoosje het volgende:
(sorry maar ik weet alleen een beetje de basisdingen van VB, ben net begonnen pas)

Niet om lullig te doen, maar doe dan voorlopig ff een msgboxje "U zou nu naar de website gaan" en richt je voorlopig eerst op VB an sich. ShellExecute om naar een website te gaan is natuurlijk wel leuk, maar je hebt er verder geen ene moer aan. Opleuken () komt later weer, leer eerst de basis.

En verder:
API declaraties en constanten mogen alleen als Private gedeclareert worden in een form-module. Da's wat die error je zo'n beetje probeert te vertellen.

[NiMu83]

Op woensdag 10 oktober 2001 11:12 schreef Crazy_D het volgende:

[..]

Niet om lullig te doen, maar doe dan voorlopig ff een msgboxje "U zou nu naar de website gaan" en richt je voorlopig eerst op VB an sich. ShellExecute om naar een website te gaan is natuurlijk wel leuk, maar je hebt er verder geen ene moer aan. Opleuken () komt later weer, leer eerst de basis.

En verder:
API declaraties en constanten mogen alleen als Private gedeclareert worden in een form-module. Da's wat die error je zo'n beetje probeert te vertellen.

nee is goed...ik d8 dat het wat makkelijker was...
Dan maar een msgboxie...het leek me wel staan zo'n linkie

[Korben]

Op woensdag 10 oktober 2001 11:18 schreef Windhoosje het volgende:

[..]

nee is goed...ik d8 dat het wat makkelijker was...
Dan maar een msgboxie...het leek me wel staan zo'n linkie

Dat is het ook wel, maar euh als n00b ga je nmm ook geen flitsend real-time geraycast logo in een programma bouwen als je net bezig bent met een tutorial