[英]Custom tray panel in VB.NET
您实际上可以做一个“托盘面板”,这并不困难。 只需创建一个Form
Object并将其FormBorderStyle
属性设置为None
,这将允许您创建自定义边框。 然后,执行以下操作:
Public Class Form1
Public Timer1 As New Timer
Private Sub Form1_Load(sender as Object, e as Eventargs) Handles MyBase.Load
Timer1.Interval = 1
End Sub
Private Sub Form1_MouseDown(sender as Object, e as MouseEventargs)
Timer1.Start()
End Sub
Private Sub Form1_MouseUp(sender as Object, e as MouseEventargs)
Timer1.Stop()
End Sub
Private Sub Timer1_Tick(sender as Object, e as Eventargs)
Me.Location = New Point(Me.Cursor.Position.X - (Me.Cursor.Position.X - Me.Location.X), Me.Cursor.Position.Y - (Me.Cursor.Position.Y - Me.Location.Y))
End Sub
End Class
完成此操作后(我不确定它是否可以直接运行,请尝试一点并且应该这样做),然后开始设计GUI ... ;-)
希望这会有所帮助,顺便说一句,您的英语水平比您想象的要好!
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.