منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] كود خاص بال TextBox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] كود خاص بال TextBox (/showthread.php?tid=11741)

الصفحات: 1 2


كود خاص بال TextBox - x7rBI - 16-03-15

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


كيفكم ي حلوين


ابي كود

يوم اكتب على التكست بوكس كللمة ينقلني على موقع

مثلا

اكتب في التكست بوكس x7rBi ينقلني على موقع قوقل
بدون م اضغط انتر

وبس في امان الله


RE: كود خاص بال TextBox - احمد عبد الحكيم - 16-03-15

جرب هذا الكود اخى العزيز
PHP كود :
Dim address As String "http://www.stackoverflow.com"
Dim client As WebClient = New WebClient()
Dim reader As StreamReader = New StreamReader(client.OpenRead(address))
Textbox2.Text reader.ReadToEnd 



RE: كود خاص بال TextBox - x7rBI - 16-03-15

اخوي شوف الصورة
http://cdn.top4top.net/i_6880fdf6341.png

ي ليت تفهمني اكثر ع الكود


RE: كود خاص بال TextBox - سعود - 16-03-15

انقر على التلميح المولن بالاحمر سيطلب منك اختيار من بين المقترحات منها استدعاء Imports System.Net


RE: كود خاص بال TextBox - x7rBI - 16-03-15

طيب وش الكلمة الي اكتبها في ال TextBox عشان ينقلني


RE: كود خاص بال TextBox - سعود - 16-03-15

المعذرة اخي لم اقرا سؤالك لكن ردي بناء على الصورة
كود :
       Process.Start(TextBox1.Text)



RE: كود خاص بال TextBox - x7rBI - 16-03-15

اخوي شكلك مب فاهمني شوف انا ابي


RE: كود خاص بال TextBox - سعود - 16-03-15

البرنامج اللي بالشرح مش فاهم فكرته اساسا لذلك اعذرني
لكن ان كان القصد تنفيذ كود من غير النقر على زر الادخال Enter
فالامر هو بالتحقق من النص المكتوب ان كان يساوي نص معين معلوم ينفذ امر الاستعراض


RE: كود خاص بال TextBox - x7rBI - 16-03-15

اخوي الحين انا عندي textbox اوك يوم اكتب داخله x7rBi ينقلني على رابط قوقل بس


RE: كود خاص بال TextBox - سعود - 16-03-15

كود :
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text = "منتدى فيجوال بيسك للعرب" Then
            Process.Start("http://www.google.com/search?espv=2&q=" & TextBox1.Text)
        End If
    End Sub