محتاج كود مهم جدا لأضعه داخل زرار أذا ضغط عليه يخرج لى ملف ورد محفوظ مسبقا عليه بيناتى

أبحث بالقسم عن كلمة Resources

هذا الكود تضعة ككود عام ..

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

وهذا في زر الأمر أو أي شيء أخر :

 Dim ret&
	ret = ShellExecute(Me.hwnd, "Open", _
		  "D:\fgd.doc", _
		"", "", 1)

لا حض وجود "D:\fgd.doc" ضع بدالها مسار ملف الوورد الذي لديك ... + الصيغة مثل " doc " .

ملاحضة هامة :

هذا الكود تستطيع فتح أي ملف كان على الكمبيوتر مهما كان نوع وصيغة الملف ...

تقبل خالص تحياتي AL_MOKNA

لمشاهدة المثال في المرفقات

كلمة السر لفك الضغط

AL_MOKNA

____.rar