November 14, 2018
Hot Topics:

Develop Your Own Browser - Part 2

  • November 20, 2002
  • By Soma Sundaram
  • Send Email »
  • More Articles »

Insert Inet Control (Name - Inet1)
Insert This line into your Module Declaration Section

Public 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 LongPublic Const SW_SHOW = 5Type SHELLEXECUTEINFO  cbSize As Long  fMask As Long  hWnd As Long  lpVerb As String  lpFile As String  lpParameters As String  lpDirectory As String  nShow As Long  hInstApp As Long  lpIDList As Long  lpClass As String  hkeyClass As Long  dwHotKey As Long  hIcon As Long  hProcess As LongEnd Type

Insert these coding into your click Event:

Dim rpo As StringOn Error Resume NextDim lrs As StringDim b() As Bytelrs = C:\windows\temp.htmInet1.CancelInet1.Protocol = icHTTPInet1.URL = cboaddress.Textrpo = Dir$(C:\Program Files\Microsoft _      FrontPage\bin\fpeditor.exe)If rpo <>  ThenIf Inet1.URL <>  Thenb() = Inet1.OpenURL(, icByteArray)Open lrs For Binary Access Write As #1Put #1, , b()Close #1Dim retval As Longretval = ShellExecute(Me.hWnd, open, _         C:\Program Files\Microsoft _         FrontPage\bin\fpeditor.exe, lrs, _         C:\MyProg\, SW_MAXIMIZE)ElseMsgBox There is no source code for this. _       It may be a System File.End IfElseMsgBox Microsoft Front Page Software Not Found.End If

Page 5 of 6

Comment and Contribute


(Maximum characters: 1200). You have characters left.



Enterprise Development Update

Don't miss an article. Subscribe to our newsletter below.


Thanks for your registration, follow us on our social networks to keep up-to-date