1. الملاحظات
    عزيزي زائر تم اطلاق الموقع الرسمي لبرنامج الاختراق Spy-Note
    إستبعاد الملاحظة
الكاتب : war10ck-993 | المشاهدات : 658 | الردود : 2
حالة الموضوع:
مغلق
  1. war10ck-993 Developer

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

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

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