بسم الله الرحمن الرحيم
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
السلام عليكم
الملف المفتوح بعد التعديل
انا استعمل هذا الكود
[HTML]DESKTOP = Shell.GetFolder(SHF_DESKTOP);
CheckBox1 = CheckBox.GetChecked("CheckBox1");
--CheckBox2 = CheckBox.GetChecked("CheckBox2");
if (CheckBox1 == true) then
ade = Current.."\\AutoPlay\\Audio\\1\\";
sd = Folder.DoesExist(ade);
if sd~=true then
Folder.Create(ade);
end
fileade = Dialog.FileBrowse(true, "اختر الملفات التي تريد إضافتها", _DesktopFolder, "MP3 File (*.MP3)|*.MP3|", "", "mp3", true, false);
if (fileade[1] ~= "CANCEL") and (fileade ~= nil) then
StatusDlg.Show();
for index, path in pairs(fileade) do
File.Copy(path, ade, true, true, false, true, nil);
end
StatusDlg.Hide();
Dialog.Message("شكرا", "لقد تم إضافة الملفات إلى الصفحة الأولى بنجاح", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end[/HTML]
لاظافة ملفات الى ليست بوكس لكن من المعلوم ان الملفات لا تظهر الى بعد اعدت تشغيل المشروع فكيف يتم تحديث الصفحة بعد انها النسخ وخروج الحوار الذي يعلن نهاية النسخ
اي عند الصغط على موافق تحدث الصفحة
كذلك كيف يمكن التخلص من رسالة الخطا عندما يكون الملف الذي يحمل رقم 1 فارغا
\\AutoPlay\\Audio\\1\\
كيف يمكن التحكم في اظهار واخفاء زر الاضافة عن طريقة CheckBox
بحيث اذا كان مفعل يفعل الزر
واذا كان العكس لايفعل
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
السلام عليكم
الملف المفتوح بعد التعديل
انا استعمل هذا الكود
[HTML]DESKTOP = Shell.GetFolder(SHF_DESKTOP);
CheckBox1 = CheckBox.GetChecked("CheckBox1");
--CheckBox2 = CheckBox.GetChecked("CheckBox2");
if (CheckBox1 == true) then
ade = Current.."\\AutoPlay\\Audio\\1\\";
sd = Folder.DoesExist(ade);
if sd~=true then
Folder.Create(ade);
end
fileade = Dialog.FileBrowse(true, "اختر الملفات التي تريد إضافتها", _DesktopFolder, "MP3 File (*.MP3)|*.MP3|", "", "mp3", true, false);
if (fileade[1] ~= "CANCEL") and (fileade ~= nil) then
StatusDlg.Show();
for index, path in pairs(fileade) do
File.Copy(path, ade, true, true, false, true, nil);
end
StatusDlg.Hide();
Dialog.Message("شكرا", "لقد تم إضافة الملفات إلى الصفحة الأولى بنجاح", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end[/HTML]
لاظافة ملفات الى ليست بوكس لكن من المعلوم ان الملفات لا تظهر الى بعد اعدت تشغيل المشروع فكيف يتم تحديث الصفحة بعد انها النسخ وخروج الحوار الذي يعلن نهاية النسخ
اي عند الصغط على موافق تحدث الصفحة
كذلك كيف يمكن التخلص من رسالة الخطا عندما يكون الملف الذي يحمل رقم 1 فارغا
\\AutoPlay\\Audio\\1\\
كيف يمكن التحكم في اظهار واخفاء زر الاضافة عن طريقة CheckBox
بحيث اذا كان مفعل يفعل الزر
واذا كان العكس لايفعل
تعليق