PDA

View Full Version : سوال: باز كردن لينك يك سايت توسط برنامه و نمايش در مرورگر


ebrahimv
جمعه 25 فروردین 1391, 09:43 صبح
سلام چطوري ميتونم مثلا سايت google.com رو با كليك بر روي يك كامند تو مرورگر نشون بدم؟
محسن واژدی
جمعه 25 فروردین 1391, 10:45 صبح
سلام
دستوری مشابه زیر:

Private Sub Command1_Click()
WebBrowser1.Navigate "http://google.com"
End Sub


موفق باشید
ebrahimv
جمعه 25 فروردین 1391, 10:51 صبح
سلام
دستوری مشابه زیر:

Private Sub Command1_Click()
WebBrowser1.Navigate "http://google.com"
End Sub


موفق باشید
من مي خوام مرورگر ويندوز اجرا بشه نه داخل برنامم
محسن واژدی
جمعه 25 فروردین 1391, 11:49 صبح
در ساده ترین حالت میتوانید از کدی مشابه زیر استفاده کنید:

Private Sub Command1_Click()
Shell "explorer http://google.com", vbNormalFocus
End Sub


موفق باشید
ebrahimv
سه شنبه 29 فروردین 1391, 11:21 صبح
اين دستور ادرس هاي كه به صورت زير هست باز نميكنه
http://sat.br.tc/showthread.php?t=583414


Shell "explorer http://sat.br.tc/showthread.php?t=583414 (http://google.com/)", vbNormalFocus
محسن واژدی
سه شنبه 29 فروردین 1391, 12:07 عصر
اين دستور ادرس هاي كه به صورت زير هست باز نميكنه
http://sat.br.tc/showthread.php?t=583414


Shell "explorer http://sat.br.tc/showthread.php?t=583414 (http://google.com/)", vbNormalFocus

سلام
کد زیر را در مادول کد یا فرم کپی کنید:
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
Public Function OpenURL(sURL$) As Long
OpenURL = ShellExecute(0, "open", sURL$, vbNullString, App.Path, vbNormalFocus)
End Function


نمونه استفاده:
Private Sub Command1_Click()
OpenURL "http://sat.br.tc/showthread.php?t=583414"
End Sub

موفق باشید