1. 如何将程序窗口置最前?2. 像QQ那样,可以隐藏在屏幕边,鼠标移至时,才出现
3. 可以折叠,缩小成一小条
以下代码实例,没有达到效果
TimerTick
窗口计时器代码,根据设定的间隔执行
If e.Form.baseform.Top <= 0 Then
Dim x As Integer = System.Windows.Forms.Cursor.current.position.x
Dim y As Integer = System.Windows.Forms.Cursor.current.position.y
If x < e.Form.BaseForm.Left OrElse x > e.Form.BaseForm.Left + e.Form.BaseForm.Width OrElse y > e.Form.BaseForm.Top + e.Form.BaseForm.Height Then
e.Form.Baseform.Top = - e.Form.Baseform.Height + 10
Else
e.Form.Baseform.Top = 0
End If
End If
[此贴子已经被作者于2021/3/24 23:33:28编辑过]