by George Scott (12 Submissions)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 20th October 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This Code Will Allow You To Launch a Webpage With 1 Textbox & 1 Command Button Only 2 Lines Of Code
API Declarations
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
'Paste This Code In The Code Window
'Create A Textbox And Name It Text1
'Create A CommandButton And Name It Command1
Private Sub Command1_Click()
Me.WindowState = vbMinimized 'This Hides / Minamize's IBM Wordpad
ShellExecute GetActiveWindow(), "Open", Text1.Text, "", 0&, 1
End Sub
Private Sub Form_Load()
Text1.Text = "www.homebuiltcomputers.tk"
End Sub
No comments have been posted about This Code Will Allow You To Launch a Webpage With 1 Textbox & 1 Command Button Only 2 Lines Of Code. Why not be the first to post a comment about This Code Will Allow You To Launch a Webpage With 1 Textbox & 1 Command Button Only 2 Lines Of Code.