Code For: Button Click = Web Link

[Katie_Perry]

Visual basics 2008 Express Edition

Yes, ok lets say Button_1 i put on Windows Application, and whats the code, if i want it, when click lets say it opens Google

Thanks

[legendaryhack b leet]

try

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.Diagnostics.Process.Start("https://www.mpgh.net")
End Sub

I'm not to good with vb08, and can't test that.

I can guarantee

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
Const SW_SHOWNORMAL = 1

Private Sub command1_Click()
      ShellExecute Me.hwnd, vbNullString, "https://www.mpgh.net/", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

will work for vb6.0

[Ugleh]

what he said.

[Katie_Perry]

Thanks!

Wait the Thanks button is gone =X

Close please =D

[legendaryhack b leet]

Refresh the page and it will be there

Although this is a secondary account so doesn't really matter.

[JIGS4W]

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub
End Class

Ima beginner too . I just finish watching the tut video on it^
so im not 100% sure that it will work.
Im chooby in vb cuz i just started. i wanna learn more

[K4GE]

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub
End Class

Ima beginner too . I just finish watching the tut video on it^
so im not 100% sure that it will work.
Im chooby in vb cuz i just started. i wanna learn more

It will work like that,
but you need to add a webbrowser and a textbox first.
If you need any info on VB, or need some tutorials, PM me and ill be happy to help you out.

[legendaryhack b leet]

What does the textbox do in that?

Do you like type the website name in it or something?

[JIGS4W]

Here is my very crappy vb project. feel free to laugh, its my first vb ive ever done
btw its a program to browse websites with

It will work like that,
but you need to add a webbrowser and a textbox first.
If you need any info on VB, or need some tutorials, PM me and ill be happy to help you out.

Ill definitely PM you if I need help with vb lol

What does the textbox do in that?

Do you like type the website name in it or something?

I think its for typing the website. Not sure... still learning.

[legendaryhack b leet]

Looking at your picture, that would be a yes.

[K4GE]

You type the website in the TextBox, and then click a button.
Then the button will 'navigate' the webbrowser to the text inside the textbox.
You can compare it with a normal webbrowser (like firefox, internet explorer, safari,etc..).
Look at this image i made:
[img]https://i463.photobucke*****m/albums/qq353/jordidepo/naamloos-1.jpg[/img]
I hope you understand it now. (:

[legendaryhack b leet]

Button1 on firefox is the green arrow as such

But yes to the thread starter, what I posted is what you are looking for you can use this in a different instance

[Zoom]

process.start("https://Mpgh.net/")

[XGelite]

try

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.Diagnostics.Process.Start("https://www.mpgh.net")
End Sub

I'm not to good with vb08, and can't test that.

I can guarantee

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
Const SW_SHOWNORMAL = 1

Private Sub command1_Click()
      ShellExecute Me.hwnd, vbNullString, "https://www.mpgh.net/", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

will work for vb6.0

btw if you want that vb6 command to work in vb2008 just replace command1 with button1 and replace Me.hwnd with Me.Handle ( handle is the vb.net form of hwnd)

[LegendaryAbbo]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ShellExecute Me.Handle, vbNullString, "https://www.mpgh.net/", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

So that?