+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كود فتح صفحة من صفحات مبرمجة في webbrowser تلقائيا (/showthread.php?tid=29626)
كود فتح صفحة من صفحات مبرمجة في webbrowser تلقائيا - soloxocf1 - 16-05-19
السلام عليكم ورحمة الله
انا عايز نفس الي موجود في الكود بس ينفذ امر تاني
الامر هو ان هو يفتح صفحة مختلفة في webbrowser1[b] كل لما يضغط علي button1[/b]
الصفحات زي جوجل او فيسبوك او ياهو .......الخ.
الامر هو ان هو يفتح صفحة مختلفة في 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ولو في كود تاني عادي مش شرط نفس الكود
RE: كود فتح صفحة من صفحات مبرمجة في webbrowser تلقائيا - elgokr - 16-05-19
وعليكم السلام ورحمة الله وبركاته
تفضل الكود
كود :
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تحياتى لك
وتمنياتى لك التوفيق