مشکل با ابزارShortcutBar

[Restlesa]

سلام بر همگی دوستان عزیز
مشکلی که من دارم کار با ابزار ShortcutBar از سری ابزارهای Code Jocks هتسش.
مشکلم به این صورته که وقتی برنامه ام اجرا میشه به طور بیش فرض یه تب هم ساخته میشه که در این تب ابزار ShortcutBar فعال هتسش ولی وقتی که بر روی گزینه New کلیک می کنم و یه تب جدید ایجاد می کنم در تب جدید ابزار ShortcutBar فعال هستش اما در تب های قبلی این ابزار وجود نداره
مشکل از کجاست ؟؟؟؟ :متفکر::متفکر::متفکر:
لطفا راهنماییم کنید
باتشکر

[Restlesa]

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

دانلود سورس (http://www.persiangig.com/pages/download/?dl=http://restles.persiangig.com/document/Advanced%20URL%20Catalog.rar)

[Restlesa]

کسی نیست جواب مارو بده :گریه::گریه::گریه::گریه::گریه: :گریه::گریه:

[محسن واژدی]

سلام
اگر منظورتان تب های Document1,2,3 , ... است وقتی روی New کلیک میکنم مشکلی نیست یعنی همه تب ها به ترتیب ایجاد و درکنار هم نمایش داده میشدند

[Restlesa]

نه دوست عزيز
مشكل من با ابزار ShortcutBar هستش
به اين صورت كه وقتي بر روي گزينه New كليك مي كنم و يه تب جديد باز مي كنم اين ابزار(ShortcutBar) در تب قبلي از بين مي ره
به عكسي كه برات ضميمه كردم نگاه كن متوجه مشكلم ميشي

[محسن واژدی]

سلام علیکم

کد زیر را جایگزین فرم frmDocument کنید:

Dim FPB As frmPaneBookmark
Sub CreateShortcutBar()
Dim Item As ShortcutBarItem, ItemMail As ShortcutBarItem
Set FPB = New frmPaneBookmark
Set ItemMail = ShortcutBar.AddItem(1, "Bookmarks", FPB.hwnd)

ShortcutBar.Selected = ItemMail

End Sub

Private Sub Form_Load()
CreateShortcutBar
End Sub

Private Sub Form_Resize()
On Error Resume Next
TabControl.Height = Me.ScaleHeight
TabControl.Width = Me.ScaleWidth
ShortcutBar.Height = TabControl.Height - 310
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Unload FPB
Set FPB = Nothing
End Sub


مشکل این بود که در هر سند جدید باز هم فرم اصلی frmPaneBookmark بارگذاری میشود که طبیعتا" فقط یک نسخه بارگذاری میشود، برای اینکار اگر برای فرم بوک مارک در سند جدید یک کپی جدید تعریف کنید مشکل برطرف میشود

یاعلی