16-05-19, 02:35 PM
وعليكم السلام ورحمة الله وبركاته
تفضل الكود
كود :
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
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية