منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كود فتح صفحة من صفحات مبرمجة في webbrowser تلقائيا

السلام عليكم ورحمة الله

انا عايز نفس الي موجود في الكود بس ينفذ امر تاني
الامر هو ان هو يفتح صفحة مختلفة في webbrowser1[b] كل لما يضغط علي button1[/b]
الصفحات زي جوجل او فيسبوك او ياهو .......الخ.

كود :

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

        TextBox1.Text = Int(Rnd() * 6)

        Select Case TextBox1.Text

            Case 0

                TextBox1.Text = "1330-1813-5332-3018-4123-4267"

            Case 1

                TextBox1.Text = "1330-1167-8857-3801-9962-4540"

            Case 2

                TextBox1.Text = "1330-1182-3585-9477-5524-4839"

            Case 3

                TextBox1.Text = "1330-1813-5332-3018-4123-4267"

            Case 4

                TextBox1.Text = "1330-1011-6547-2116-7061-1195"

            Case 5

                TextBox1.Text = "1330-1430-9860-3108-6588-8053"

        End Select

    End Sub

ولو في كود تاني عادي مش شرط نفس الكود

وعليكم السلام ورحمة الله وبركاته

تفضل الكود

كود :

       TextBox1.Text = Int(Rnd() * 6)

        Select Case TextBox1.Text

            Case 0

                WebBrowser1.Navigate("http://www.google.com/")

            Case 1

                WebBrowser1.Navigate("http://www.facebook.com/")

            Case 2

                WebBrowser1.Navigate("http://www.twitter.com/")

            Case 3

                WebBrowser1.Navigate("http://www.vb4arb.com/")

            Case 4

                WebBrowser1.Navigate("http://www.vb4arb.com/")

            Case 5

                WebBrowser1.Navigate("http://www.vb4arb.com/")

        End Select

تحياتى لك

وتمنياتى لك التوفيق

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

soloxocf1

elgokr