عمل كوبي في اداه لست فيو

ليست فيو ولا ديبي كريد

لنا لست فيو

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Sub List1_Click()
	Clipboard.SetText (List1.Text)
	WinExec "C:\WINDOWS\CLIPBRD.EXE", 10
	Text1.Text = List1.Text
End Sub

thx ma3lesh el gehaz ma3atsh 3awez yekten 3arabe

bas ana 3awez code ye3mel copy lebelant mo3ayen

shof el sora

كنت قد كتبت هذه الطريقة لبرنامج قديم عندي .. لإنني لم أعد استخدم اداة الـ List View

Private Sub lst_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
 Dim i As Integer, intIndex As Integer
 On Error Resume Next
 For i = 1 To lst.ColumnHeaders.Count
	If x < lst.ColumnHeaders(i).Left Then
	   intIndex = i - 2
	   Exit For
	End If
 Next
 If intIndex = 0 Then
	Me.Caption = lst.ColumnHeaders(intIndex + 1).Text & "|" & lst.SelectedItem.Text
 Else
	Me.Caption = lst.ColumnHeaders(intIndex + 1).Text & "|" & lst.SelectedItem.SubItems(intIndex)
 End If
End Sub

lst.rar