لینک به سایت در vb6 [بایگانی]

ali_kolahdoozan

شنبه 18 فروردین 1386, 00:22 صبح

چطوری کاری کنم توی vb6 که وقتی یک کلید رو کلیک کردیم مثلا بره توی یک سایت

حامد مصافی

شنبه 18 فروردین 1386, 00:31 صبح

Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Private Const SW_MINIMIZE = 3
Private Const SW_MAXIMIZE = 6
Private Const SW_NORMAL = 1
Private Const SW_SHOWDEFAULT = 10

Private Declare Function ShellExecuteA Lib "shell32.dll" (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 Sub Command1_Click()
ShellExecuteA hwnd, "open", "http://www.barnamenevis.org/forum", vbNullString, "", SW_NORMAL
End Sub

mehdi_RM

دوشنبه 20 فروردین 1386, 23:19 عصر

این دستور برا من جواب نمی ده

دستور دیگه ای نیست؟
من قبلا دیده بودم ولی یادم رفته؟

حامد مصافی

سه شنبه 21 فروردین 1386, 16:27 عصر

یعنی چی کار نمی کنه؟
اگر خطا میده لطفاً متن خطا رو ذکر کنید

mehdi_RM

پنج شنبه 23 فروردین 1386, 22:00 عصر

این خط رو خطا می گیره

ShellExecuteA hwnd, "open", "http://www.barnamenevis.org/forum", vbNullString, "", SW_NORMAL

S_VB.max

جمعه 24 فروردین 1386, 09:08 صبح

کدی که آقای مصافی گذاشتند هیچ مشکلی نداره ، شما یکبار دیگه اونا کپی و امتحان کن انشاالله درست می شه در ضمن اگر بازم خطا داد پیغام خطا را هم بنویس

ali_kolahdoozan

جمعه 24 فروردین 1386, 11:28 صبح

من خودم این تاپیک رو ساختم با کد ایشان کارم راه افتاد محصولم هم رفت توی بازار شما هنوز دارید سرش دعوا میکنید؟

mehdi_RM

جمعه 24 فروردین 1386, 13:22 عصر

خطاش رفع شد
چجوری میشه یه صفحه html رو از داخل هارد خودم بهش بدم
؟
چند بار امتحان کردم نشد!!!!!!!

S_VB.max

جمعه 24 فروردین 1386, 14:17 عصر

خطاش رفع شد
چجوری میشه یه صفحه html رو از داخل هارد خودم بهش بدم
؟
چند بار امتحان کردم نشد!!!!!!!

تو کد بالا به جای http://www.barnamenevis.org/forum مسیر فایل html را بده

Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Private Const SW_MINIMIZE = 3
Private Const SW_MAXIMIZE = 6
Private Const SW_NORMAL = 1
Private Const SW_SHOWDEFAULT = 10

Private Declare Function ShellExecuteA Lib "shell32.dll" (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 Sub Command1_Click()
ShellExecuteA hwnd, "open", "c:\1.html", vbNullString, "", SW_NORMAL
End Sub