Programalama > VISUAL BASIC

Etiketler: kendi, web, browserını, yap

Ort. 5
Puan ver:
Public Class Form1
    Dim anasayfa = "http://www.vgaeml.k12.tr"
    Dim girilenadres = (TextBox.Text)
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

        Dim y1, y2 As Integer
        y1 = girilenadres.indexof("www.mynet.com", 0, girilenadres.length)
        y2 = girilenadres.indexof("www.google.com", 0, girilenadres.lenght)
        If (RadioButton2.Checked) Then
            If y1 <> -1 Or y2 <> -1 Then
                MsgBox("bu site açılamaz")


            End If

        End If

        ToolStripProgressBar1.Value = 0
        Timer1.Start()
        WebBrowser1.Navigate(ToolStripTextBox1.Text)
        TextBox.items.add(TextBox.Text)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ToolStripStatusLabel1.Text = "Form Yüklendi"
        Timer1.Stop()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ToolStripProgressBar1.Value = ToolStripProgressBar1.Value + 10
        ToolStripStatusLabel1.Text = ToolStripTextBox1.Text + " Sayfa yükleniyor"
        If ToolStripProgressBar1.Value = 100 Then
            ToolStripProgressBar1.Value = 0
            ToolStripProgressBar1.Visible = False


        End If
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Timer1.Stop()
        ToolStripStatusLabel1.Text = ToolStripTextBox1.Text + " Sayfa yüklendi"

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        WebBrowser1.GoHome()



    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        WebBrowser1.GoForward()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        WebBrowser1.GoBack()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.Stop()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Refresh()

    End Sub

    Private Sub ToolStripProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripProgressBar1.Click

    End Sub
End Class


Yorumlar                 Yorum Yaz
Ali-Can-Kilinc (0) Sakıncalı Yorum 06 August 09:27
Yalnız Form'a hangi araçları ekleyeceğimizi de belirtirseniz sevinirim. Çünkü kodların içinden tek tek seçip de forma yerleştirmek zor olabilir.
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.