Public Class frmScreenWhatEver
 
    Dim tbo As New TextBox
 
    Dim WithEvents frmTransparent As New Form With _
        {.TransparencyKey = Form.DefaultBackColor, 
         .TopMost = True, _
         .FormBorderStyle = Windows.Forms.FormBorderStyle.None,
         .WindowState = FormWindowState.Maximized}
 
    Private Sub frmScreenWhatever_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Me.TopMost = True
        Me.Opacity = 0.01
        Me.WindowState = FormWindowState.Maximized
 
 
        tbo.Parent = frmTransparent
        tbo.BackColor = Color.LightGray
        tbo.Text = "Halli Hallo!"
        tbo.Font = New Font("Arial", 40)
        tbo.Width = 300
        frmTransparent.Show()
    End Sub
 
 
    Private Sub frmTransparent_KeyDown(sender As Object, _
        e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
        'Di Taste C beendet den Spuk ...
        If e.KeyCode = Keys.C Then
            Me.Close()
        End If
    End Sub
End Class

Zitat:

Mit der allgemein bekannten Tasten-Kombination Strg-Alt-Del läßt sich der Taskmanager starten.

Zitat:

Übrigens: Die Opacity-Eigenschaft akzeptiert keine Prozentwerte, sondern einen Double-Wert, der im Bereich 0.0 - 1.0 liegt. Zugewiesene Werte, die darüber liegen, werden als 1 interpretiert. Es kommt nicht zu einer Ausnahme.

Class EingabeForm
 
  Private Sub EingabeForm_FormClosing(sender As Object, e As _
    FormClosingEventArgs) Handles Me.FormClosing
    e.Cancel = e.CloseReason = CloseReason.UserClosing
  End Sub
 
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
    Button1.Click
    If Me.TextBox1.Text = "frei" Then
      Application.Exit()
    End If
  End Sub
 
End Class

  Private Sub SperrForm_Shown(sender As Object, e As EventArgs) Handles Me.Shown
    Me.Timer1.Start()
    EingabeForm.ShowDialog(Me)
  End Sub
 
  Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    'Reihenfolge nicht ändern!
    Me.BringToFront()
    EingabeForm.BringToFront() 'Wichtig!
  End Sub

Beitrag wurde zuletzt am 09.04.15 um 20:47:53 editiert.

Zitat:

aaber.... Unser vereinsvorstand hat gemeint, es sei nicht gut, dass die bedienung des gesamten Computers blockiert würde...