Torna al Thread

Private Sub SOGGETTO_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown Dim tx As String Select Case e.KeyCode Case Keys.Enter Case Keys.Escape If IDins.Text = 1 Then Dim result As DialogResult result = MessageBox.Show("message", "caption", MessageBoxButtons.YesNo) If result = DialogResult.No Then Exit Sub ElseIf result = DialogResult.Yes Then Me.Close() End If Else Me.Close() End If Case Keys.O 'Premuto il tasto O End Select
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5