Hello All,
I'm trying to solve a nagging problem. The goal is to draw a rectangle over
the top of all the other controls on a form. Specifically, over a ChartFX
control. The user would draw the rectangle using the right mouse button to
represent the area of the chart they want to zoom on. I haev been able to
draw the rectangle on a blank form but I cannot get it to draw on top of
other controls. I have pasted in the code i am using . Is there a way to
force the rectangle to draw on the 'top layer'? Or is there another method
to draw the rectangle entirely that will accomplish what I am looking for?
Thanks
Jeff
Imports System.Drawing
Imports System.Drawing.Drawing2D
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()Private Sub
InitializeComponent()
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(600, 558)
Me.Name = "Form1"
Me.Text = "Form1"
End Sub
#End Region
Dim f_zoomX As Integer
Dim f_zoomY As Integer
Dim f_zoomWidth As Integer
Dim f_zoomHeight As Integer
Public f_zoomRectPen As Pen
Public f_zoomRectPenSize As Integer = 2
Public f_zoomRectPenDashStyle As Drawing2D.DashStyle =
Drawing2D.DashStyle.Dash
Public f_zoomRectPenColor As Color = Color.Black
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
Try
If e.Button = MouseButtons.Right Then
f_zoomX = e.X
f_zoomY = e.Y
f_zoomRectPen = New Pen(f_zoomRectPenColor, f_zoomRectPenSize)
f_zoomRectPen.DashStyle = f_zoomRectPenDashStyle
Cursor = Cursors.Cross
End If
Me.Refresh()
Catch exc As Exception
MessageBox.Show(exc.Message, " Error", MessageBoxButtons.OK,
MessageBoxIcon.Error)
End Try
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
Try
If e.Button = MouseButtons.Right Then
Me.Refresh()
f_zoomWidth = e.X - f_zoomX
f_zoomHeight = e.Y - f_zoomY
Me.CreateGraphics.DrawRectangle(f_zoomRectPen, f_zoomX,
f_zoomY, f_zoomWidth, f_zoomHeight)
End If
GC.Collect()
Catch exc As Exception
If Err.Number = 5 Then Exit Sub
MessageBox.Show(exc.Message, " Error", MessageBoxButtons.OK,
MessageBoxIcon.Error)
End Try
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
Try
Cursor = Cursors.Default
Catch exc As Exception
MessageBox.Show(exc.Message, " Error", MessageBoxButtons.OK,
MessageBoxIcon.Error)
End Try
End Sub
End Class
