'==========输入端样式设置==========
Dim DeskTopSize As Size = System.Windows.Forms.SystemInformation.PrimaryMonitorSize
Me.Left = DeskTopSize.Width / 2 - Me.Width / 2 '初始位置居中
Me.Top = DeskTopSize.Height * 0.85 '初始位置距底部15%
Me.Opacity = 1.0 '背景完全不透明
BackColor = Color.Aqua '背景颜色
TransparencyKey = Color.Blue '透明的颜色
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None '无任何窗体边框样式
Me.TopMost = True '最顶层的窗体
Me.ShowInTaskbar = False '窗体不在任务栏显示
Me.Show() '窗体前置,可见可用
TextBox1.Focus() '输入域获得焦点
'==========输入端样式设置==========
End Sub
'输入框自由移动解决方案
Dim lx, ly As Int32 '记录鼠标按下时的位置
Private Sub 输入终端_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
lx = e.X
ly = e.Y
End Sub
Private Sub 输入终端_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If e.Button = MouseButtons.Left Then
Me.Left += e.X - lx
Me.Top += e.Y - ly
End If
