HTML - CSS
Files Directories Drives
Windows and Controls
Visual Basic > Internet Web Mail Stuff sample source codes
Visual Basic Code > Read text box and Launch Default Browser.
Read text box and Launch Default Browser. 'Here's some code to read a text box and start the 'default browser to go to the site. It works really well 'in a phone book program I wrote! I wrote this in VB 5.0 'Let me know what you think. 'OBJECTS to create for this code: 'text box named txtWeb with the text set to http://www. 'button named cmdWeb ' Place this in a BAS module Dim success As Integer 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 'Here's the button code Private Sub cmdWeb_Click() Dim success As Integer If Trim(txtWeb.Text) = "http://www." Or Trim(txtWeb.Text) = "" Then ' I have the txtWeb.text set to http://www. MsgBox "You don't have a web address entered for this entry", vbCritical, "Missing Data" ElseIf Left(Trim(txtWeb.Text), 11) = "http://www." Then Site = Trim(txtWeb.Text) ElseIf Left(Trim(txtWeb.Text), 4) = "www." Then Site = "http://" & Trim(txtWeb.Text) Else Site = "http://www." & Trim(txtWeb.Text) End If success% = ShellToBrowser(Me, Site, 0) End Sub ' Here's the function code Function ShellToBrowser%(Frm As Form, ByVal URL$, ByVal WindowStyle%) Dim api% api% = ShellExecute(Frm.hwnd, "open", URL$, "", App.Path, WindowStyle%) 'Check return value If api% <31 Then 'error code - see api help for more info MsgBox App.Title & " had a problem running your web browser. & _ "You should check that your browser is correctly installed." & _ (Error" & Format$(api%) & ")", 48, "Browser Unavailable" ShellToBrowser% = False ElseIf api% = 32 Then 'no file association MsgBox App.Title & " could not find a file association for " & _ URL$ & " on your system. You should check that your browser" & _ "is correctly installed and associated with this type of file.", 48, "Browser Unavailable" ShellToBrowser% = False Else 'It worked! ShellToBrowser% = True End If End Function ' If you want to create an email address in a text box and start your email ' program add this code and txtEmail and cmdEmail to the same page ' it uses the same function ' Here's the button code Private Sub cmdEmail_Click() Dim success As Integer If Trim(txtEmail.Text) = "" Then ' Give an error if nothing is in the text box MsgBox "You don't have an email address entered for this entry", vbCritical, "Missing Data" Else Site = "mailto:" & Trim(txtEmail.Text) success% = ShellToBrowser(Me, Site, 0) End If End Sub
Link to Us