+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] فتح موقع عن طريق ادخال text (/showthread.php?tid=15321)
فتح موقع عن طريق ادخال text - poor prince - 03-04-16
السلام عليكم
لدي استفسار عن طريقة فتح موقع بناء على تكست في الفيجوال بيسك
مثلا لدي تكست وكتبت فيه اسم موقع كـ yahoo او google
وبعد ضغط على انتر
يضيف لها http//: و .com ثم يفتح الموقع على المتصفح
وشكرا
RE: فتح موقع عن طريق ادخال text - حريف برمجة - 03-04-16
(03-04-16, 01:59 AM)poor prince كتب : السلام عليكم
لدي استفسار عن طريقة فتح موقع بناء على تكست في الفيجوال بيسك
مثلا لدي تكست وكتبت فيه اسم موقع كـ yahoo او google
وبعد ضغط على انتر
يضيف لها http//: و .com ثم يفتح الموقع على المتصفح
وشكرا
بالنسبة للسوال الاول حله كالتالي : نفترض التكست باسم Text1
كود :
Text1.Text = "http//:" & Text1.Text & ".com"بالنسبة للسوال الثاني فتح الرابط على المتصفح ان شاء الله احد الاخوة يطرح حله
RE: فتح موقع عن طريق ادخال text - Ahmed_Mansoor - 03-04-16
أهلا أخي الكريم , هذا كود فتح موقع في المتصفح :
ضع هذا الجزء في أعلى كود الفورم :
PHP كود :
Private Declare Function ShellExecuteA Lib "shell32.dll" ( _
ByVal hWnd As IntPtr, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Integer) As IntPtr
وهذا الجزء ضعه تحت الكود الذي وضعه الأخ "حريف برمجة" :
PHP كود :
ShellExecuteA(Me.hWnd, "open", Text1.Text, "", "", 4)
ليصبح كود الفورم كاملا مع كود الأخ "حريف برمجة" بهذا الشكل :
PHP كود :
Private Declare Function ShellExecuteA Lib "shell32.dll" ( _
ByVal hWnd As IntPtr, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Integer) As IntPtr
Private Sub Command1_Click()
Text1.Text = "http//:" & Text1.Text & ".com"
ShellExecuteA(Me.hWnd, "open", Text1.Text, "", "", 4)
End Sub
RE: فتح موقع عن طريق ادخال text - poor prince - 04-04-16
شكرا لكم على المساعده
هذا بالضبط ما كنت ابحث عنه
شكرا
