PDA

View Full Version : ساخت لينك در ويژوال بيسيك



shahram_g
جمعه 24 مهر 1388, 22:54 عصر
سلام.
چطوري و با چه دستوري مي تونم در ويژوال بيسيك وقتي روي يك label كليك مي كنيم وارد يك سايت مثل google يا هر سايت ديگر شويم؟

ahmadflasher
جمعه 24 مهر 1388, 23: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 صبح
دوست عزیز این چه فایلی هست گذاشتید؟؟ سورس برنامه رو بذارید...