كيفية عمل copy و paste و cut وتنزيل الخطوط برمجيا

يا شباب انا محتاج المساعدة

اذا كان لديك خانة نص وتريد النسخ والقص واللصق بها

زر copy

cmdcopy_click ( )

clipboard.set text  text1.seltext

end sub

زر cut

cmdcut_click( )

clipboard.set text text1.seltext
text1.seltext=""

end sub

اخي ارنوب لكي تقوم بعمل ذلك يجب ان تستخدم الحافظة في فيجول بيسيك

وهذا زر اللصق

زر paste

cmdpaste_click ( )

text1.text=text1.text +clipboard.get text

end sub

هذا بالنسبة للصق والنسخ والقص

وسأكتب لك كود تحميل الخطوط الي الفيجول

وكود تحميل الخطوط من الجهاز الي قائمة منسدلة combobox

هذا يفضل عمله في حدثتحميل الفورم 

form1_load ( )

for i = 0 to screen.fontcount-1

combo1.additem screen.fonts(i)

next i

end sub

شكرا لك اخى ياسر