[poor prince]

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

وشكرا

‏‫

[حريف برمجة]

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

وشكرا

‏‫

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

كود :

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

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

[Ahmed_Mansoor]

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

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

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 


[poor prince]

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

شكرا