إعـــــــلان
تقليص
لا يوجد إعلان حتى الآن.
إستضافة برنامج وعرضة داخل التطبيق
تقليص
هذا الموضوع مغلق.
X
X
-
تمام تمام تنتقل الكتابة العربية بشكل صحيح عندما تكتب يدويا كما فى شرحك فى العنصر Grid
أما إذا كانت مضافة للعنصر Grid عن طريق ملئ العنصر بالتكرار أو بواسطة أمر التكرار لا يتم نسخة فى الإكسيل
بشكل صحيح فيكون رموز غير مفهومة
كود:-- for i = 1,3000 do for h = 0 ,10 do Grid.SetCellText("Grid1", i, h, "عبووود"..i, true); end end
تعليق
-
المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركةريثما تنصب الاوفيس ... الحل يكمن في التساؤل
لماذا يدوي ينسخ بشكل صحيح و العكس لا ؟؟ الفارق الوحيد هو
توجه المؤشر و من وجهة نظري يكون حلا منطقبا
----
مع ملاحظة اذ كنت تستعمل في برامجك الباركود أثناء تسجيل مخزونات مثلا أو عملية بيع وجب ارجاع المؤشر لغير العربية
موفق أخي
جزاك الله خيرا أخى تمت التجربة بالتركيز بالماوس على الخلية وتغيير لغة الإدخال فقط إلى العربية وتمت بنجاح
وأيضا كود تغيير أو تبديل لغة الإدخال فكرتة رائعة جدا
شكرا جزيلا
تعليق
-
المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة02 - فعل الاضافة luacom و الاضافة clipboard
04 - ضع زر آخر من خلاله سسننقل محتوى الـ grid إلى الايكسل بسرعة
و لاحظ تركت الايكسل مفتوح للتتم المعاينة و تركت الأسطر العلوية شاغرة
لأنها هي التي ستحمل معلومات و عنوان المطبوع
كود PHP:grid.selectall("grid1");
grid.editcopy("grid1");
result = clipboard.gettext();
----------------------------------------------
local excel = luacom.createobject("excel.application")
excel.visible = true
local wb = excel.workbooks:add()
local ws = wb.worksheets(1)
grid.selectall("grid1");
grid.editcopy("grid1");
rangeref = "a2:j2999"
local borderlist = ws:range(rangeref)
borderlist:select();
ws:paste()
و معها عن الاضافة clipboard
ليصبح الكود المسؤول عن نقل محتوى خلابا GRID
هو :
كود PHP:DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
Grid.SelectAll("Grid1");
Grid.EditCopy("Grid1");
----------------------------------------------
local excel = luacom.CreateObject("Excel.Application")
excel.Visible = true
local wb = excel.Workbooks:Add()
local ws = wb.Worksheets(1)
RangeRef = "A2:j2999"
local BorderList = ws:Range(RangeRef)
BorderList:select();
ws:Paste()
تعليق
مواضيع تهمك
تقليص
المنتدى: القسم العام نشرت بواسطة: Reem2Rabeh الوقت: 04-23-2025 الساعة 04:27 PM
المنتدى: ضبط وتوكيد الجودة نشرت بواسطة: HeaD Master الوقت: 04-15-2025 الساعة 09:30 AM
المنتدى: التصنيع والانتاج نشرت بواسطة: HeaD Master الوقت: 04-11-2025 الساعة 01:08 PM
المنتدى: القسم العام نشرت بواسطة: نوال الخطيب الوقت: 03-19-2025 الساعة 03:07 AM
المنتدى: الكمبيوتر والإنترنت نشرت بواسطة: عوض السوداني الوقت: 03-18-2025 الساعة 07:22 AM
تعليق