如何在VB的窗体上的任意位置画一个任意大小的大括号?

来源：百度知道 编辑：UC知道 时间：2024/06/08 11:12:36
如题
一楼的我的意思是这样的:
我按一下按钮,然后在窗体上按下鼠标不送,然后拖动鼠标,再然后松开鼠标,松开鼠标之后要在鼠标按下和松开之间的地方画出一个大括号,这个应该要用到绘图方法吧

Private Sub Command1_Click()
'注意:太大,或者显示的坐标超出窗体后 你就看不到了
Dim l As Long, t As Long, s As Long
i = InputBox("输入大括号左边缘坐标(默认为0)")
t = InputBox("输入大括号顶部坐标(默认为0)")
s = InputBox("输入大括号要显示的大小(默认为0)")
Label1.Caption = "{"
Label1.FontSize = s
Label1.Left = i
Label1.Top = t
Label1.Visible = True
End Sub

Private Sub Form_Load()
Label1.Visible = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Shift = 1 Then Me.PSet (X, Y), vbRed
End Sub
呵呵 一楼做得很不错的 这是按住shift键鼠标画的 看你技术啦 .....