Class SIP
'benötigte Konstanten
'--------------------
Private Const SIPF_OFF As Integer = &H0
Private Const SIPF_ON As Integer = &H1
Private Const SIPF_DOCKED As Integer = &H2
Private Const SIPF_LOCKED As Integer = &H4
 
' SipStatus
Private Const SIP_STATUS_UNAVAILABLE As Integer = 0
Private Const SIP_STATUS_AVAILABLE As Integer = 1
 
 
'Deklaration der benötigten API-Funktionen
'-----------------------------------------
'Anzeige des SIP
'dwFlag: gibt an, ob das SIP angezeigt(SIPF_ON) oder versteckt (SIPF_OFF) werden soll
<DllImport("coredll.dll")> _
Private Shared Sub SipShowIM(ByVal dwFlag As Integer)
End Sub
 
'gibt den Status des SIP zurück
<DllImport("coredll.dll")> _
Private Shared Function SipStatus() As Integer
End Function
 
'nun kommen die eigentlichen, öffentlichen Funktionen
'----------------------------------------------------
'anzeigen der Tastatur
Public Sub Show()
 
    If SipStatus() = SIP_STATUS_UNAVAILABLE Then
      MsgBox("Fehler: Bildschirmtastatur nicht verfügbar!")
      Return
    Else
      SipShowIM(SIPF_ON)
    End If
 
  End Sub
 
'ausblenden der Tastaur
Public Sub Hide()
    SipShowIM(SIPF_OFF)
End Sub
 
'diese Funktion ermittelt die Größe des SIP
'das ist beispielsweise dann nützlich, wenn man die Anzeige des eigenen Formulars anpassen möchte
'die Struktur RECT für die Größe:
Public Structure RECT
    Public left As Integer
    Public top As Integer
    Public right As Integer
    Public bottom As Integer
End Structure 'RECT
'...und die Klasse SIPINFO, die die Informationen über das SIP enthält
Private Class SIPINFO
 
    Public Sub New()
      cbSize = Marshal.SizeOf(Me)
    End Sub 'New
    'Größe der SIPINFO-Struktur in Bytes
    Public cbSize As Integer
    'Status des SIP (SIPF_DOCKED, SIPF_LOCKED, SIPF_OFF, SIPF_ON)      
    Public fdwFlags As Integer
    'sichtbarer Bereich des Desktops, also der Bereich ausserhalb des SIP's
    Public rcVisibleDesktop As RECT
    'Größe des SIP
    Public rcSipRect As RECT
    ' 
    Public dwImDataSize As Integer
    Public pvImData As IntPtr
 
  End Class 'SIPINFO
 
'Funktion zum Füllen der SIPINFO
<DllImport("coredll.dll")> _
Private Shared Function SipGetInfo(ByVal pSipInfo As SIPINFO) As Integer
 End Function
 
Public Function GetRect() As RECT
    Dim sipInfo As SIPINFO = New SIPINFO
    If SipGetInfo(sipInfo) <> 0 Then
      Return sipInfo.rcSipRect
    End If
End Function
 
End Class
 

 
SIP.Show
 

 
SIP.Hide