Torna al Thread

Private Sub TextBox14_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox14.KeyDown Threading.Thread.Sleep(1000) If Keys.F10 Then Dim frmSc As New frmSconti frmSc.GroupBox1.Visible = True frmSc.btnOk.Visible = True frmSc.btnAnnulla.Visible = True frmSc.lblric.Text = "SI" frmSc.ShowDialog(Me) If frmSc.DialogResult = Windows.Forms.DialogResult.OK Then Me.TextBox14.Text = frmSc.txtDescrizione.Text Me.txtSc1.Text = frmSc.txtScEff.Text Else frmSc.Close() End If Else Exit Sub End If End Sub
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5