1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : war10ck-993 | المشاهدات : 633 | الردود : 2
حالة الموضوع:
مغلق
  1. war10ck-993

    war10ck-993 Developer

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

    ●¦ Snharib ¦● V • I • P

    الأنتساب:
    ‏8 يناير 2014
    المشاركات:
    1,128
    الإعجابات المتلقاة:
    1,786
    نقاط الجائزة:
    113
    الإقامة:
    || Iraq ||
    نظام التشغيل:
    windows 8.1
    رد: اكواد فيجوال بيسك 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
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
حالة الموضوع:
مغلق

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