سوال: بازشدن صفحات وب در برنامه ؟ [بایگانی]

saeed7474

پنج شنبه 13 مهر 1391, 08:09 صبح

سلام

میخوام یه فرم بسازم که هر کس فرم رو باز کرد مثل مرور گر لینک صفحه ای رو که میدم تو خودش باز کنه

چطور اینکارو کنم ؟

MohammadGh2011

پنج شنبه 13 مهر 1391, 08:50 صبح

سلام

میخوام یه فرم بسازم که هر کس فرم رو باز کرد مثل مرور گر لینک صفحه ای رو که میدم تو خودش باز کنه

چطور اینکارو کنم ؟

سلام عليکم
با استفاده از کامپوننت Webbrowser ميتونيد اين کار رو انجام بديد!
و با دستور:
webbrowser1.navigate "http://******.com"

موفق باشيد

R2du-soft

پنج شنبه 13 مهر 1391, 10:09 صبح

و میتونید از کد زیر هم استفاده کنید

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 Sub Command1_Click()
ShellExecute Me.hWnd, "Open", "http://www.xx.com", "", App.Path, 1
End Sub

SlowCode

پنج شنبه 13 مهر 1391, 10:28 صبح

و میتونید از کد زیر هم استفاده کنید

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 Sub Command1_Click()
ShellExecute Me.hWnd, "Open", "http://www.xx.com", "", App.Path, 1
End Sub

نه این نمیشه چون صفحه رو با مرورگر باز میکنه. ایشون گفتن:

مثل مرور گر لینک صفحه ای رو که میدم تو خودش باز کنه

جواب همونیه که MohammadGh2011 جان گفت.

R2du-soft

پنج شنبه 13 مهر 1391, 10:51 صبح

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

محسن واژدی

پنج شنبه 13 مهر 1391, 10:56 صبح

اوه!!!! درسته ، خوب برای این که صفحه تو فرم باز بشه از همون کد استفاده میکنیم ولی چه چیزی باید داخل فرم بزاریم که صفحه توش نمایش داده بشه؟
سلام علیکم
همانطور که آقای MohammadGh2011 هم اشاره داشتند کنترل Webbrowser

موفق باشید

SlowCode

پنج شنبه 13 مهر 1391, 10:58 صبح

با استفاده از کامپوننت Webbrowser ميتونيد اين کار رو انجام بديد!
توی لیست کامپوننت ها گزینه Microsoft internet controls رو انتخاب کن.

saeed7474

پنج شنبه 13 مهر 1391, 12:54 عصر

خیلییییی ممنون از کمکتون

با همون کامپوننت و کد درست شد :قلب:

saeed7474

پنج شنبه 13 مهر 1391, 14:00 عصر

راستی یک سوال دیگه

چجوری یه label رو لینک کنیم به یه صفحه وب ؟

ممنون

SlowCode

پنج شنبه 13 مهر 1391, 14:26 عصر

جواب این سوالتون همونیه که آقای r2du-soft گفتن، فقط کافیه کد رو توی رویداد کلیک لیبل بنویسی، یعنی:

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 Sub Label1_Click()
ShellExecute Me.hWnd, "Open", "http://www.barnamenevis.org.com", "", App.Path, 1
End Sub

MohammadGh2011

پنج شنبه 13 مهر 1391, 16:56 عصر

جواب این سوالتون همونیه که آقای r2du-soft گفتن، فقط کافیه کد رو توی رویداد کلیک لیبل بنویسی، یعنی:

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 Sub Label1_Click()
ShellExecute Me.hWnd, "Open", "http://www.barnamenevis.org.com", "", App.Path, 1
End Sub

و روش ديگه براي اين کار بدون استفاده از API:
Shell "Explorer.exe http://*****.com"

موفق باشيد

SlowCode

پنج شنبه 13 مهر 1391, 17:31 عصر

و روش ديگه براي اين کار بدون استفاده از API:
Shell "Explorer.exe http://*****.com"

موفق باشيد
بله هر دو روش درست هستن ولی اگه از api استفاده کنی، صفحه مورد نظر با مرورگر پیشفرض باز میشه اما با این کد صفحه با مرورگر IE باز میشه.

saeed7474

پنج شنبه 13 مهر 1391, 19:37 عصر

error : only comments may apper after End Sub,End function, or ent property

saeed7474

پنج شنبه 13 مهر 1391, 19:39 عصر

بله هر دو روش درست هستن ولی اگه از api استفاده کنی، صفحه مورد نظر با مرورگر پیشفرض باز میشه اما با این کد صفحه با مرورگر IE باز میشه.
نه مال من با فایرفاکس باز کرد !

saeed7474

پنج شنبه 13 مهر 1391, 19:45 عصر

کد API رو میشه یه تفسیر کوچیک بکنین ؟
متاسفانه ما رو درس API کم کارکردیم الانم فراموش کردم درصورتی که مهمه

MohammadGh2011

پنج شنبه 13 مهر 1391, 19:48 عصر

error : only comments may apper after End Sub,End function, or ent property

سلام عليکم
اين Error رو کجا مشاهده ميکنيد؟!

saeed7474

پنج شنبه 13 مهر 1391, 19:54 عصر

و روش ديگه براي اين کار بدون استفاده از API:
Shell "Explorer.exe http://*****.com"

موفق باشيد
البته این دستور فکر کنم همه کاره است من برای نمایش عکس ازش استفاده میکردم ..

--
تا کد رو مینویسم !

MohammadGh2011

پنج شنبه 13 مهر 1391, 20:19 عصر

البته این دستور فکر کنم همه کاره است من برای نمایش عکس ازش استفاده میکردم ..

--
تا کد رو مینویسم !
بله از اين کد براي اجراي فايل هم استفاده ميشود.

ولي هيچ خطايي نداره،دقيقا موقع اجرا اين ارور رو نشون ميده؟

saeed7474

پنج شنبه 13 مهر 1391, 20:26 عصر

یه پروژه جدید باز کردم همه کد ها رو پاک کردم اینو کاملا کپی کردم گذاشتم . درست شد ! ؟

saeed7474

پنج شنبه 13 مهر 1391, 20:27 عصر

میشه کد رو یه تحلیل بکنید تا بیشتر بفهمیم چی به چی شاید مشکل از تایپ و اشتباه قرار دادن بوده !

SlowCode

پنج شنبه 13 مهر 1391, 20:48 عصر

خوب شما حتما کد رو بعد از end sub نوشته بودین، اگه دقت کنی میفهمی.

نه مال من با فایرفاکس باز کرد !
خوب عزیزم مرورگر پیشفرض شما فایرفاکسه دیگه. منظورم مرورگر پیشفرضیه که شما تعیین کردین.

البته این دستور فکر کنم همه کاره است من برای نمایش عکس ازش استفاده میکردم ..
بله کدشون یکیه، ولی وقتی به برنامه explorer آدرس اینترنتی میدی خودش به طور خودکار با IE بازش میکنه.
این کد هم چیز خاصی نداره، ولی این صفحه (http://msdn.microsoft.com/en-us/library/windows/desktop/bb762153(v=vs.85).aspx)رو بخون تا بیشتر بفهمی.