إعـــــــلان

عبد الهادي بهاب · 02-08-2016, 12:49 AM

المشاركة الأصلية بواسطة محمد سامر مشاهدة المشاركة

السلام عليكم ورحمة الله وبركاته،،،
السلام لكل إخواني في هذا المنتدى... وأذكركم بقول النبي

" من لم يشكر الناس لم يشكر الله"
أشكر كل إخواني في هذا المنتدى خاصة أ ثامر ....أخ عبود...أخ ياسر... وكل الناس المحترمين لكي لا أنسى أحد.
ولكي لا أُطيل.......

هل من الممكن عمل copy للأسماء الموجوده في ال listbox بعد تخزينها...بحيث أستطيع لصقها خارج البرنامج في ملف وورد أو إكسل
.. ...ولو تعثر الأمر ولم يفلح هل من الممكن عمل زر يطبع هذه الأسماء الموجوده ب listbox
وجزاكم الله خيرا

ملف مفتوح للإطلاع
http://www.mediafire.com/?62n0bn2j3ceuv8v

بداية .....اذا اردنا التعامل مع الوورد او الاسكل ....لزمك اضافة luacom
لكن دعنا نلجأ الى الحل البسيط جدا وهو حفظ القائمة في ملف تكتس بسيط جدا txt

في زر ضع هذا الكود ........و ستجد الملف في القرص C

كود PHP:


list = {};

for i=1, ListBox.GetCount("ListBox1") do

Table.Insert(list, i, ListBox.GetItemText("ListBox1", i));

end



for i,n in pairs(list) do

TextFile.WriteFromTable("C:\\MyFile.txt", list, false);

end

في انتظار حلول افضل
تقبل تحياتي

عبد الهادي بهاب · 02-08-2016, 01:02 AM

حل أخر ..و الان نحفظ قائمة الليسبوكس بصيغة rtf او قريبة للوررد
ما عليك سوى اضافة عنصر RichText و اجعل خلفيته بيضاء مثلا لكن لا تتركها غير فعالة اي tranparent
ثم اجعله مخفيا لانه لا يهم فهمر عنصر وسيط للحفظ فقط

في زر اجعل هذا الكود و ستجد القائمة في القرص c

كود PHP:


list = "";

for i=1, ListBox.GetCount("ListBox1") do

list = list .."\r\n"..ListBox.GetItemText("ListBox1", i);

end



RichText.SetText("RichText1", list, false);

RichText.SaveToFile("RichText1", "C:\\MyFile.rtf");

**محمد سامر محمد سامر** · 02-08-2016, 01:06 AM

تسلم أخي على هذا الجهد؟؟؟ نافع جدااااااااااااااااااا
طب هل أستطيع آخذها copy...من list box مباشرة

عبد الهادي بهاب · 02-08-2016, 01:13 AM

اذا اردت حفظ القائمة في مبف وورد
فعل الاضافة luacom

و اجعل هذا الكود في زر

كود PHP:


list = "";

for i=1, ListBox.GetCount("ListBox1") do

list = list .."\r\n"..ListBox.GetItemText("ListBox1", i);

end



RichText.SetText("RichText1", list, false);





DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL) 

RichText.SetSelection("RichText1", 1, -1);

D=RichText.Copy("RichText1");

local word = luacom.CreateObject("Word.Application")

local book = word.documents:Add()

word.Visible = true

local section = book.Sections(1)

local headers = section.Headers

local header = headers:Item(1)

word.Selection:PasteSpecial();

book:SaveAs("C:\\THAMEUR.doc")

paras = book.Paragraphs:Add()

range = paras.Range

range:InsertParagraph()

book:Close()

word:Quit()

عبد الهادي بهاب · 02-08-2016, 01:17 AM

المشاركة الأصلية بواسطة محمد سامر مشاهدة المشاركة

تسلم أخي على هذا الجهد؟؟؟ نافع جدااااااااااااااااااا
طب هل أستطيع آخذها copy...من list box مباشرة

طبعا يمكنك ذلك
فعل الاضافة Clipboard

في زر اجعل هذا الكود

كود PHP:


list = "";

for i=1, ListBox.GetCount("ListBox1") do

list = list .."\r\n"..ListBox.GetItemText("ListBox1", i);

end



Clipboard.CopyText(list);

بعدها اذهب الى الوورد مثلا .......و ما عليك الى ان تستعمل الصق فقط

عبد الهادي بهاب · 02-08-2016, 01:33 AM

شيء اخر
تعال معي ...........لماذا لا نلغي الزر و نجعل المستخدم يحتفظ بقائمة الاسماء الموجودةى في الليسبوكس باستعمل فقط c+ctrl اي من خلال الكبيورد

اذن ادهب الى الصفحة و في On key ازرع الكود التالي

كود PHP:


list = "";

if e_Key == 67 and  e_Modifiers.ctrl == true then

  for i=1, ListBox.GetCount("ListBox1") do

  list = list .."\r\n"..ListBox.GetItemText("ListBox1", i);

  end

  Clipboard.CopyText(list);

end

طبعا لا تنسى دائما تفعيل اضافة Clipboard
ثم الصق في اي مكان تريده باستعمال مثلا v+ctrl او بيمين المووس ثم الصق
بالتوفيق

**محمد سامر محمد سامر** · 02-08-2016, 01:50 AM

أحسنت... وأوجزت ...وأفدت...

جزاك الله خيرا

**محمد سامر محمد سامر** · 02-08-2016, 02:08 AM

المشاركة الأصلية بواسطة المحترف اقلي مشاهدة المشاركة

شيء اخر
تعال معي ...........لماذا لا نلغي الزر و نجعل المستخدم يحتفظ بقائمة الاسماء الموجودةى في الليسبوكس باستعمل فقط c+ctrl اي من خلال الكبيورد

اذن ادهب الى الصفحة و في On key ازرع الكود التالي

كود PHP:


list = "";

if e_Key == 67 and  e_Modifiers.ctrl == true then

  for i=1, ListBox.GetCount("ListBox1") do

  list = list .."\r\n"..ListBox.GetItemText("ListBox1", i);

  end

  Clipboard.CopyText(list);

end

طبعا لا تنسى دائما تفعيل اضافة Clipboard
ثم الصق في اي مكان تريده باستعمال مثلا v+ctrl او بيمين المووس ثم الصق
بالتوفيق

أحسنت... وأوجزت ...وأفدت...

جزاك الله خيرا
لكن هذا الكود الأخير لم يعمل

عبد الهادي بهاب · 02-08-2016, 10:17 AM

المشاركة الأصلية بواسطة محمد سامر مشاهدة المشاركة

أحسنت... وأوجزت ...وأفدت...

جزاك الله خيرا
لكن هذا الكود الأخير لم يعمل

ايهم تقصد .....

**محمد سامر محمد سامر** · 02-08-2016, 12:05 PM

كود PHP:


list = ""; 
if e_Key == 67 and  e_Modifiers.ctrl == true then 
  for i=1, ListBox.GetCount("ListBox1") do 
  list = list .."\r\n"..ListBox.GetItemText("ListBox1", i); 
  end 
  Clipboard.CopyText(list); 
end

هذا الكود الذي يكون في on key

عبد الهادي بهاب · 02-08-2016, 12:09 PM

المشاركة الأصلية بواسطة محمد سامر مشاهدة المشاركة

كود PHP:


list = ""; 
if e_Key == 67 and  e_Modifiers.ctrl == true then 
  for i=1, ListBox.GetCount("ListBox1") do 
  list = list .."\r\n"..ListBox.GetItemText("ListBox1", i); 
  end 
  Clipboard.CopyText(list); 
end

هذا الكود الذي يكون في on key

هل فعلت الاضافة Clipboard ؟
فيه احتمال اخر وهو تسمية اليسبوكس عندك هل هي ListBox1

**ثامر أبو بلقيس ثامر أبو بلقيس** · 02-08-2016, 12:14 PM

المشاركة الأصلية بواسطة المحترف اقلي مشاهدة المشاركة

شيء اخر
تعال معي ...........لماذا لا نلغي الزر و نجعل المستخدم يحتفظ بقائمة الاسماء الموجودةى في الليسبوكس باستعمل فقط c+ctrl اي من خلال الكبيورد

اذن ادهب الى الصفحة و في On key ازرع الكود التالي

كود PHP:


list = "";

if e_Key == 67 and  e_Modifiers.ctrl == true then

  for i=1, ListBox.GetCount("ListBox1") do

  list = list .."\r\n"..ListBox.GetItemText("ListBox1", i);

  end

  Clipboard.CopyText(list);

end

طبعا لا تنسى دائما تفعيل اضافة Clipboard
ثم الصق في اي مكان تريده باستعمال مثلا v+ctrl او بيمين المووس ثم الصق
بالتوفيق

هذا الحل جيد لكن هناك خلل ؟
وهو هل جربت عندما تكون الكتابة في ListBox بالعربي هل الاضافة Clipboard
تتعامل مع اللغة العربية جرب
على العموم ستحاول كتابة حل باستعمال زر و بنفس الاضافة

**ثامر أبو بلقيس ثامر أبو بلقيس** · 02-08-2016, 12:23 PM

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

01 - فعل الإضافة Clipboard

02 - اجعل عنصر ListBox قابل للتحديد المتعدد

03 - الكود في زر :

كود PHP:


------------------------------------------------------------------

ListBox.SelectItem("ListBox1", LB_ALLITEMS);

x=ListBox.GetSelected("ListBox1")

b=""

if x then

for n,h in pairs(x) do

LBText=ListBox.GetItemText("ListBox1",h)

b=b..LBText.."\r\n"

end

end

DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)

--------------------------------

Clipboard.CopyText(b);

ListBox.DeselectItem("ListBox1", LB_ALLITEMS);

---------------------------------------------------------------------

4 - الان يمكنك اللصق فالمحتوى مخزن في Clipboard

موفق

**محمد سامر محمد سامر** · 02-08-2016, 12:32 PM

أ. ثامر.. الغالي.. العزيز.... كفايه فقط رؤية إسم حضرتك...في التعليق...هذا بالدنيا كلها ...
أشكر حضرتك جدااااااااااااااااااااااا ااااااااااااااااا،،،، وأشكر الأخ الفاضل أ.اقلي جدااااااااااااااااااااااا ااا

إعـــــــلان

حول listbox

حول listbox

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك