照你的意思,vb中试了一下:Public Class Form1 Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
Dim p As Point = New Point(e.X, e.Y) If New Rectangle(0, 0, 100, 100).Contains(p) Then
Me.Cursor = Cursors.Cross
ElseIf New Rectangle(100, 0, 100, 100).Contains(p) Then
Me.Cursor = Cursors.Hand
ElseIf New Rectangle(0, 100, 100, 100).Contains(p) Then
Me.Cursor = Cursors.VSplit
ElseIf New Rectangle(100, 100, 100, 100).Contains(p) Then
Me.Cursor = Cursors.UpArrow
Else
Me.Cursor = Cursors.Default
End If
End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim g As Graphics = e.Graphics g.FillRectangle(Brushes.Blue, 0, 0, 100, 100)
g.FillRectangle(Brushes.Red, 100, 0, 100, 100)
g.FillRectangle(Brushes.Yellow, 0, 100, 100, 100)
g.FillRectangle(Brushes.Green, 100, 100, 100, 100)
End Sub
End Class没有问题,可以正常显示四个不同填充色的矩形框,并且鼠标移动到每个矩形框显示不同的光标。
Dim p As Point = New Point(e.X, e.Y) If New Rectangle(0, 0, 100, 100).Contains(p) Then
Me.Cursor = Cursors.Cross
ElseIf New Rectangle(100, 0, 100, 100).Contains(p) Then
Me.Cursor = Cursors.Hand
ElseIf New Rectangle(0, 100, 100, 100).Contains(p) Then
Me.Cursor = Cursors.VSplit
ElseIf New Rectangle(100, 100, 100, 100).Contains(p) Then
Me.Cursor = Cursors.UpArrow
Else
Me.Cursor = Cursors.Default
End If
End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim g As Graphics = e.Graphics g.FillRectangle(Brushes.Blue, 0, 0, 100, 100)
g.FillRectangle(Brushes.Red, 100, 0, 100, 100)
g.FillRectangle(Brushes.Yellow, 0, 100, 100, 100)
g.FillRectangle(Brushes.Green, 100, 100, 100, 100)
End Sub
End Class没有问题,可以正常显示四个不同填充色的矩形框,并且鼠标移动到每个矩形框显示不同的光标。
解决方案 »
- DXperience 如何让gridcontrol作为输入控件
- 关于form控件
- 请问在.net中如何使用javascript进行客户端校验
- 从SAP获得的DataTabel如果一次性把数据导入SQL server DB 送分!!!!!!!!
- [求]VB.net转C#的工具源代码
- StreamReader读中文字节流的问题,我知道Encoding.Default。50分!
- 我写了一段代码提取图标,但是提出的图标有问题,请帮助
- 怎么样从CS代码中获取值到页面aspx里?
- var books = from b in db.Books where b.Author == ""
- 大家帮帮忙呀
- 急求 100 拖动图片框问题
- pDocument as IMarkupServices在线程不能转换,在界面线程中就可以。
还是按照wzuomin的方法检查一下先
{
this.SuspendLayout();
//
// Form1
//
this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 12F);
this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
this.ClientSize = new System.Drawing.Size(292, 273);
this.Name = "Form1";
this.Text = "Form1";
this.Paint += new System.Windows.Forms.PaintEventHandler(this.Form1_Paint);
this.MouseMove += new System.Windows.Forms.MouseEventHandler(this.Form1_MouseMove);
this.Load += new System.EventHandler(this.Form1_Load);
this.ResumeLayout(false);}