View previous topic :: View next topic |
Author |
Message |
The123 Cheater
Reputation: 0
Joined: 26 Jan 2009 Posts: 39
|
Posted: Fri Jun 12, 2009 10:41 am Post subject: vb6 |
|
|
how can i change the command buttons to icons
ex back- change to an arrow or any other command buttons to different icons
|
|
Back to top |
|
 |
iTz SWAT I post too much
Reputation: 1
Joined: 20 Dec 2007 Posts: 2227 Location: Me.Location;
|
Posted: Fri Jun 12, 2009 5:49 pm Post subject: Re: vb6 |
|
|
Masterofchaos wrote: | how can i change the command buttons to icons
ex back- change to an arrow or any other command buttons to different icons |
I haven't used VB6 before, but I think
Click on the button.
On the right panel look for the icon property.
Browse for the arrow Icon...
_________________
|
|
Back to top |
|
 |
The123 Cheater
Reputation: 0
Joined: 26 Jan 2009 Posts: 39
|
Posted: Fri Jun 12, 2009 9:27 pm Post subject: |
|
|
can someone help with this website vbforums. com/showthread.php?t=406671
and the java i dont know where to put it
i had to put a space between . com cause i cant post urls yet
i cant find these
Private Function IsPopupWindow() As Boolean
Private Declare Function
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Private Sub WebBrowser1_NavigateComplete2
|
|
Back to top |
|
 |
iTz SWAT I post too much
Reputation: 1
Joined: 20 Dec 2007 Posts: 2227 Location: Me.Location;
|
Posted: Fri Jun 12, 2009 9:43 pm Post subject: |
|
|
I recommend you switch to VB2008...
Why use an old version?
You can't find Code: | Private Function IsPopupWindow() As Boolean | because you haven't added an End Function... Some with all 3 of your problems, you must start with Public Function/Public Declare/ Public Sub, and must end with End Function/
It's supposed to be like this...
Code: | Public Sub Form1
Private Function IsPopupWindow() As Boolean
On Error Resume Next
If WebBrowser1.Document.activeElement.tagName = "BODY" Or WebBrowser1.Document.activeElement.tagName = "IFRAME" Then
IsPopupWindow = True
Else
IsPopupWindow = False
End If
End Function
Private Sub webbrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As Form1
Cancel = IsPopupWindow
If Cancel = False Then
Set frm = New Form1
Set ppDisp = frm.WebBrowser1.object
frm.Show
End If
End Sub
'This keeps the visited sites history and also changes the title of the browser as the page title.
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim i As Integer
Dim bFound As Boolean
Me.Caption = WebBrowser1.LocationName
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = WebBrowser1.LocationURL Then
bFound = True
Exit For
End If
Next i
mbDontNavigateNow = True
If bFound Then
Combo1.RemoveItem i
End If
Combo1.AddItem WebBrowser1.LocationURL, 0
Combo1.ListIndex = 0
mbDontNavigateNow = False
End Sub
End Sub
|
_________________
|
|
Back to top |
|
 |
The123 Cheater
Reputation: 0
Joined: 26 Jan 2009 Posts: 39
|
Posted: Sat Jun 13, 2009 10:00 am Post subject: |
|
|
how do i add the java to it
|
|
Back to top |
|
 |
iTz SWAT I post too much
Reputation: 1
Joined: 20 Dec 2007 Posts: 2227 Location: Me.Location;
|
Posted: Sat Jun 13, 2009 6:31 pm Post subject: |
|
|
You don't add Java...
The Browser Control has everything already inbuilt for you...
Forget everything I said...
What do you want to add to your browser?
A pop up blocker?
_________________
|
|
Back to top |
|
 |
The123 Cheater
Reputation: 0
Joined: 26 Jan 2009 Posts: 39
|
|
Back to top |
|
 |
iTz SWAT I post too much
Reputation: 1
Joined: 20 Dec 2007 Posts: 2227 Location: Me.Location;
|
Posted: Sun Jun 14, 2009 12:12 am Post subject: |
|
|
In the progress bar timer
Code: | Label1.Text = (ProgressBar1.Value / ProgressBar1.Maximum * 100) & "% Completed" |
If you want to stop Javascript errors, in the Form1 Load event, add
Code: | WebBrowser1.Silent = True |
_________________
|
|
Back to top |
|
 |
|