منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
لدي استفسار عن طريقة فتح موقع بناء على تكست في الفيجوال بيسك
مثلا لدي تكست وكتبت فيه اسم موقع كـ yahoo او google
وبعد ضغط على انتر
يضيف لها http//: و .com ثم يفتح الموقع على المتصفح

وشكرا

‏‫

(03-04-16, 01:59 AM)poor prince كتب : [ -> ]السلام عليكم
لدي استفسار عن طريقة فتح موقع بناء على تكست في الفيجوال بيسك
مثلا لدي تكست وكتبت فيه اسم موقع كـ yahoo او google
وبعد ضغط على انتر
يضيف لها http//: و .com ثم يفتح الموقع على المتصفح

وشكرا

‏‫

بالنسبة للسوال الاول حله كالتالي : نفترض التكست باسم Text1

كود :

Text1.Text = "http//:" & Text1.Text & ".com"

بالنسبة للسوال الثاني فتح الرابط على المتصفح ان شاء الله احد الاخوة يطرح حله

أهلا أخي الكريم , هذا كود فتح موقع في المتصفح :

ضع هذا الجزء في أعلى كود الفورم :

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 

شكرا لكم على المساعده
هذا بالضبط ما كنت ابحث عنه

شكرا Smile

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

poor prince

حريف برمجة

Ahmed_Mansoor

poor prince