G
Guest
Hi EveryBody:
I am new developer in Vb.Net And I found a code that Obtained the URL of IE
Or Netscape.
Unfortunatlly this Code is Applies to: VB4-32, VB5, VB6
And I want to use it for Vb.NEt When I plug it in my development enviromet I
found Alot of errors. So Can Any one Help me And Adjust this code and make it
applicable for Vb.Net
The form Should be Like the following:
Drop a command button (Command1) two labels (Label1, Label2) onto a form,
setting the autosize property of the labels True. The third label in the
illustration above is the result of preparing the graphic as a composite
image to demonstrate both NS modes. Add the following code to the form:
The Code IS :
Option Explicit
Private Sub Command1_Click()
On Error GoTo command_error
With Label1
.Caption = ""
.AutoSize = True
.LinkTopic = "IExplore|WWW_GetWindowInfo"
.LinkItem = "0xffffffff"
.LinkMode = 2
.LinkRequest
End With
DoEvents
With Label2
.Caption = ""
.AutoSize = True
.LinkTopic = "Netscape|WWW_GetWindowInfo"
.LinkItem = "0xffffffff"
.LinkMode = 2
.LinkRequest
End With
Exit Sub
command_error:
'try the next step on error
Resume Next
End Sub
Any help will be appreciated
regard's
Husam
I am new developer in Vb.Net And I found a code that Obtained the URL of IE
Or Netscape.
Unfortunatlly this Code is Applies to: VB4-32, VB5, VB6
And I want to use it for Vb.NEt When I plug it in my development enviromet I
found Alot of errors. So Can Any one Help me And Adjust this code and make it
applicable for Vb.Net
The form Should be Like the following:
Drop a command button (Command1) two labels (Label1, Label2) onto a form,
setting the autosize property of the labels True. The third label in the
illustration above is the result of preparing the graphic as a composite
image to demonstrate both NS modes. Add the following code to the form:
The Code IS :
Option Explicit
Private Sub Command1_Click()
On Error GoTo command_error
With Label1
.Caption = ""
.AutoSize = True
.LinkTopic = "IExplore|WWW_GetWindowInfo"
.LinkItem = "0xffffffff"
.LinkMode = 2
.LinkRequest
End With
DoEvents
With Label2
.Caption = ""
.AutoSize = True
.LinkTopic = "Netscape|WWW_GetWindowInfo"
.LinkItem = "0xffffffff"
.LinkMode = 2
.LinkRequest
End With
Exit Sub
command_error:
'try the next step on error
Resume Next
End Sub
Any help will be appreciated
regard's
Husam