کار با مرورگر، مثل غیر فعال کردن کلیک راست و غیره .

[mds_boy]

با سلام
امروز ضمیمه ای براتون میزارم برای کار با مرورگر در وی بی و چه کنترل هایی روی آن میشه انجام داد.
امیدوارم مفید باشه.

[morteza561]

با سلام
امروز ضمیمه ای براتون میزارم برای کار با مرورگر در وی بی و چه کنترل هایی روی آن میشه انجام داد.
امیدوارم مفید باشه.

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

مشکلم اینه که من توی برنامم مجبورم از چند تا WebBrowser استفاده کنم. اما مشکل اینجاست که این کد فقط راست کلیک یک صفحه رو غیر فعال میکنه.

وقتی هم که از یه حلقه استفاده می کنم فقط آخرین عدد حلقه رو انتخاب می کنه. یعنی فقط مثلا راست کلیک دهمین صفحه رو غیر فعال می کنه.

واقعا هیچ راهی نیست؟ :گریه:

[morteza561]

من برنامم طوریه که مجبورم از چند تا کنترل WebBrowser همزمان اجرا کنم ولی مشکل اصلیم اینه که نباید به هیچ عنوان کاربر به آدرسی که WebBrowser داره ازش اطلاعات رو میخونه (یک URL) دسترسی داشته باشه.

به نظرتون چیکار کنم؟ از همه پرسیدم ولی جواب درست و حسابی نگرفتم. :افسرده:

ممنون .... :قلب:

[parselearn]

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

مشکلم اینه که من توی برنامم مجبورم از چند تا WebBrowser استفاده کنم. اما مشکل اینجاست که این کد فقط راست کلیک یک صفحه رو غیر فعال میکنه.

وقتی هم که از یه حلقه استفاده می کنم فقط آخرین عدد حلقه رو انتخاب می کنه. یعنی فقط مثلا راست کلیک دهمین صفحه رو غیر فعال می کنه.

واقعا هیچ راهی نیست؟ :گریه:

Dim CustomWB
Dim n As Integer, i As Integer

Private Sub chkContextMenu_Click()
For i = 0 To n
CustomWB(i).EnableContextMenus = Not CustomWB(i).EnableContextMenus
Next i
End Sub

Private Sub Form_Load()
n = 1
ReDim CustomWB(n) As WBCustomizer

For i = 0 To n
Set CustomWB(i) = New WBCustomizer
With CustomWB(i)
.EnableAccelerator vbKeyN, vbKeyControl
.EnableAccelerator vbKeyO, vbKeyControl

.EnableContextMenus = True
.EnableAllAccelerators = True

Set .WebBrowser = WebBrowser(i)
End With
Next i

WebBrowser(0).Navigate "http://www.google.com"
WebBrowser(1).Navigate "http://www.google.com"
End Sub