استفاده از خاصیت اسناد اخیر ابزار CommandBar

[Restlesa]

سلام بر همگی دوستان عزیز
همون طوری که همه دوستان می دونن با استفاده از خاصیت RecentFileList ابزار CommandBar میشه اسنادی رو که اخیرا با برناممون باز کردین در قسمت Recent Documents لیست کنیم
می خواستم از دوستانی که از خاصیت استفاده کرده ان بپرسم چه طوری می تونم هنگام باز کزدن سند اون رو به Recent Document اضافه کنم ؟؟؟؟

[Restlesa]

كسي نيست جواب مارو بده ؟؟؟

[محسن واژدی]

سلام علیکم
خیلی متوجه منظورتان نشدم در صورت امکان بیشتر توضیح دهید

موفق باشید

[setroyd]

Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal pv As String)
Private Sub Form_Load()
Call SHAddToRecentDocs(2, vbNullString) ' in kole recent documents ro pak mikone
Call SHAddToRecentDocs(2, "c:\boot.ini") 'in be recent documents ezafe mikone file ro
End Sub
جلوی هر کدومش برات نوشتم چیکار میکنه c:\boot.ini جای این هر ادرسی بزاری add میکنه . تشکر یادت نره دوست عزیز :چشمک:

[Restlesa]

سلام دوست عزیز
از جوابت ممنونم ولی باید بگم که کار نکرد.یعنی هیچ فایلی رو نتونستم Add کنم

[محسن واژدی]

سلام
Private Declare Function SHAddToRecentDocs _
Lib "Shell32.dll" (ByVal uFlags As Long, _
ByVal PV As String) As Long

Const SHARD_PATH As Long = 2

Private Sub Form1_Load()
SHAddToRecentDocs SHARD_PATH, "C:\MDoc\SampleFile.Txt"

End Sub

تستش کردم صحیح بود
موفق باشید

[محسن واژدی]

سلام
Private Declare Function SHAddToRecentDocs _
Lib "Shell32.dll" (ByVal uFlags As Long, _
ByVal PV As String) As Long

Const SHARD_PATH As Long = 2

Private Sub Form1_Load()
SHAddToRecentDocs SHARD_PATH, "C:\MDoc\SampleFile.Txt"

End Sub

تستش کردم صحیح بود
موفق باشید

[setroyd]

دوست عزیز امکان کار نکردنش 0 احتما اشتباه کردی در تغییر پارامترها

[Restlesa]

به خدا برای من کار نمی کنه
مشکلم از کجاست ؟؟؟؟
:گریه::گریه::گریه::گریه:

SHAddToRecentDocs SHARD_PATH, App.Path & "\Setting.txt"

[محسن واژدی]

سورسی که در پست 7 قرار دادم %100 جواب داد به احتمال زیاد مشکل از ویندوزتون است
حتی در یوزر های محدود شده هم عمل میکند

موفق باشید

[Restlesa]

آیا راه دیگری به جز اینی که در پست 7 قرار دادید وجود داره یا نه ؟؟؟؟

[Restlesa]

کسی نیست مشکل مارو بر طرف کنه ؟؟؟
:گریه::گریه::گریه:

[محسن واژدی]

سلام علیکم
فقط از این تابع استفاده میشود، البته میتوانید برای اطلاع از صحت ویندوز این تابع را در یک سیستم دیگر یا یک ویندوز مجازی تست کنین ممکنه مشکل از ویندوزتون باشه چون همزمانی که بنده این تابع را اجرا میکنم میانبری را بدون هیچ مانعی در RecentDocs ایجاد میکند

موفق باشید

[Restlesa]

دوباره سلام آقا محسن عزيز
تابعي رو كه برام گذاشتين رو روي چندين سيستم با ويندوزهاي مختلف امتحان كردم اما متاسفانه در هيچ كدوم از آنها كار نكرد
اما بعد از جستجوهاي بسيار در خود فايل كمكي ابزار CodeJock متوجه شدم كه بايد از كد زير استفاده كنم اما متاسفانه اين كد هم حلال مشكلم نشد
CommandBars.RecentFileList.Add "C:\Untitled.txt"

وقتي از اين كد استفاده مي كنم فقط نام Untitled.txt به جاي محتواي اون در قسمت اسناد اخيرم درج ميشه
تروبه خدا كمكم كن براي تكميل كردن پروژه اخر ترم بهش نياز دارم
ممنونم دوست عزيز

[Restlesa]

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

[محسن واژدی]

وقتي از اين كد استفاده مي كنم فقط نام Untitled.txt به جاي محتواي اون در قسمت اسناد اخيرم درج ميشه


سلام علیکم ببخشید سوالتون رو ندیده بودم، البته اینگونه که بنده از توضیحاتتون برداشت کردم میخواهید فایل ایجاد شده تان در recentdocs به نوعی کپی فایل اصلی باشد، اگر اینگونه است دستوراتی که قبلا" توضیحاتی در مورد آنها داشتیم فقط میانبری از فایل های مورد نظر را در این فولدر ایجاد میکنند که فقط ارجاع دهنده به فایل اصلی هستند به عبارتی از روی فایل اصلی کپی نمیگیرند شاید این بخاطر زمانگیر بودن عملیات کپی باشد علل الخصوص در مورد فایل هایی که دارای حجم قابل توجهی هستند

[Restlesa]

شايد همين طوري باشه كه شما ميگين ولي همون طوري مه گفتم من يه Recent Doument شبيه به برنامه Office 2007 مي خوام
آخه ظاهر برنامه ام شبيه به برنامه Office 2007 هستش
مي توني سورسش رو برام بزاري ؟؟؟؟

[محسن واژدی]

متاسفانه کامپوننت منوی office 2007 را در اختیار ندارم

[setroyd]

دوست عزیز بگو چی میخوای دقیقا تا کمکت کنم زیادم عصبانی نشو واست خوب نیست هر چی رو که میخوای مو به مو بگو تا ببینم کاری ازم بر میاد یا نه :چشمک:

[Restlesa]

سلام دوست عزیز
تو تاپیک 1 سوالم رو مطرح کردم ولی بازم به صورت خلاصه میگم
می خوام قسمت Recent Document برنامه Office 2007 رو تو برنامه ام شبیه سازی کنم ممنونت می شم اگه تو بتونی مشکلم رو برطرف کنی
عصبانی شدن هم داره دوست عزیزم اگرم شما به مدت 2 ماه دنبال سوالت بگردی ولی هیچ کس یا اهمیت نده یا بلد نباشه عصبانی میشدی