Ad:

VB.NET Discussion Thread
Marked Solved
Views: 385

Aug 1st, 2009

Problem on dragging

Expand Post »

Hi
I have problem on dragging label
when the application show msgbox , it stop responding
I do n't know what is problem in my code :

vb .net Syntax (Toggle Plain Text)
dim l1 as label
Dim serverindex, serverP As Integer
    Dim serverref As String
    Dim copiedFragment As String
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 l1=new label()
l1.text="string"
  AddHandler l1.MouseDown, AddressOf labelmouse_down
      AddHandler l1.MouseMove, AddressOf labelmove
 AddHandler Label11.DragEnter, AddressOf enter_server
 
    End Sub
 
Sub enter_server( _
                 ByVal sender As System.Object, _
                 ByVal e As System.Windows.Forms.DragEventArgs)
 
 
        Dim len As Integer = draggedlabel.IndexOf(":")
        draggedlabel = draggedlabel.Substring(0, len)
        serverP = serverindex
        serverref = sender.text
 
 
        If e.Data.GetDataPresent(DataFormats.Text) Then
            paste(len, draggedlabel, True)
            ' move variable 
            If MsgBox("Do yo want to move " & draggedlabel & _
         " from " & vbCrLf & server_names(serverP), MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                e.Effect = DragDropEffects.Copy
                paste(len, draggedlabel, True)
            Else
                e.Effect = DragDropEffects.Move
                paste(len, draggedlabel, False)
            End If
        Else
            e.Effect = DragDropEffects.None
        End If
 
end sub
 Sub labelmouse_down( _
                ByVal sender As System.Object, _
                ByVal e As System.Windows.Forms.MouseEventArgs)
        If (e.Button.Left) Then
            mouse = True
            ' MsgBox(sender.text)
 
 
        End If
 
 
    End Sub
Sub labelmove( _
              ByVal sender As System.Object, _
              ByVal e As System.Windows.Forms.MouseEventArgs)
        If mouse = True Then
            sender.DoDragDrop(sender.text, DragDropEffects.Copy Or DragDropEffects.Move)
 
        End If
        draggedlabel = sender.text
        ' RemoveHandler Label1.MouseUp, AddressOf mouse_up
        mouse = False
    End Sub
 
 
Sub paste(ByVal len As Integer, ByVal copied_fragment As String, ByVal cut As Boolean)
msgbox(len.tostring & copied_fragment )
    End Sub
dim l1 as label
Dim serverindex, serverP As Integer
    Dim serverref As String
    Dim copiedFragment As String
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 l1=new label()
l1.text="string"
  AddHandler l1.MouseDown, AddressOf labelmouse_down
      AddHandler l1.MouseMove, AddressOf labelmove
 AddHandler Label11.DragEnter, AddressOf enter_server

    End Sub

Sub enter_server( _
                 ByVal sender As System.Object, _
                 ByVal e As System.Windows.Forms.DragEventArgs)
       

        Dim len As Integer = draggedlabel.IndexOf(":")
        draggedlabel = draggedlabel.Substring(0, len)
        serverP = serverindex
        serverref = sender.text

        
        If e.Data.GetDataPresent(DataFormats.Text) Then
            paste(len, draggedlabel, True)
            ' move variable 
            If MsgBox("Do yo want to move " & draggedlabel & _
         " from " & vbCrLf & server_names(serverP), MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                e.Effect = DragDropEffects.Copy
                paste(len, draggedlabel, True)
            Else
                e.Effect = DragDropEffects.Move
                paste(len, draggedlabel, False)
            End If
        Else
            e.Effect = DragDropEffects.None
        End If

end sub
 Sub labelmouse_down( _
                ByVal sender As System.Object, _
                ByVal e As System.Windows.Forms.MouseEventArgs)
        If (e.Button.Left) Then
            mouse = True
            ' MsgBox(sender.text)


        End If


    End Sub
Sub labelmove( _
              ByVal sender As System.Object, _
              ByVal e As System.Windows.Forms.MouseEventArgs)
        If mouse = True Then
            sender.DoDragDrop(sender.text, DragDropEffects.Copy Or DragDropEffects.Move)

        End If
        draggedlabel = sender.text
        ' RemoveHandler Label1.MouseUp, AddressOf mouse_up
        mouse = False
    End Sub
        

Sub paste(ByVal len As Integer, ByVal copied_fragment As String, ByVal cut As Boolean)
msgbox(len.tostring & copied_fragment )
    End Sub

Similar Threads

dragging in mozilla... in JavaScript / DHTML / AJAX
Problem Loading Movieclips from library in Graphics and Multimedia
Rounded corners - one more time in Pascal and Delphi
XML Atom feed IE6 and Firefox vs. IE7 problem in RSS, Web Services and SOAP
Small problem face me in C#

Nada_ward

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

53 posts
since Jul 2009

Permalink

Aug 1st, 2009

Re: Problem on dragging

Here's a few things to fix first:

- add Option Strict On and Option Explicit On lines at the beginning of vb-file
- line 19: you refer to draggedlabel but you haven't declared it. Is it a label control in the form?
- line 22: sender is of type Object which does not have Text property and thus serverref = sender.text does not work. You have to cast sender to correct type first. If it's a label, use serverref = CType(sender, Label).Text
- line 44: should be If e.Button = Windows.Forms.MouseButtons.Left Then
- lines 57 and 60: cast sender object to correct type, like CType(sender, Label)

Simply fixing these type issues may solve your problem. I don't remember seeing an app that prompts a message box at DragEnter event but without actually testing it, I don't see any reason why it shouldn't work. In general I would personally take away that confirmation. If the user has an opportunity to drag&drop something, he/she usually knows what he/she is doing

HTH

Last edited by Teme64; Aug 1st, 2009 at 6:35 am. Reason: Pressed submit by mistake :)

Teme64

Reputation Points: 218

Solved Threads: 201

Veteran Poster

Offline

1,024 posts
since Aug 2008

Permalink

Aug 1st, 2009

Re: Problem on dragging

Teme64
thanks..

Quote ...

line 19: you refer to draggedlabel but you haven't declared it. Is it a label control in the form?

I declare draggedlabel a0s string

Quote ...

serverref = sender.text does not work

ther I havn't broblem , this statment works

maebe your away to get text of label better , thanks

I removed msg boxes from dragEnterEvent , so , I put it in DragDrop event .
the dragged label must enter both event dragEnter and DragDrop ..

It's now work Properly

Nada_ward

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

53 posts
since Jul 2009

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: Data updated Problem

Next Thread in VB.NET Forum Timeline: Call a button click event under another sub procedure

DaniWeb Message

Cancel Changes

User Name
Password