Click here to Skip to main content
15,917,481 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Complicated string formatting. HELP!!! Pin
Wayne Gaylard22-Mar-10 22:17
professionalWayne Gaylard22-Mar-10 22:17 
GeneralRe: Complicated string formatting. HELP!!! Pin
Floodlight23-Mar-10 2:04
Floodlight23-Mar-10 2:04 
QuestionTransparent Label in WM Vb 2008 .NET 3.5 Pin
Jmztaylor18-Feb-10 18:01
Jmztaylor18-Feb-10 18:01 
AnswerRe: Transparent Label in WM Vb 2008 .NET 3.5 Pin
Paramu197318-Feb-10 20:35
Paramu197318-Feb-10 20:35 
QuestionLineShape Control MouseMove Problem at runtime like a control movement. Pin
for120618-Feb-10 1:41
for120618-Feb-10 1:41 
AnswerRe: LineShape Control MouseMove Problem at runtime like a control movement. Pin
DaveAuld18-Feb-10 2:36
professionalDaveAuld18-Feb-10 2:36 
GeneralRe: LineShape Control MouseMove Problem at runtime like a control movement. Pin
for120618-Feb-10 2:52
for120618-Feb-10 2:52 
GeneralRe: LineShape Control MouseMove Problem at runtime like a control movement. Pin
DaveAuld18-Feb-10 3:46
professionalDaveAuld18-Feb-10 3:46 
See code below, i have just tried this and it is fine. Form, with SplitContainer, and A PowerPack Line in the right Panel

Private _lineDrag As Boolean = False
Private _x As Integer = 0
Private _y As Integer = 0

Private Sub LineShape1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LineShape1.MouseDown

    If e.Button = Windows.Forms.MouseButtons.Left Then
        _lineDrag = True
        _x = e.X
        _y = e.Y

    End If

End Sub

Private Sub LineShape1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LineShape1.MouseMove

    If e.Button = Windows.Forms.MouseButtons.Left And _lineDrag Then

        LineShape1.X1 = (LineShape1.StartPoint.X + e.X) - _x
        LineShape1.X2 = (LineShape1.EndPoint.X + e.X) - _x

        LineShape1.Y1 = (LineShape1.StartPoint.Y + e.Y) - _y
        LineShape1.Y2 = (LineShape1.EndPoint.Y + e.Y) - _y

        Me.Refresh()

    End If

End Sub

Private Sub LineShape1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LineShape1.MouseUp

    If e.Button = Windows.Forms.MouseButtons.Left Then
        _lineDrag = False
    End If

End Sub
Dave

Don't forget to rate messages!
Find Me On: Web|Facebook|Twitter|LinkedIn
Waving? dave.m.auld[at]googlewave.com


GeneralRe: LineShape Control MouseMove Problem at runtime like a control movement. [modified] Pin
for120618-Feb-10 17:33
for120618-Feb-10 17:33 
QuestionVB6 sql server 2005 Pin
OldMans18-Feb-10 1:06
OldMans18-Feb-10 1:06 
AnswerRe: VB6 sql server 2005 Pin
thatraja18-Feb-10 1:40
professionalthatraja18-Feb-10 1:40 
GeneralRe: VB6 sql server 2005 Pin
OldMans18-Feb-10 1:47
OldMans18-Feb-10 1:47 
AnswerRe: VB6 sql server 2005 Pin
Dave Kreskowiak18-Feb-10 2:21
mveDave Kreskowiak18-Feb-10 2:21 
QuestionVb.Net Printing Pin
C.Kumarasinghe18-Feb-10 0:30
professionalC.Kumarasinghe18-Feb-10 0:30 
AnswerRe: Vb.Net Printing Pin
Ashfield18-Feb-10 0:45
Ashfield18-Feb-10 0:45 
QuestionVb.Net Printing Pin
C.Kumarasinghe17-Feb-10 23:59
professionalC.Kumarasinghe17-Feb-10 23:59 
AnswerRe: Vb.Net Printing Pin
DaveAuld18-Feb-10 0:18
professionalDaveAuld18-Feb-10 0:18 
AnswerRe: Vb.Net Printing [modified] Pin
andre de jong18-Feb-10 6:25
andre de jong18-Feb-10 6:25 
QuestionC# user control in VB6.0 Pin
Q2A17-Feb-10 23:06
Q2A17-Feb-10 23:06 
AnswerRe: C# user control in VB6.0 Pin
Eddy Vluggen17-Feb-10 23:37
professionalEddy Vluggen17-Feb-10 23:37 
GeneralRe: C# user control in VB6.0 Pin
Q2A18-Feb-10 1:04
Q2A18-Feb-10 1:04 
GeneralRe: C# user control in VB6.0 Pin
Eddy Vluggen18-Feb-10 1:37
professionalEddy Vluggen18-Feb-10 1:37 
GeneralRe: C# user control in VB6.0 Pin
Q2A18-Feb-10 7:52
Q2A18-Feb-10 7:52 
GeneralRe: C# user control in VB6.0 Pin
Eddy Vluggen18-Feb-10 9:25
professionalEddy Vluggen18-Feb-10 9:25 
GeneralRe: C# user control in VB6.0 Pin
Q2A18-Feb-10 19:18
Q2A18-Feb-10 19:18 

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.