حول listbox

[محمد سامر محمد سامر]

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

هل من الممكن عمل copy للأسماء الموجوده في ال listbox بعد تخزينها...بحيث أستطيع لصقها خارج البرنامج في ملف وورد أو إكسل
.. ...ولو تعثر الأمر ولم يفلح هل من الممكن عمل زر يطبع هذه الأسماء الموجوده ب listbox
وجزاكم الله خيرا
ملف مفتوح للإطلاع
http://www.mediafire.com/?62n0bn2j3ceuv8v

[عبد الهادي بهاب عبد الهادي بهاب]

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

هل من الممكن عمل copy للأسماء الموجوده في ال listbox بعد تخزينها...بحيث أستطيع لصقها خارج البرنامج في ملف وورد أو إكسل
.. ...ولو تعثر الأمر ولم يفلح هل من الممكن عمل زر يطبع هذه الأسماء الموجوده ب listbox
وجزاكم الله خيرا
ملف مفتوح للإطلاع
http://www.mediafire.com/?62n0bn2j3ceuv8v

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

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

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 

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

[عبد الهادي بهاب عبد الهادي بهاب]

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

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

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"); 

[محمد سامر محمد سامر]

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

[عبد الهادي بهاب عبد الهادي بهاب]

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

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

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() 

[عبد الهادي بهاب عبد الهادي بهاب]

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

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

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

list = "";
for i=1, ListBox.GetCount("ListBox1") do
list = list .."\r\n"..ListBox.GetItemText("ListBox1", i);
end

Clipboard.CopyText(list); 

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

[عبد الهادي بهاب عبد الهادي بهاب]

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

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

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 او بيمين المووس ثم الصق
بالتوفيق

[محمد سامر محمد سامر]

أحسنت... وأوجزت ...وأفدت... جزاك الله خيرا

[محمد سامر محمد سامر]

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

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

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 او بيمين المووس ثم الصق
بالتوفيق

أحسنت... وأوجزت ...وأفدت... جزاك الله خيرا
لكن هذا الكود الأخير لم يعمل

[عبد الهادي بهاب عبد الهادي بهاب]

أحسنت... وأوجزت ...وأفدت... جزاك الله خيرا
لكن هذا الكود الأخير لم يعمل

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

[محمد سامر محمد سامر]

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

[عبد الهادي بهاب عبد الهادي بهاب]

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

[ثامر أبو بلقيس ثامر أبو بلقيس]

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

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

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
تتعامل مع اللغة العربية جرب
على العموم ستحاول كتابة حل باستعمال زر و بنفس الاضافة

[ثامر أبو بلقيس ثامر أبو بلقيس]

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

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


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


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

------------------------------------------------------------------
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

موفق

[محمد سامر محمد سامر]

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