1. المٌقدمة الأولي :دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    تٌعد ثغرات حقن قواعد البينات الثغرة رقم واحد فى العالم والمصنفة تحت بند الإخطر
    والفريق التابع له بإختراق أكبر المواقع الصهيونية قرائة الموضوع
  2. المٌقدمة الثانية : دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    في هذه المٌثقدمة الثانية والأخيرة سوف نتعرف على قواعد علم حقن قواعد البيانات
    حتى يتثنى لنا علم يٌساعدنا على القيام بعمليات الحقن بالطرق الصحيحه قرائة الموضوع
  3. دورة كشف دمج والتلغيم حصريا على أرض عراق تيم(2017)
    بعد ماقمت بعمل دورة الكشف دمج والتلغيم وستكملت الدوره وتحتوي على 12 درس
    كانت دروس حصريا على عراق تيم وشرح واضح جدا ومفهوم الى المبتدأ والى المبدع قرائة الموضوع

اكواد فيجوال بيسك 2010

الموضوع في 'طلبات / استفسارات قسم VB.NET' بواسطة war10ck-993, بتاريخ ‏26 ابريل 2014.

كاتب الموضوع : war10ck-993 المشاهدات : 689 الردود : 2 ‏26 ابريل 2014
حالة الموضوع:
مغلق
  1. غير متصل

    war10ck-993
    rank
    Developer

    عضو منذ:
    ‏26 ابريل 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    اريد اكواد نسخ ولصق وقص ملفات بالفيجوال بيسك:!."
     


    جاري تحميل الصفحة...
  2. غير متصل

    ●¦ Snharib ¦●
    V • I • P

    عضو منذ:
    ‏8 يناير 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    1,786
    نقاط الجائزة:
    الإقامة:

    رد: اكواد فيجوال بيسك 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
    عدد المشاركات:
    الإعجابات المتلقاة:
    6
    نقاط الجائزة:



حالة الموضوع:
مغلق

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

جاري تحميل الصفحة...