'Beispiel: VB .Net - Prüfen ob Alt - Shift oder Ctrl bei Mausklick auf ein Control gedrückt wurde ( Keys.Shift Keys.Control Keys.Alt ) ' ' Imports System Imports System.Drawing Imports System.Windows.Forms Namespace VBDotNet_PruefenObShiftAltOderCtrlGedruecktWurde Public Class MainForm Inherits System.Windows.Forms.Form Private label1 As System.Windows.Forms.Label Private button1 As System.Windows.Forms.Button Public Shared Sub Main Dim fMainForm As New MainForm fMainForm.ShowDialog() End Sub Public Sub New() MyBase.New Me.InitializeComponent End Sub #Region " Windows Forms Designer generated code " Private Sub InitializeComponent() Me.button1 = New System.Windows.Forms.Button Me.label1 = New System.Windows.Forms.Label Me.SuspendLayout ' 'button1 ' Me.button1.Location = New System.Drawing.Point(8, 48) Me.button1.Name = "button1" Me.button1.Size = New System.Drawing.Size(280, 40) Me.button1.TabIndex = 1 Me.button1.Text = "Press Strg - Alt or Shift and Click here" AddHandler Me.button1.Click, AddressOf Me.Button1Click ' 'label1 ' Me.label1.Location = New System.Drawing.Point(8, 8) Me.label1.Name = "label1" Me.label1.Size = New System.Drawing.Size(280, 32) Me.label1.TabIndex = 0 Me.label1.Text = "Auf Button klicken und Ctrl - Shift oder Alt gedrueckt halten" ' 'MainForm ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 93) Me.Controls.Add(Me.button1) Me.Controls.Add(Me.label1) Me.KeyPreview = true Me.Name = "MainForm" Me.Text = "Testform <Pruefen ob Alt - Shift oder Ctrl bei Mausglick auf ein Control gedrueck"& _ "t wurde>" Me.ResumeLayout(false) End Sub #End Region Private Sub Button1Click(sender As System.Object, e As System.EventArgs) Dim msg As String = " pressed" 'Keys.Shift If Control.ModifierKeys = 65536 Then label1.Text = "Shift" & msg 'Keys.Control ElseIf Control.ModifierKeys = 131072 Then label1.Text = "Control" & msg 'Keys.Alt ElseIf Control.ModifierKeys = 262144 Then label1.Text = "Alt" & msg End If End Sub End Class End Namespace