[سعود]

(09-11-20, 02:48 PM)العطر الرايق كتب : اشكرك تعاونك اخي سعود . وفيما يخص قناه حسونه اكادمي من الصعب ان ابحث عن سطر كود او سطرين في مايقارب ١٩٠٠ فيديو شرح . لو يوجد مشروع سريع يفي بالغرض اكون شاكر لكم .

العفو اخي الكريم
صدقني اخي الكريم  بدات بتجهيز المثال  جزئية نسخ الملفات عملت اما الحفظ لم يعمل ....استغربت لكن تذكرت اني اعمل ولاول مرة من نسخة comunity  فقلت احمل الـ pro واجرب والان بانتظار التحميل وقد انسخ لك الكود اللذي لدي قبل اكتمال التثبيت.

PHP كود :

Public Class Form1
    Dim ax, ay As Integer
    Dim dr As Boolean
    Dim fbd As FolderBrowserDialog


    Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")


    Private Sub savepics(ByVal u As String)
        Dim count As Integer = 0
        Dim dir As New IO.DirectoryInfo(u)
        count = dir.GetFiles("*.*").Count
        Dim i As Integer = 0
        p.Invoke(Sub() p.Maximum = count - 1)


        For Each fl As IO.FileInfo In dir.GetFiles("*.*")
            If con.State = ConnectionState.Closed Then con.Open()
            Dim cm As New OleDb.OleDbCommand("", con)
            cm.CommandText = "insert into tb(picname) values(@picname)"
            cm.Parameters.AddWithValue("@picname", fl.Name)


            cm.ExecuteNonQuery()
            lblname.Invoke(Sub() lblname.Text = fl.Name)
            p.Invoke(Sub() p.Value = i)

            fl.CopyTo(CurDir() & "\pics\" & fl.Name)

            i += 1


            Threading.Thread.Sleep(500)
        Next
        If con.State = ConnectionState.Open Then con.Close()
    End Sub

    Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown, Label1.MouseDown, lblname.MouseDown
        If e.Button = MouseButtons.Left Then
            dr = True
            ax = MousePosition.X - Me.Left
            ay = MousePosition.Y - Me.Top
        End If
    End Sub

    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove, Label1.MouseMove, lblname.MouseMove
        If dr Then
            Me.Left = MousePosition.X - ax
            Me.Top = MousePosition.Y - ay
        End If
    End Sub

    Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click
        Close()
    End Sub

    Private Sub btnmin_Click(sender As Object, e As EventArgs) Handles btnmin.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp, Label1.MouseUp, lblname.MouseUp
        dr = False
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.mloc = Me.Location
        My.Settings.Save()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        fbd = New FolderBrowserDialog
        If fbd.ShowDialog = DialogResult.OK Then
            Dim th As New Threading.Thread(AddressOf savepics)
            If th.IsAlive = False Then
                th.Start(fbd.SelectedPath)
            End If
            'savepics(fbd.SelectedPath)
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.Location = My.Settings.mloc
    End Sub
End Class 


هذا لاكسس  والتعديل بسيط.
ولا زلت انتظر ان اجرب المثال بنسخة pro لان الفضول تعدى الحد المعقول.