حالة الموضوع:
مغلق
  1. war10ck-993

    war10ck-993 Developer

    الأنتساب:
    ‏26 ابريل 2014
    المشاركات:
    1
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    1
    اريد اكواد نسخ ولصق وقص ملفات بالفيجوال بيسك:!."
     
  2. ●¦ Snharib ¦●

    ●¦ Snharib ¦● V • I • P

    الأنتساب:
    ‏8 يناير 2014
    المشاركات:
    1,128
    الإعجابات المتلقاة:
    1,786
    نقاط الجائزة:
    113
    الإقامة:
    || Iraq ||
    رد: اكواد فيجوال بيسك 2010

    Textbox

    Copy

    كود:
    Clipboard.SetText(txtTextBox.SelectedText)
    Cut

    كود:
    Clipboard.SetText(txtTextBox.SelectedText)
    txtTextBox.SelectedText = ""
    Paste

    كود:
    txtTextBox.SelectedText = Clipboard.GetText
    File

    Copy

    كود:
    Imports System.IO
     
    Public Class Form1
     
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
            Dim sourcepath As String = "E:\temp\test\1.txt"
            Dim DestPath As String = "E:\Data\"
            CopyDirectory(sourcepath, DestPath)
     
        End Sub
    Paste

    كود:
    'Copy with windows explore some files and than this
    Private Sub Button1_Click(ByVal sender _
    As Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim folderbrowserDialog1 As New FolderBrowserDialog
    Dim iData As IDataObject = Clipboard.GetDataObject()
    If iData.GetDataPresent(DataFormats.FileDrop) Then
    Dim clipbrd As String() = DirectCast(iData.GetData(DataFormats.FileDrop),
    String())
    Dim i As Integer
    folderbrowserDialog1.ShowDialog()
    For i = 0 To clipbrd.Length - 1
    If System.IO.File.Exists(folderbrowserDialog1.Selecte dPath _
    & System.IO.Path.GetFileName(clipbrd(i))) Then
    System.IO.File.Move(folderbrowserDialog1.SelectedP ath & _
    "\" & _
    System.IO.Path.GetFileName(clipbrd(i)), _
    folderbrowserDialog1.SelectedPath & "temptemptemp.temp")
    End If
    System.IO.File.Copy(clipbrd(i), folderbrowserDialog1.SelectedPath & _
    "\" & _
    System.IO.Path.GetFileName(clipbrd(i)))
    If System.IO.File.Exists(folderbrowserDialog1.Selecte dPath _
    & "temptemptemp.temp") Then
    System.IO.File.Delete(folderbrowserDialog1.Selecte dPath & _
    "temptemptemp.temp")
    End If
    Next
    End If
    End Sub
     
  3. ★ قبعة القش ★

    ★ قبعة القش ★ V • I • P

    الأنتساب:
    ‏10 مايو 2014
    المشاركات:
    447
    الإعجابات المتلقاة:
    16
    نقاط الجائزة:
    18
حالة الموضوع:
مغلق

مشاركة هذه الصفحة