عمل كوبي

ايه يا شباب ما في حد عارف

فين خبراء الفيبي

هل تقصد النسخ للـ Clipboard

إليك هذا الكود

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Clipboard.SetDataObject(TextBox1.Text)
End Sub

Moa

تسلم اخي maom

بس طلعت مشكلة ثانية هي انه يخزن ملف واحد فقط

انا معي listview و عامل check boxللملفات اللي تظهر في الlistview

اشتي اي ملف آشر عليه ينسخ للكليب بورد

        Dim item As ListViewItem
        Dim Files() As String
        Dim checkedItems As ListView.CheckedListViewItemCollection = Form1.ListView1.CheckedItems

        Try
            For Each item In checkedItems
                Files = New String() {item.SubItems(4).Text}
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Clipboard.SetDataObject(New DataObject(DataFormats.FileDrop, Files))

بس هذه الطريقة تنسخ لي ملف واحد

ممكن تقول لي وش الحل

ايش في شباب ماحد عارف كيف اسويها

اخ maom ما تعرف كيف اسويها

أولاً آسف على تأخر ردّي لأنني مشغول بالامتحانات (لم أنتهي بعد)

ثانياً معك حق فهذه الطريقة لا تنسخ إلا مرة واحدة (وهذا معروف) مثلاً انسخ أي كلمة في Windows ثم انسخ كلمة أخرى قم بعمل لصق فتظهر الكلمة الثانية فقط و لكن يمكنك حل هذه المشكلة كما يلي

تنسخ أكثر من عنصر كجملة واحدة

مثلاً الكود السابق الذي وضعته (بعد التعديل طبعاً)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Clipboard.SetDataObject(TextBox1.Text & TextBox2.Text)
End Sub

هذا ما أعرفه

ملاحظة : اسمي MoaM و ليس maom

:(:(:(:(:(

Moa

مشكور اخوي موووه

معلومه جددددددددددددديده

اقتباس

ملاحظة : اسمي MoaM و ليس maom

ماتزعلش يامؤيد المهم انك منور :lol: :lol:

تسلم يا اخي MoaM

واسف على ازعاجك وقت امتحاناتك

بس برضه كلمتك انا اني عامل listview طيب كيف اعملهم بالطريقة اللي انت عاملها للتيكست بوكس

اجمع كل اللي انا عملت عليهم تشيك

آآآآآآآآآآآآآآآآه , الحمد لله , لقد انتهيت اليوم من الامتحانات

الأخ cool_zat

يمككنك بدل الـ Text Box

وضع

Form1.ListView1.CheckedItems

كما يمكنك الفصل بين النصوص التي تم نسخها بفاصلة أو ...

ملاحظة : ما أزعجني الامتحانات و ليس أنت

Moa

اخي MoaM

الحمدلله أني ما ازعجت و الحمدلله إنك خلصت

اخي انا عرفت الحل وبانسخ اي عدد من ملف التي اريدها بس طلعت مشكلة تانية إنه ما ينسخها عن طريق الوينوز(كيف)

أنه لو انا عملت انا كوبي بالبرنامج حقي وروحت فرض(لسطح المكتب او المتصفح حق الويندوز يطلعلي com exception not handled)

في حين ان لو عملت داخل اي برنامج ثاني فرضا(النيرو،او اي برنامج ثاني يقبل عملية كوبي)بيرضى من غير مشاكل

هل هناك غلط في الكود ولا الغلط مش عندي

Option Explicit On
Option Strict On
Imports System
Imports System.IO

Module copy

    Public Sub copyapp()
        Dim item As ListViewItem
        Dim checkedItems As ListView.CheckedListViewItemCollection = Form1.ListView1.CheckedItems
        Dim pos As Integer
        Dim ctr As Integer = 0

        Try
            pos = checkedItems.Count
            Dim Files(pos - 1) As String

            For Each item In checkedItems
                Files.SetValue(item.SubItems(4).Text, ctr)
                ctr += 1
            Next item

            Clipboard.SetDataObject(New DataObject(DataFormats.FileDrop, Files))
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
End Module

في الحقيقة لم أفهم قصدك !!!

الرجاء إعادة شرح المشكلة