منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة في المتصفح عند كتابة رابط يظهر خطأ .. مع صورة توضيحيه - نسخة قابلة للطباعة

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



مشكلة في المتصفح عند كتابة رابط يظهر خطأ .. مع صورة توضيحيه - المحب - 25-08-13

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

أحبتي .. عندي متصفح برمجته ولكن يحدث خطأ .. حينما اكتب رابط أي موقع واضغط ع انتر من الكيبورد يظهر لي هذا الخطأ كما في الصورة

ارجوا المساعدة ...

[ATTACH=CONFIG]3894[/ATTACH]


مشكلة في المتصفح عند كتابة رابط يظهر خطأ .. مع صورة توضيحيه - MSDOS - 25-08-13

جرب هذه الطريقة ورد لي بالنتيجة
كود :
Private Sub ToolStripComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ToolStripComboBox1.KeyPress
    If Asc(e.KeyChar) = Keys.Enter Then
        Dim wb As WebBrowser = TryCast(TabControl1.SelectedTab.Controls(0), WebBrowser)
        wb.Navigate(ToolStripComboBox1.Text)
    End If
End Sub



مشكلة في المتصفح عند كتابة رابط يظهر خطأ .. مع صورة توضيحيه - المحب - 26-08-13

MSDOS كتب :جرب هذه الطريقة ورد لي بالنتيجة
كود :
Private Sub ToolStripComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ToolStripComboBox1.KeyPress
    If Asc(e.KeyChar) = Keys.Enter Then
        Dim wb As WebBrowser = TryCast(TabControl1.SelectedTab.Controls(0), WebBrowser)
        wb.Navigate(ToolStripComboBox1.Text)
    End If
End Sub


شكرا اخي ولكن عجزت عن وضع الكود ؟؟ اين اضع الكود بالظبط ؟؟ لان حدثت معي مشاكل .. شكرا لك


مشكلة في المتصفح عند كتابة رابط يظهر خطأ .. مع صورة توضيحيه - MSDOS - 26-08-13

المحب كتب :شكرا اخي ولكن عجزت عن وضع الكود ؟؟ اين اضع الكود بالظبط ؟؟ لان حدثت معي مشاكل .. شكرا لك

هذا كود الحدث اللي فيه خطا مثل اللي في الصورة من أول Private Sub ToolStripComboBox1_KeyPress إلى End Sub

ورد لي بالنتيجة