[share] DC-Browser

[CyberKaze]

dibuatnya pake apa om ? ane pengen bisa juga kaya gitu

[KotoM]

makin lama makin mantaff aja ne om badol
:kenyod

[nanda]

Nice
Btw pkai component inet yah?

[ph0eniXb0y]

wew dicoba dulu ahk bang
keren nih bsa bikin browser

[ubuntux]

(04-20-2012 02:22 PM)dhelpi7 Wrote:  Assalamualaikum Omz yang cantik dan tante yang ganteng
hari ini ane mau share Browser yang ane buat dari VB klo2 jelek maaf ya

Semoga omz dan tante sekalian bekenan menggunakan nya
klo2 jelek ane harap maklum

cekidot SS nya :

Spoiler:

Download nya Dimari

klo2 jelek ane minta maap ya buat yang mau ngembangin
ini SC nya

Source code

mari lanjutken belajar bersama
salam sayang dari ane pujangga ganteng , rajin , baik hati , tidak sombong dan rajin menabung serta gak maho cuma rada2 ngenes

sekian
wassalamualaikum

ini om, ane tambahin source code ane...
semoga bisa di kembangin...

Code:

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command3_Click
End Sub

Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.GoBack
End Sub

Private Sub Command2_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub

Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.Navigate Combo1
End Sub

Private Sub Command5_Click()
On Error Resume Next
WebBrowser1.Refresh
End Sub

Private Sub Command6_Click()
On Error Resume Next
WebBrowser1.GoHome
End Sub

Private Sub Command7_Click()
WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
End Sub

Private Sub Command8_Click()
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.google.com/")
End Sub

Private Sub Form_Resize()
Rem used to get the web browser control just right to fit the form
On Error Resume Next
If Me.Height > 11130 Then Me.Height = 11130
Combo1.Width = Me.Width - 345
WebBrowser1.Width = Me.Width - 345
WebBrowser1.Height = Me.Height - 1935
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Rem Notifies when page is done loading
StatusBar1.Panels(1).Text = "Done"
End Sub

      'This to make the progress bar work and to show a status message, and an image.
      Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
      On Error Resume Next
          If Progress = -1 Then ProgressBar1.Value = 100 'the name of the progress bar is "ProgressBar1".
              ProgressBar1.Visible = False 'This makes the progress bar disappear after the page is loaded.
          If Progress > 0 And ProgressMax > 0 Then
              ProgressBar1.Visible = True
              ProgressBar1.Value = Progress * 100 / ProgressMax
              StatusBar1.Panels(1).Text = Int(Progress * 100 / ProgressMax) & "%"
          End If
          Exit Sub
      End Sub
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

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
If WebBrowser1.LocationURL = "http://www.google.com" Then: Exit Sub
Me.Caption = WebBrowser1.LocationName
StatusBar1.SimpleText = Text
End Sub

Private Sub WebBrowser1_TitleChange(ByVal Text As String)
If WebBrowser1.LocationURL = "http://www.google.com" Then: Exit Sub
Combo1.Text = WebBrowser1.LocationURL
Combo1.SelStart = Len(Combo1.Text)
End Sub

Semoga bisa bermanfaat

[seva]

ane coba buat nyetriming dulu

[Qiezaqie [RJ]]

bisa lolos dari cold pler gak nih app?

[dhelpi7]

(04-20-2012 09:22 PM)ubuntux Wrote:  

(04-20-2012 02:22 PM)dhelpi7 Wrote:  Assalamualaikum Omz yang cantik dan tante yang ganteng
hari ini ane mau share Browser yang ane buat dari VB klo2 jelek maaf ya

Semoga omz dan tante sekalian bekenan menggunakan nya
klo2 jelek ane harap maklum

cekidot SS nya :

Spoiler:

Download nya Dimari

klo2 jelek ane minta maap ya buat yang mau ngembangin
ini SC nya

Source code

mari lanjutken belajar bersama
salam sayang dari ane pujangga ganteng , rajin , baik hati , tidak sombong dan rajin menabung serta gak maho cuma rada2 ngenes

sekian
wassalamualaikum

ini om, ane tambahin source code ane...
semoga bisa di kembangin...

Code:

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command3_Click
End Sub

Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.GoBack
End Sub

Private Sub Command2_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub

Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.Navigate Combo1
End Sub

Private Sub Command5_Click()
On Error Resume Next
WebBrowser1.Refresh
End Sub

Private Sub Command6_Click()
On Error Resume Next
WebBrowser1.GoHome
End Sub

Private Sub Command7_Click()
WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
End Sub

Private Sub Command8_Click()
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.google.com/")
End Sub

Private Sub Form_Resize()
Rem used to get the web browser control just right to fit the form
On Error Resume Next
If Me.Height > 11130 Then Me.Height = 11130
Combo1.Width = Me.Width - 345
WebBrowser1.Width = Me.Width - 345
WebBrowser1.Height = Me.Height - 1935
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Rem Notifies when page is done loading
StatusBar1.Panels(1).Text = "Done"
End Sub

      'This to make the progress bar work and to show a status message, and an image.
      Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
      On Error Resume Next
          If Progress = -1 Then ProgressBar1.Value = 100 'the name of the progress bar is "ProgressBar1".
              ProgressBar1.Visible = False 'This makes the progress bar disappear after the page is loaded.
          If Progress > 0 And ProgressMax > 0 Then
              ProgressBar1.Visible = True
              ProgressBar1.Value = Progress * 100 / ProgressMax
              StatusBar1.Panels(1).Text = Int(Progress * 100 / ProgressMax) & "%"
          End If
          Exit Sub
      End Sub
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

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
If WebBrowser1.LocationURL = "http://www.google.com" Then: Exit Sub
Me.Caption = WebBrowser1.LocationName
StatusBar1.SimpleText = Text
End Sub

Private Sub WebBrowser1_TitleChange(ByVal Text As String)
If WebBrowser1.LocationURL = "http://www.google.com" Then: Exit Sub
Combo1.Text = WebBrowser1.LocationURL
Combo1.SelStart = Len(Combo1.Text)
End Sub

Semoga bisa bermanfaat

makasih bg ntar deh ane belajar ngembangin dengan source ane sendiri
belajar biar bisa kaya kakak2 ku dimari

---

(04-20-2012 09:32 PM)Qiezaqie Wrote:  bisa lolos dari cold pler gak nih app?

blom ane coba lagi bro

[kidofdream]

.. ane juga pernah bikin , tapi lupa naro nya dimana ..
ntar kalo ketemu ane aplot juga

btw , ente pake vb.net om ?

[dhelpi7]

(04-20-2012 10:12 PM)kidofdream Wrote:   .. ane juga pernah bikin , tapi lupa naro nya dimana ..
ntar kalo ketemu ane aplot juga

btw , ente pake vb.net om ?

ane pake vb 6 bg blom ngarti vb.net
klo jelek maap ye bg