在按钮上绘图

问题描述

你好，
我正在尝试在按钮上绘制一个矩形.我将按钮的宽度"和高度"设置为200.
请尝试我的代码，并告诉我为什么将鼠标置于我设置的点(20,20)时实际上显示为(30,30)

这是代码:

班级

Hello,
I am trying to draw a rectangle on a button. I set the Width and Height of the button to be 200.
Please try my code and tell me why when you put the mouse on the point that I set (20,20) it is actually (30,30) shown on the Window title.

Here is the code :

Class

Window1

Window1

 

昏暗 Pt0 如 点

Dim Pt0 As Point

 

昏暗 Pt1 如 点

Dim Pt1 As Point

 

昏暗 Pt2 如 点

Dim Pt2 As Point

 

昏暗 Pt3 如 点

Dim Pt3 As Point

 

昏暗 矩形 如 新建 多边形

Dim Rectangle As New Polygon

 

私有 子 Btn_MouseMove( ByVal 发送者 As 对象 ， ByVal e As System.Windows.Input.MouseEventArgs) 手柄 Btn.MouseMove

Private Sub Btn_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Input.MouseEventArgs) Handles Btn.MouseMove

 

我 .Title = e.GetPosition(Btn).X& " ，" & e.GetPosition(Btn).Y

Me.Title = e.GetPosition(Btn).X & " , " & e.GetPosition(Btn).Y

 

结束 子

End Sub

私有 子 Btn_SizeChanged( ByVal 发送者 As 对象 ， ByVal e As System.Windows.SizeChangedEventArgs) 手柄 Btn.SizeChanged

Pt0 =

Private Sub Btn_SizeChanged(ByVal sender As Object, ByVal e As System.Windows.SizeChangedEventArgs) Handles Btn.SizeChanged

Pt0 =

新 点(20，20)

Pt1 =

New Point(20, 20)

Pt1 =

新 点(180，20)

Pt2 =

New Point(180, 20)

Pt2 =

新 点(180，180)

Pt3 =

New Point(180, 180)

Pt3 =

新 点(20，180)

Rectangle.Points.Add(Pt0)

New Point(20, 180)

Rectangle.Points.Add(Pt0)

Rectangle.Points.Add(Pt1)

Rectangle.Points.Add(Pt1)

Rectangle.Points.Add(Pt2)

Rectangle.Points.Add(Pt2)

Rectangle.Points.Add(Pt3)

Rectangle.Points.Add(Pt3)

Rectangle.Stroke =刷子.黑色

Rectangle.Stroke = Brushes.Black

Btn.Content =矩形

Btn.Content = Rectangle

结束 子

结束

End Sub

End

类

Class

推荐答案

这篇关于在按钮上绘图的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！