Click here to Skip to main content
12,622,032 members (32,442 online)

Visual Basic

 
AnswerRe: How to make Login Page For a Windows Application Form(VB 2010) Pin
Zaf Khan1-Dec-12 9:09
memberZaf Khan1-Dec-12 9:09 
QuestionVB.NET / APPLICATION SETTINGS Pin
mebjen29-Nov-12 3:17
membermebjen29-Nov-12 3:17 
AnswerRe: VB.NET / APPLICATION SETTINGS Pin
Dave Kreskowiak29-Nov-12 4:55
mvpDave Kreskowiak29-Nov-12 4:55 
GeneralRe: VB.NET / APPLICATION SETTINGS Pin
mebjen29-Nov-12 5:29
membermebjen29-Nov-12 5:29 
GeneralRe: VB.NET / APPLICATION SETTINGS Pin
Dave Kreskowiak29-Nov-12 11:36
mvpDave Kreskowiak29-Nov-12 11:36 
GeneralRe: VB.NET / APPLICATION SETTINGS Pin
mebjen29-Nov-12 11:57
membermebjen29-Nov-12 11:57 
GeneralRe: VB.NET / APPLICATION SETTINGS Pin
Dave Kreskowiak29-Nov-12 16:50
mvpDave Kreskowiak29-Nov-12 16:50 
QuestionMouse Down Event and Flag setting Pin
big_col28-Nov-12 20:53
memberbig_col28-Nov-12 20:53 
Hi

I have a strange problem which i am not sure if it is an issue in VB

Public Class Form1
 
    Private moving As Boolean = False
 
    Private Sub Label2_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseDown
        ' if the left button has been pressed

        If e.Button = Windows.Forms.MouseButtons.Left Then
            ' Set the flag to show mouse down

            moving = True
 
        End If
 
    End Sub
 
    Private Sub Label2_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseUp
        ' The button was released, reset flag.
        moving = False
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label3.Text = moving
    End Sub
 
    Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
 
        Dim eLocation As New System.Drawing.Point(e.X, e.Y)
 
        If moving = True Then
 

            Label1.Text = "X." & e.X & vbCrLf & "Y." & e.Y
            Label2.Location = eLocation
        End If
    End Sub
End Class

There is a label on the form and when you click on it is should be dragable on the form. The issue is that the flag is not been set on the mouse down event but I am not sure why or if it is the mouse move event where I test for the flag is always false. If I take the test for the flag out of the mouse move the label follows the mouse with the left mouse button down so all events seem to be working. If I declare the flag as true at start up the label also follows the mouse until the left button is pressed and released resetting the flag. I have also tried removing the flag reset in mouse up event, this actually starts to work when the left button is released.

Any help would be appreciated
Col
VB Express 2010
AnswerRe: Mouse Down Event and Flag setting Pin
Simon_Whale28-Nov-12 23:46
memberSimon_Whale28-Nov-12 23:46 
GeneralRe: Mouse Down Event and Flag setting Pin
big_col29-Nov-12 3:09
memberbig_col29-Nov-12 3:09 
GeneralRe: Mouse Down Event and Flag setting Pin
Simon_Whale29-Nov-12 4:06
memberSimon_Whale29-Nov-12 4:06 
AnswerRe: Mouse Down Event and Flag setting Pin
big_col29-Nov-12 21:19
memberbig_col29-Nov-12 21:19 
AnswerRe: Mouse Down Event and Flag setting Pin
Alan N29-Nov-12 4:09
memberAlan N29-Nov-12 4:09 
Questionvb6 to .net Pin
dvdljns28-Nov-12 8:42
memberdvdljns28-Nov-12 8:42 
AnswerRe: vb6 to .net Pin
Zaf Khan28-Nov-12 17:58
memberZaf Khan28-Nov-12 17:58 
GeneralRe: vb6 to .net Pin
dvdljns1-Dec-12 6:47
memberdvdljns1-Dec-12 6:47 
GeneralRe: vb6 to .net Pin
Zaf Khan1-Dec-12 9:00
memberZaf Khan1-Dec-12 9:00 
AnswerRe: vb6 to .net Pin
Dave Kreskowiak28-Nov-12 19:04
mvpDave Kreskowiak28-Nov-12 19:04 
QuestionDeleting a datarow, creating a query to find the row. - ANSWERED, Thank yo Pin
JRHibner28-Nov-12 0:30
memberJRHibner28-Nov-12 0:30 
AnswerRe: Deleting a datarow, creating a query to find the row. Pin
Andy_L_J28-Nov-12 23:30
memberAndy_L_J28-Nov-12 23:30 
GeneralRe: Deleting a datarow, creating a query to find the row. Pin
JRHibner1-Dec-12 8:21
memberJRHibner1-Dec-12 8:21 
GeneralRe: Deleting a datarow, creating a query to find the row. Pin
Andy_L_J1-Dec-12 21:27
memberAndy_L_J1-Dec-12 21:27 
GeneralRe: Deleting a datarow, creating a query to find the row. Pin
JRHibner9-Dec-12 15:55
memberJRHibner9-Dec-12 15:55 
QuestionModified Registry Key Pin
alirezamansoori27-Nov-12 19:52
memberalirezamansoori27-Nov-12 19:52 
AnswerRe: Modified Registry Key Pin
Richard MacCutchan28-Nov-12 1:02
mvpRichard MacCutchan28-Nov-12 1:02 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.


Advertise | Privacy | Mobile
Web02 | 2.8.161128.1 | Last Updated 3 Dec 2016
Copyright © CodeProject, 1999-2016
All Rights Reserved. Terms of Service
Layout: fixed | fluid