باز شدن سایت در پنجره جدید

[امین مستانی]

سلام خدمت دوستان گرامی

من در برنامه ام یک WebBrowser گذاشتم که با دستور Sendkeys {TAB} روی یک لینک میره و با دستور Sendkeys {ENTER} روی اون لینک کلیک میکنه و این سایت در یک صفحه مرورگر IE جدا باز میشه . من میخوام که اون سایت توی همون WebBrowser برنامه باز بشه ...

آیا راهی برای این کار هست ؟؟

قبلا از همکاری شما ممنونم

یا علی

[امین مستانی]

سلام

دوستان کسی نظری نداره ؟؟

[محسن واژدی]

سلام علیکم
برای تغییر همه targetهای صفحه از _blank (صفحه جدید) به _parent (صفحه جاری) میتوانیم از کد زیر استفاده کنیم:
Private Sub Command1_Click()
Dim oLink As Object
For Each oLink In WebBrowser1.Document.getElementsByTagName("a")
oLink.Target = "_parent"
Next
End Sub

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

موفق باشید

[امین مستانی]

ممنون از پاسخ کاملتون
در مورد سایت مدنظر من کار نکرد :افسرده: ولی در سایت های دیگر کار کرد .

خیلی ممنون