VB net软键盘源码

2024年6月11日发(作者：)

完成一个软键盘，废话不多说，上程序！

Private Const WS_EX_TOOLWINDOW As Integer = &H80

Private Const WS_EX_NOACTIVATE As Integer = &H8000000

Protected Overrides ReadOnly Property CreateParams() As

Params

Get

Dim SecPerm As New

SecurityPermission(gedCode)

()

Dim cp As Params =

Params

e = e Or WS_EX_TOOLWINDOW Or

WS_EX_NOACTIVATE

Return cp

End Get

End Property

Private Sub Button_Click(ByVal sender As , ByVal e As

rgs) Handles own, own,

own, own, own,

own, own, own,

own, own, own

Dim RightClick As Boolean

If DirectCast(e, ventArgs).Button =

Then

RightClick = False

Else

RightClick = True

End If

Dim Newbutton As New Button

Newbutton = sender

Dim str As String =