Moj Webbrowser (2)

http://www.mediafire.com/?1qe2gt21d1hb3vo

Stravično...koliko si star?!Webrowser kontrola i VB.NET.... Sorry

A sad sam se sjetio ti si onaj koji je igru počeo raditi...od COVERA?!Očekivao sam da češ nešto naučiti, ali ovo je ...

meni je sve u redu nista mi ne bjezi koja ti je rezoluvija? mozda zato

moze screenshot da vidim kako to izgleda :P

@Mr:Croatian100, kako se krenuo s verzijama, dok dođeš do public release verzije tog "browsera" proteći će izvjesno vrijeme, a i mogao bi zagušiti BUG forum, moj savjet ti je da kreneš sa kontrolnim strukturama ili barem da counter u C-u svladaš, ili ako perviše znaš da izdaš ako ne več igru, onda barem svoja OS.

Oprosti, taj koji je radio OS je onaj Bljekhaker.

Kad si toliki hypersuper programer, trebao bi znati da treba maknuti deboug fileove kad izdaješ program. Usto kad već uzimaš ie-engine bilo bi barem poželjno da napraviš svoje ikonice, a ne da ih uzmeš da neke stranice.

Sad ozbiljno, vidim da se još nisi opametio i naučio neke stvari o razvoju softvera. Ti misliš da je ovo browser. Ovo je IE , sa malo promijenutim izgledom. Ovo je očito napravljeno u visualu basicu ili sl. jer samo tu možeš uzet microsoftov engine. Okani se ovoga nasmijavanja nas ovdje na forumu, nismo mi budale toliko budale da nas možeš tako lako impresionirati. Tebi je jasno da se ti trenutno glavni predmet ismijavanja zbog ovih svojih provala. Počni učiti ozbiljno programiranje, okani se igrica.

Pa ikone nisu uopće redender engine. To su samo sličice i izgled. Engine je ono glavno, ono što prikazuje stranicu, ono što renda stranicu po hrml-kodu i prikaže ovakve slike. To je ono bitno, a to si uzeo od ie-a tj. u visualbasicu si stavio naredbu da ti to prikazuje ono ie-engine renda. 

Ti očito pojma nemaš od čega se sastoji web browser i apsolutno ništa o programiranju. Ti nas sve više i više nasmijavaš posebno ovaj zadnji post.

Public Class Form1

   Inherits Form

   ' Methods

   <DebuggerNonUserCode> _

   Public Sub New()

     AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form1_Load)

     Dim list As List(Of WeakReference) = Form1.__ENCList

     SyncLock list

       Form1.__ENCList.Add(New WeakReference(Me))

     End SyncLock

     Me.InitializeComponent

   End Sub

   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)

     Me.WebBrowser1.Navigate(Me.ComboBox1.Text)

     MySettingsProperty.Settings.History.Add(Me.ComboBox1.Text)

     Me.ComboBox1.Items.Add(Me.ComboBox1.Text)

   End Sub

   Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)

     Me.WebBrowser1.GoBack

   End Sub

   Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)

     Me.WebBrowser1.GoForward

   End Sub

   Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs)

     Me.WebBrowser1.Refresh

   End Sub

   Private Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs)

     Me.WebBrowser1.Stop

   End Sub

   Private Sub Button6_Click(ByVal sender As Object, ByVal e As EventArgs)

     Me.WebBrowser1.GoHome

   End Sub

   Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)

     If (e.KeyCode = Keys.Return) Then

       Me.WebBrowser1.Navigate(Me.ComboBox1.Text)

     End If

   End Sub

   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)

     If (Me.ComboBox1.Text = "Clear All History") Then

       MySettingsProperty.Settings.History.Clear

     End If

     If (Me.ComboBox1.Text = "Clear All History") Then

       Me.ComboBox1.Items.Clear

     End If

   End Sub

   <DebuggerNonUserCode> _

   Protected Overrides Sub Dispose(ByVal disposing As Boolean)

     Try 

       If (disposing AndAlso (Not Me.components Is Nothing)) Then

         Me.components.Dispose

       End If

     Finally

       MyBase.Dispose(disposing)

     End Try

   End Sub

   Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)

   End Sub

   <DebuggerStepThrough> _

   Private Sub InitializeComponent()

     Dim resources As New ComponentResourceManager(GetType(Form1))

     Me.WebBrowser1 = New WebBrowser

     Me.ComboBox1 = New ComboBox

     Me.Button6 = New Button

     Me.Button5 = New Button

     Me.Button4 = New Button

     Me.Button3 = New Button

     Me.Button2 = New Button

     Me.Button1 = New Button

     Me.ProgressBar1 = New ProgressBar

     Me.Label1 = New Label

     Me.SuspendLayout

     Dim VB$t_struct$S0 As New Point(1, &H54)

     Me.WebBrowser1.Location = VB$t_struct$S0

     Dim VB$t_struct$S1 As New Size(20, 20)

     Me.WebBrowser1.MinimumSize = VB$t_struct$S1

     Me.WebBrowser1.Name = "WebBrowser1"

     VB$t_struct$S1 = New Size(&H4FA, &H353)

     Me.WebBrowser1.Size = VB$t_struct$S1

     Me.WebBrowser1.TabIndex = 0

     Me.WebBrowser1.Url = New Uri("http://www.google.com/", UriKind.Absolute)

     Me.ComboBox1.FormattingEnabled = True

     VB$t_struct$S0 = New Point(&HC0, 8)

     Me.ComboBox1.Location = VB$t_struct$S0

     Me.ComboBox1.Name = "ComboBox1"

     VB$t_struct$S1 = New Size(&H382, &H15)

     Me.ComboBox1.Size = VB$t_struct$S1

     Me.ComboBox1.TabIndex = 3

     Me.Button6.FlatAppearance.BorderSize = 0

     Me.Button6.FlatAppearance.MouseDownBackColor = Color.Transparent

     Me.Button6.FlatAppearance.MouseOverBackColor = Color.Transparent

     Me.Button6.FlatStyle = FlatStyle.Flat

     Me.Button6.Image = Resources.home_icon

     VB$t_struct$S0 = New Point(&H4AB, -1)

     Me.Button6.Location = VB$t_struct$S0

     Me.Button6.Name = "Button6"

     VB$t_struct$S1 = New Size(&H41, &H22)

     Me.Button6.Size = VB$t_struct$S1

     Me.Button6.TabIndex = 8

     Me.Button6.UseVisualStyleBackColor = True

     Me.Button5.FlatAppearance.BorderSize = 0

     Me.Button5.FlatAppearance.MouseDownBackColor = Color.Transparent

     Me.Button5.FlatAppearance.MouseOverBackColor = Color.Transparent

     Me.Button5.FlatStyle = FlatStyle.Flat

     Me.Button5.Image = Resources.Close_2_icon

     VB$t_struct$S0 = New Point(&H71, 1)

     Me.Button5.Location = VB$t_struct$S0

     Me.Button5.Name = "Button5"

     VB$t_struct$S1 = New Size(&H49, &H20)

     Me.Button5.Size = VB$t_struct$S1

     Me.Button5.TabIndex = 7

     Me.Button5.UseVisualStyleBackColor = True

     Me.Button4.FlatAppearance.BorderSize = 0

     Me.Button4.FlatAppearance.MouseDownBackColor = Color.Transparent

     Me.Button4.FlatAppearance.MouseOverBackColor = Color.Transparent

     Me.Button4.FlatStyle = FlatStyle.Flat

     Me.Button4.Image = Resources.order_icon1

     VB$t_struct$S0 = New Point(&H47A, -1)

     Me.Button4.Location = VB$t_struct$S0

     Me.Button4.Name = "Button4"

     VB$t_struct$S1 = New Size(&H38, &H22)

     Me.Button4.Size = VB$t_struct$S1

     Me.Button4.TabIndex = 6

     Me.Button4.UseVisualStyleBackColor = True

     Me.Button3.FlatAppearance.BorderSize = 0

     Me.Button3.FlatAppearance.MouseDownBackColor = Color.Transparent

     Me.Button3.FlatAppearance.MouseOverBackColor = Color.Transparent

     Me.Button3.FlatStyle = FlatStyle.Flat

     Me.Button3.Image = Resources.next_icon2

     VB$t_struct$S0 = New Point(&H30, 6)

     Me.Button3.Location = VB$t_struct$S0

     Me.Button3.Name = "Button3"

     VB$t_struct$S1 = New Size(&H4B, &H17)

     Me.Button3.Size = VB$t_struct$S1

     Me.Button3.TabIndex = 5

     Me.Button3.UseVisualStyleBackColor = True

     Me.Button2.FlatAppearance.BorderSize = 0

     Me.Button2.FlatAppearance.MouseDownBackColor = Color.Transparent

     Me.Button2.FlatAppearance.MouseOverBackColor = Color.Transparent

     Me.Button2.FlatStyle = FlatStyle.Flat

     Me.Button2.Image = Resources.back_icon2

     VB$t_struct$S0 = New Point(-10, 6)

     Me.Button2.Location = VB$t_struct$S0

     Me.Button2.Name = "Button2"

     VB$t_struct$S1 = New Size(&H4B, &H17)

     Me.Button2.Size = VB$t_struct$S1

     Me.Button2.TabIndex = 4

     Me.Button2.UseVisualStyleBackColor = True

     Me.Button1.FlatAppearance.BorderSize = 0

     Me.Button1.FlatAppearance.MouseDownBackColor = Color.Transparent

     Me.Button1.FlatAppearance.MouseOverBackColor = Color.Transparent

     Me.Button1.FlatStyle = FlatStyle.Flat

     Me.Button1.Image = Resources.Search_2_icon

     VB$t_struct$S0 = New Point(&H448, 1)

     Me.Button1.Location = VB$t_struct$S0

     Me.Button1.Name = "Button1"

     VB$t_struct$S1 = New Size(&H2C, &H20)

     Me.Button1.Size = VB$t_struct$S1

     Me.Button1.TabIndex = 2

     Me.Button1.UseVisualStyleBackColor = True

     VB$t_struct$S0 = New Point(&H163, &H3AD)

     Me.ProgressBar1.Location = VB$t_struct$S0

     Me.ProgressBar1.Name = "ProgressBar1"

     VB$t_struct$S1 = New Size(&H18E, 14)

     Me.ProgressBar1.Size = VB$t_struct$S1

     Me.ProgressBar1.TabIndex = 9

     Me.Label1.AutoSize = True

     Me.Label1.Font = New Font("Impact", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

     Me.Label1.ForeColor = SystemColors.ControlLightLight

     VB$t_struct$S0 = New Point(&H2E, &H3AA)

     Me.Label1.Location = VB$t_struct$S0

     Me.Label1.Name = "Label1"

     VB$t_struct$S1 = New Size(&H4E, 15)

     Me.Label1.Size = VB$t_struct$S1

     Me.Label1.TabIndex = 10

     Me.Label1.Text = "PROGRESS HERE"

     Dim VB$t_struct$S2 As New SizeF(6!, 13!)

     Me.AutoScaleDimensions = VB$t_struct$S2

     Me.AutoScaleMode = AutoScaleMode.Font

     Me.BackColor = SystemColors.ControlText

     VB$t_struct$S1 = New Size(&H4F8, &H3BC)

     Me.ClientSize = VB$t_struct$S1

     Me.Controls.Add(Me.Label1)

     Me.Controls.Add(Me.ProgressBar1)

     Me.Controls.Add(Me.Button6)

     Me.Controls.Add(Me.Button5)

     Me.Controls.Add(Me.Button4)

     Me.Controls.Add(Me.Button3)

     Me.Controls.Add(Me.Button2)

     Me.Controls.Add(Me.ComboBox1)

     Me.Controls.Add(Me.Button1)

     Me.Controls.Add(Me.WebBrowser1)

     Me.Icon = DirectCast(resources.GetObject("$this.Icon"), Icon)

     Me.Name = "Form1"

     Me.Text = "CroSearch 2"

     Me.ResumeLayout(False)

     Me.PerformLayout

   End Sub

   Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As WebBrowserNavigatingEventArgs)

     Me.ComboBox1.Text = Me.WebBrowser1.Url.ToString

   End Sub

   Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As WebBrowserProgressChangedEventArgs)

     Me.ProgressBar1.Maximum = CInt(e.MaximumProgress)

     Me.ProgressBar1.Value = CInt(e.CurrentProgress)

   End Sub

   ' Properties

   Friend Overridable Property Button1 As Button

     <DebuggerNonUserCode> _

     Get

       Return Me._Button1

     End Get

     <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _

     Set(ByVal WithEventsValue As Button)

       Dim handler As EventHandler = New EventHandler(AddressOf Me.Button1_Click)

       If (Not Me._Button1 Is Nothing) Then

         RemoveHandler Me._Button1.Click, handler

       End If

       Me._Button1 = WithEventsValue

       If (Not Me._Button1 Is Nothing) Then

         AddHandler Me._Button1.Click, handler

       End If

     End Set

   End Property

   Friend Overridable Property Button2 As Button

     <DebuggerNonUserCode> _

     Get

       Return Me._Button2

     End Get

     <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _

     Set(ByVal WithEventsValue As Button)

       Dim handler As EventHandler = New EventHandler(AddressOf Me.Button2_Click)

       If (Not Me._Button2 Is Nothing) Then

         RemoveHandler Me._Button2.Click, handler

       End If

       Me._Button2 = WithEventsValue

       If (Not Me._Button2 Is Nothing) Then

         AddHandler Me._Button2.Click, handler

       End If

     End Set

   End Property

   Friend Overridable Property Button3 As Button

     <DebuggerNonUserCode> _

     Get

       Return Me._Button3

     End Get

     <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _

     Set(ByVal WithEventsValue As Button)

       Dim handler As EventHandler = New EventHandler(AddressOf Me.Button3_Click)

       If (Not Me._Button3 Is Nothing) Then

         RemoveHandler Me._Button3.Click, handler

       End If

       Me._Button3 = WithEventsValue

       If (Not Me._Button3 Is Nothing) Then

         AddHandler Me._Button3.Click, handler

       End If

     End Set

   End Property

   Friend Overridable Property Button4 As Button

     <DebuggerNonUserCode> _

     Get

       Return Me._Button4

     End Get

     <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _

     Set(ByVal WithEventsValue As Button)

       Dim handler As EventHandler = New EventHandler(AddressOf Me.Button4_Click)

       If (Not Me._Button4 Is Nothing) Then

         RemoveHandler Me._Button4.Click, handler

       End If

       Me._Button4 = WithEventsValue

       If (Not Me._Button4 Is Nothing) Then

         AddHandler Me._Button4.Click, handler

       End If

     End Set

   End Property

   Friend Overridable Property Button5 As Button

     <DebuggerNonUserCode> _

     Get

       Return Me._Button5

     End Get

     <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _

     Set(ByVal WithEventsValue As Button)

       Dim handler As EventHandler = New EventHandler(AddressOf Me.Button5_Click)

       If (Not Me._Button5 Is Nothing) Then

         RemoveHandler Me._Button5.Click, handler

       End If

       Me._Button5 = WithEventsValue

       If (Not Me._Button5 Is Nothing) Then

         AddHandler Me._Button5.Click, handler

       End If

     End Set

   End Property

   Friend Overridable Property Button6 As Button

     <DebuggerNonUserCode> _

     Get

       Return Me._Button6

     End Get

     <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _

     Set(ByVal WithEventsValue As Button)

       Dim handler As EventHandler = New EventHandler(AddressOf Me.Button6_Click)

       If (Not Me._Button6 Is Nothing) Then

         RemoveHandler Me._Button6.Click, handler

       End If

       Me._Button6 = WithEventsValue

       If (Not Me._Button6 Is Nothing) Then

         AddHandler Me._Button6.Click, handler

       End If

     End Set

   End Property

   Friend Overridable Property ComboBox1 As ComboBox

     <DebuggerNonUserCode> _

     Get

       Return Me._ComboBox1

     End Get

     <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _

     Set(ByVal WithEventsValue As ComboBox)

       Dim handler As EventHandler = New EventHandler(AddressOf Me.ComboBox1_SelectedIndexChanged)

       Dim handler2 As KeyEventHandler = New KeyEventHandler(AddressOf Me.ComboBox1_KeyDown)

       If (Not Me._ComboBox1 Is Nothing) Then

         RemoveHandler Me._ComboBox1.SelectedIndexChanged, handler

         RemoveHandler Me._ComboBox1.KeyDown, handler2

       End If

       Me._ComboBox1 = WithEventsValue

       If (Not Me._ComboBox1 Is Nothing) Then

         AddHandler Me._ComboBox1.SelectedIndexChanged, handler

         AddHandler Me._ComboBox1.KeyDown, handler2

       End If

     End Set

   End Property

   Friend Overridable Property Label1 As Label

     <DebuggerNonUserCode> _

     Get

       Return Me._Label1

     End Get

     <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _

     Set(ByVal WithEventsValue As Label)

       Me._Label1 = WithEventsValue

     End Set

   End Property

   Friend Overridable Property ProgressBar1 As ProgressBar

     <DebuggerNonUserCode> _

     Get

       Return Me._ProgressBar1

     End Get

     <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _

     Set(ByVal WithEventsValue As ProgressBar)

       Me._ProgressBar1 = WithEventsValue

     End Set

   End Property

   Friend Overridable Property WebBrowser1 As WebBrowser

     <DebuggerNonUserCode> _

     Get

       Return Me._WebBrowser1

     End Get

     <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _

     Set(ByVal WithEventsValue As WebBrowser)

       Dim handler As WebBrowserNavigatingEventHandler = New WebBrowserNavigatingEventHandler(AddressOf Me.WebBrowser1_Navigating)

       Dim handler2 As WebBrowserProgressChangedEventHandler = New WebBrowserProgressChangedEventHandler(AddressOf Me.WebBrowser1_ProgressChanged)

       If (Not Me._WebBrowser1 Is Nothing) Then

         RemoveHandler Me._WebBrowser1.Navigating, handler

         RemoveHandler Me._WebBrowser1.ProgressChanged, handler2

       End If

       Me._WebBrowser1 = WithEventsValue

       If (Not Me._WebBrowser1 Is Nothing) Then

         AddHandler Me._WebBrowser1.Navigating, handler

         AddHandler Me._WebBrowser1.ProgressChanged, handler2

       End If

     End Set

   End Property

   ' Fields

   Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)

   <AccessedThroughProperty("Button1")> _

   Private _Button1 As Button

   <AccessedThroughProperty("Button2")> _

   Private _Button2 As Button

   <AccessedThroughProperty("Button3")> _

   Private _Button3 As Button

   <AccessedThroughProperty("Button4")> _

   Private _Button4 As Button

   <AccessedThroughProperty("Button5")> _

   Private _Button5 As Button

   <AccessedThroughProperty("Button6")> _

   Private _Button6 As Button

   <AccessedThroughProperty("ComboBox1")> _

   Private _ComboBox1 As ComboBox

   <AccessedThroughProperty("Label1")> _

   Private _Label1 As Label

   <AccessedThroughProperty("ProgressBar1")> _

   Private _ProgressBar1 As ProgressBar

   <AccessedThroughProperty("WebBrowser1")> _

   Private _WebBrowser1 As WebBrowser

   Private components As IContainer

End Class

Nema "Donate" gumba iz razloga što ne postoji već takva gotova kontrola u Toolbox-u, da je on samo odvuče na formu i gotovo.

Nemoj se obeshrabriti...super ti ide. Dali bi meni mogao napravit jedan...Da imam ja svoj :D

Najbolje od svega je šta ovo nije prvoaprilska šala.