03-04-16, 09:07 PM
(آخر تعديل لهذه المشاركة : 03-04-16, 09:09 PM {2} بواسطة 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

