none
need some help please :) im newbie... RRS feed

  • Pertanyaan

  • hello all :)

    would you help me? i need some help to my project...

    im now making a software that can help people more fast copying item and can select the item that they want to copy...

    sorry for my bad english. i will explain it more detail.

    i making a box. that you can drag your computer files into there. and you can choose what file you want to drag into there.

    then you block them and drag it to a direction you want and drop it.

    are you understand my bad word? :(

    if you understand i will keep explaining :v

    if you don't understand, this message will explode 5 sec after you don't understand :v

    ok", forget the stupid joke.

    i have a problem with code "_DragLeave" i don't know how to doing that code..

    i successfully making "_DragEnter" and "_DragDrop" but how about "_DragLeave"?

    this is my "_DragLeave" source code i made so far..


    --------------------------------------------------------------------------------------------------

    Private Sub ListBox1_DragLeave(ByVal sender As System.Object, ByVal e As  _
        System.Windows.Forms.DragEventArgs) Handles ListBox1.DragLeave
            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                e.Effect = DragDropEffects.Copy
                FileCopy(listBox1 As System.Windows.Forms.ListBox)
            End If
        End Sub

    ---------------------------------------------------------------------------------------------

    my Goal is to make a copy paste box. that you can making the list item that you want copy, then you simply Blok them and Drag to the directory you want :)

    very sorry for my BAD ENGLISH.




    Senin, 10 Agustus 2015 11.34

Jawaban

  • hi britishdhez.

    terimakasih atas code nya di atas. namun belum berhasil mendrag file keluar form.

    saya sepertinya harus extra memutar otak untuk menemukan masalah dari coding saya.

    terimakasih sudah berusaha membantu. :)

    Rabu, 12 Agustus 2015 07.22

Semua Balasan

  • Hi Tatsuya William

    Forum ini berbahasa Indonesia, jika kamu ingin menggunakan bahasa inggris kamu bisa post pertanyaan kamu di MSDN berbahasa Inggris

    https://social.msdn.microsoft.com/Forums/en-US/home

    Kamu bisa menggunakan link berikut untuk control operasi drag and drop

    https://msdn.microsoft.com/en-us/library/ms973845.aspx

    https://msdn.microsoft.com/en-us/library/system.windows.forms.control.dragleave(v=vs.110).aspx?f=255&MSPPError=-2147217396&cs-save-lang=1&cs-lang=vb#code-snippet-1

    Terima kasih


    Andy Nugraha

    TechNet Community Support

    Selasa, 11 Agustus 2015 01.03
    Moderator
  • Maaf, saya lupa kalau kolom bahasanya terisi bahasa indonesia.. Mohon maklumi karena saya baru kemarin bergabung kemari...
    Selasa, 11 Agustus 2015 06.04
  • Terimakasih atas info di atas pak Andy Nugraha. Namun saya tidak menemukan yang saya cari. Link yang telah anda berikan di atas sudah saya baca secara mendetail. Yang saya maksudkan di atas adalah hanya masalah "DragLeave" file computer yang telah di drag ke dalam form. Saya bermaksud mencari jawaban atas code yg saya butuhkan. Saya berusaha membuat sebuah aplikasi yg memungkinkan untuk drag enter, drag drop, drag leave serta dengan efek copy file ke directory yang telah ditentukan. Example: Saya mendrag sebuah file ke dalam form ku dan melepasnya. Maka di listbox akan tertampil file tersebut. Lalu saya ingin mengcopy file tersebut ke directory yg saya inginkan. Maka saya mendrag keluar file tersebut dari form ke directory yg saya inginkan lalu saya drop. Maka akan muncul jendela "copying file" dari windows. --- Demikian maksud dari saya. Terimakasih :) dan maaf, saya juga menggunakan visual basic 2010.terimakasih.

    Selasa, 11 Agustus 2015 06.16
  • Bedasarkan pengalaman saya, biasanya proses copy diletakkan pada fungsi DragDrop bukan di DropLeave. DropLeave hanya berfungsi untuk reset directory, memberikan keterangan label atau biasanya DropLeave malah tidak digunakan

    https://msdn.microsoft.com/en-us/library/system.windows.forms.control.dodragdrop(v=vs.110).aspx 

    • Diedit oleh britishdhez Selasa, 11 Agustus 2015 09.28
    Selasa, 11 Agustus 2015 09.27
  • Maaf, britishdhez. Maksud saya adalah "DragLeave" artinya seret keluar. Jadi saya menyeret sebuah file di komputer saya kedalam form. Dan file tersebut muncul di form. Lalu saya ingin mengcopy nya ke directory tertentu dengan menyeretnya keluar lalu drop ke directory yg sudah ditentukan. Misalnya saya menyeret file ".exe" di folder C:Windows\ dan nama file itu pastilah muncul di list box. Nah saya ingin menyeretnya keluar lalu drop ke C:downloads\ lalu setelah di drop file itu tercopy. Itulah maksud saya. Jadi intinya adalah saya berusaha membuat sebuah aplikasi yang memudahkan orang untuk mengcopy file tertentu di directory yg berbeda dengan cepat dengan cara mengumpulkan file" yg ingin di copy ke dalam sebuah list yang nantinya tinggal di copy ke directory tujuannya. Begitulah kiranya maksud saya. Namun sayangnya saya kesulitan membuat coding "dragleave(seret keluar)" untuk menyalin filenya ke directory tujuan. Mohon bantuannya..
    Selasa, 11 Agustus 2015 10.58
  • bisa bagikan kode yang sudah kamu buat?

    Rabu, 12 Agustus 2015 03.17
  • hai britishdhez.

    inilah code yang sudah saya buat sejauh ini:

    ----------------------------------------------------------------------------------------------------------------------

    Public Class Form1

        Private Property DragLeaveEffects As Object

        Private Sub ListBox1_DragEnter(ByVal sender As Object, ByVal e As  _
    System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                e.Effect = DragDropEffects.All
            End If
        End Sub

        Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As  _
        System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                Dim MyFiles() As String
                Dim i As Integer

                MyFiles = e.Data.GetData(DataFormats.FileDrop)
                For i = 0 To MyFiles.Length - 1
                    ListBox1.Items.Add(MyFiles(i))
                Next
            End If
        End Sub

        Private Sub ListBox1_DragLeave(ByVal sender As System.Object, ByVal e As  _
        System.Windows.Forms.DragEventArgs) Handles ListBox1.DragLeave
            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                e.Effect = DragDropEffects.All
            End If
        End Sub

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.AllowDrop = True
        End Sub

        Private Sub FileCopy(ByVal listBox1 As System.Windows.Forms.DragDropEffects)
            Throw New NotImplementedException

        End Sub

        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            ListBox1.ClearSelected()
        End Sub

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            End
        End Sub
    End Class

    ----------------------------------------------------------------------------------------------------------------------

    hanya Listbox1_dragleave sajalah yang saya bingung untuk membuatnya... mohon bantuannya.
    Rabu, 12 Agustus 2015 04.40
  • Coba pake yang ini

    Public Class Form1
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.AllowDrop = True
        End Sub
    
        Public Class Form1
    
            Private Property DragLeaveEffects As Object
    
            Private Sub FileCopy(ByVal listBox1 As System.Windows.Forms.DragDropEffects)
                Throw New NotImplementedException
    
            End Sub
    
        End Class
    
        Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs) Handles ListBox1.DragEnter
            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                e.Effect = DragDropEffects.All
            End If
        End Sub
    
        Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop
            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                Dim MyFiles() As String
                Dim i As Integer
    
                MyFiles = e.Data.GetData(DataFormats.FileDrop)
                For i = 0 To MyFiles.Length - 1
                    ListBox1.Items.Add(MyFiles(i))
                Next
            End If
        End Sub
    
        Private Sub ListBox1_DragLeave(sender As Object, e As DragEventArgs) Handles ListBox1.DragLeave
            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                e.Effect = DragDropEffects.All
            End If
        End Sub
    
        Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
            ListBox1.ClearSelected()
        End Sub
    
        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    
        End Sub
    End Class
    

    Rabu, 12 Agustus 2015 06.28
  • hi britishdhez.

    terimakasih atas code nya di atas. namun belum berhasil mendrag file keluar form.

    saya sepertinya harus extra memutar otak untuk menemukan masalah dari coding saya.

    terimakasih sudah berusaha membantu. :)

    Rabu, 12 Agustus 2015 07.22
  • Hai Tatsuya William, saya sudah baca jawaban2 sebelumnya. Yang kamu maksudkan cara untuk untuk meng-copy atau mem-paste keluar dari ListBox1 ....?

    Kalau boleh tahu kamu ingin mempastenya kemana....? ke Window Form Control yang lain (textbox, listbox, combobox) atau ingin di pastekan ke mana...?

    Jika kamu punya ListBox lain misalkan ListBox2 dan kamu ingin mem-paste atau copy ke ListBox2 tersebut maka caranya sama seperti waktu kamu mendrag dan drop data ke ListBox1.

    ini dia kodenya.

      Private Sub ListBox2_DragEnter(sender As Object, e As DragEventArgs) Handles ListBox2.DragEnter
            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                e.Effect = DragDropEffects.All
            End If
        End Sub
    
        Private Sub ListBox2_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox2.DragDrop
            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                Dim MyFiles() As String
                Dim i As Integer
    
                MyFiles = e.Data.GetData(DataFormats.FileDrop)
                For i = 0 To MyFiles.Length - 1
                    ListBox1.Items.Add(MyFiles(i))
                Next
            End If
        End Sub

    Jadi kamu tidak membutuhkan DragLeave Event.

     Namun jika yang kamu maksudkan adalah meng-copy atau paste file yang ada di sebuah direktori pada Explorer contohnya file dengan lokasi berikut "D:/Film/Transformer.mp4" ke direktori "F:/MyFlashDisk/Film/" maka kamu dapat menggunakan kode berikut.

    import system
    import system.IO
    import system.Text
    
    Dim sumber, tujuan as string
    
    Public Sub PindahkanFile()
       sumber = "D:/Film/Transformer.mp4"
       tujuan = "F:/MyFlashDisk/Film/Transformer.mp4"
    
       File.Move(sumber,tujuan)
    End Sub
    
    Public Sub SalinFile()
       sumber = "D:/Film/Transformer.mp4"
       tujuan = "F:/MyFlashDisk/Film/Transformer.mp4" File.Copy(sumber,tujuan) End Sub
    Sayangnya jika kamu ingin mencopy file dari aplikasi kamu ke explorer dengan fitur drag drop, itu tidak dapat dilakukan karena explorer tidak mendukung fitur ini.

    • Diedit oleh nomen86 Rabu, 23 September 2015 01.56
    Rabu, 23 September 2015 01.38