dcsimg
December 7, 2016
Hot Topics:

Develop Your Own Browser - Part 2

  • November 19, 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:

On Error Resume NextDim rpo As StringDim lrs As StringDim b() As Bytelrs = C:\Windows\temp.htmInet1.CancelInet1.Protocol = icHTTPInet1.URL = cboaddress.Textrpo = Dir$(C:\Program Files\Microsoft Visual Studio\_               Common\IDE\IDE98\DEVENV.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 Visual Studio\_         Common\IDE\IDE98\DEVENV.EXE, lrs, _         C:\MyProg\, SW_MAXIMIZE)ElseMsgBox There is no source code for this. _       It may be a System File.End IfElseMsgBox Microsoft Visual Interdev Software _       Not FoundEnd If





Page 6 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.

Sitemap | Contact Us

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