لینک صفحه وب داخل سیستم(آف) به یک کلید در فرم

[mohsen_d]

سلام
می خواستم یک صفحه وبی که خوذم درست کردم برای معرفی خودم در برنامه قرار بدم به ط.ری که اگه یک کلید در فرم زده شده بره صفحه وب ر باز کنه
ممنونم

[dr_g]

با سلام

یک Label به فرمت اضافه کن و کدهای زیر رو وارد فرمت کن


Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
(Private Function LoadWebPage(psWebPage As String, psForm As Form
On Error Resume Next
If Len(psWebPage) <> 0 Then
ShellExecute psForm.hWnd, "open", psWebPage, "", "", 0
Else
Exit Function
End If
End Function
()Private Sub Label1_Click
On Error Resume Next
LoadWebPage "http://www.gware.co.sr", Me
End Sub
()Private Sub Form_Load
" Label1.Caption = "http://www.gware.co.sr
(Label1.ForeColor = QBColor(9
End Sub
(Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single
(Label1.ForeColor = QBColor(12
End Sub
(Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single
(Label1.ForeColor = QBColor(9
End Sub

[ehsan_ansaripoor]

دوست عزیز برای این کار از این ActiveX استفاده کن