مشاهدة النسخة كاملة : كود عمل كوبي بمجرد ضغطة الماوس
nasa_245
03-16-2007, 04:47 PM
السلام عليكم ورحمة الله وبركاته
محتاج كود...
يعمل كوبي بمجرد ما أضغط على خانة نتائج البحث
السلام عليكم
المرجو أخي الكريم أن توضح تساؤلك وتحدد لغة البرمجة المستعملة
شكرا لك
nasa_245
03-16-2007, 05:48 PM
أشكرك على الرد السريع
بارك الله فيك
تفضل ما أقصده
http://www.imageswebhost.com/store15/0fda43515e.gif
تفضل أخي هذا هو الكود اللازم:
Private Sub DataGrid1_Click()
Dim sLigneDtG As String
sLigneDtG = DataGrid1.Columns(0) & "|" & DataGrid1.Columns(1) & "|" & DataGrid1.Columns(2)
Clipboard.SetText sLigneDtG, vbCFText
End Sub
حيث يمكنك اضافة قيم أعمدة أخرى ان وجدت
بالتوفيق
nasa_245
03-16-2007, 07:45 PM
ألف ألف شكر أخي الكريم
علشان أزيد حسناتك
سؤالي الأخير.. كيف أضيف قيم أعمدة أخرى؟؟!!!
كيف
أقصد أخي الكريم أنه يمكنك اضافة قيم أعمدة أخرى الى المتغير sLigneDtG
لنضف DataGrid1.Columns(3) كالآتي:
sLigneDtG = DataGrid1.Columns(0) & "|" & DataGrid1.Columns(1) & "|" & DataGrid1.Columns(2)& "|" & DataGrid1.Columns(3)
أتمنى أن تكون الفكرة وصلت
بالتوفيق
nasa_245
03-19-2007, 06:19 AM
المعذرة..أزعجناك
أضفت الكود فلم يعمل
هل هناك خلل؟؟!!
أم أني وضعته في المكان الخاطيء
فأين أضعه؟؟!!!
السلام عليكم
أخي الكريم أولا لكي يعمل معك الكود يجب أن تكون الDataGrid1 مملؤة
أما عن مكان الكود فمن الأفضل أن تضعه في كود زر عند اختيار سطر من DataGrid1 قم بالضغط عليه ليقوم بعمل كوبي له
بالتوفيق
nasa_245
03-19-2007, 12:10 PM
أخي الكريم أولا لكي يعمل معك الكود يجب أن تكون الDataGrid1 مملؤة
المعذرة عزيزي
ما فهمت عليك..كيف يعني تكون DataGrid1 مملوئة؟؟؟
أقصد أنه توجد بيانات حتى تتمكن من نسخها والا مالجدوة من الكود!!
يجب أن يوجد على الأقل سطر واحد من البيانات حتى يعمل معك الكود
nasa_245
03-19-2007, 02:17 PM
وهنا المشكلة أخي الكريم
النص موجود...
فلا أرى أنه ينسخ..إلا مرة وحدة..صدفة
هل لأني أضغط على على شيء معين في جدول النتائج؟؟!!!
وبما أن لك خبرة في عمل هذا الكود..
ربما هناك كود عارض مع هذا الكود؟؟!!!
فماذا تنصحني..ليعمل الكود تماما
الشرط الوحيد أخي لكي يعمل الكود هو اختيار سطر من جدول النتائج ثم الضغط على الزر الذي يقوم بالنسخ فقط
nasa_245
03-19-2007, 03:34 PM
ثم الضغط على الزر الذي يقوم بالنسخ فقط
اي زر؟؟!!!
دا كان اقتراح فقط
يعني تحط الكود في زر عوض استعمال DataGrid1_Click()
nasa_245
03-19-2007, 06:00 PM
لقيت نصف الحل حاليا..بحيث جعلت النسخ إلى مكان Text6 إلي عملته أنت
بكود..
لاكن ما يروح للذاكرة يروح لـ Text6
بس..أسوي كوبي من مكان Text6
يطلع الكلام.. غير عربي برموز عند النسخ
كيف أخليه يصير عربي؟؟!!
لقيت نصف الحل حاليا..بحيث جعلت النسخ إلى مكان Text6 إلي عملته أنت
بكود..
لاكن ما يروح للذاكرة يروح لـ Text6
بس..أسوي كوبي من مكان Text6
يطلع الكلام.. غير عربي برموز عند النسخ
كيف أخليه يصير عربي؟؟!!
عذرا أخي الكريم لم يسبق لي أن تعاملت باللغة العربية في الفجيول بيسك
المرجو من الأخوة من يعرف حل لهذه المشكلة أن يوافينا به
