'==========输入端样式设置==========

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