View Full Version : ساخت لينك در ويژوال بيسيك
shahram_g
جمعه 24 مهر 1388, 21:54 عصر
سلام.
چطوري و با چه دستوري مي تونم در ويژوال بيسيك وقتي روي يك label كليك مي كنيم وارد يك سايت مثل google يا هر سايت ديگر شويم؟
ahmadflasher
جمعه 24 مهر 1388, 22:13 عصر
Shell ("EXPLORER http://www.web2fa.com"), vbMaximizedFocus
mehdigholami
یک شنبه 24 شهریور 1392, 08:58 صبح
دوستان چطور میشه به جای آدرس سایت آدرس یک فیلد رو داد مثلا آدرس یک تکست باکس که آدرس سایت توی اون ذخیره شده
mmssoft
یک شنبه 24 شهریور 1392, 10:09 صبح
این روش وب سایت رو توسط اینترنت اکسپلورر باز میکنه :
Shell ("EXPLORER " & Text1.Text), vbMaximizedFocus
ولی با روش زیر وبسایت با مرورگر پیشفرض ویندوز باز میشه :
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
Dim A&
A& = ShellExecute(Me.hwnd, "Open", Text1.Text, "", App.Path, 1)
mehdigholami
یک شنبه 24 شهریور 1392, 10:23 صبح
ممنون دوست عزیز ولی وقتی من این کد رو اجرا میکنم سیستم من خطا میده ممکنه که ایراد از سیستم من باشه؟110706http://barnamenevis.org/images/misc/pencil.png
mmssoft
یک شنبه 24 شهریور 1392, 10:32 صبح
اگه میشه کل کدتون رو بذارید تا ببینم...
mehdigholami
یک شنبه 24 شهریور 1392, 10:43 صبح
من یه نمونه درست کردم بر اساس کد شما که جواب نداد همون رو واستون میزارم
mmssoft
یک شنبه 24 شهریور 1392, 10:46 صبح
دوست عزیز این چه فایلی هست گذاشتید؟؟ سورس برنامه رو بذارید...
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.