Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #19349

Enter al posto tab .

Show all headers | View raw

Buongiorno a tutto il gruppo IT.CLVB
Sono alle prime armi sulla programmazione, quindi devo fare ancora tanta 
strada, anche se ne ho 58 ma di panini ne ho mangiati parecchi, qui invece 
mi tocca cercare di capire alcune cose importanti.
La mia domanda e' questa.
------------ Win7.64b, MS.Visual Studio Enterprise 
2017---------------------------.
-------------------------
Debbo crearmi un lavoro in VB, che mi consenta di fare dei calcoli temporali 
date e trasformazioni, fino a calcolarmi la posizione Luna e Sole.
Gia' sviluppato in excel, che a causa di limitazioni faccio fatica ad andare 
avanti.

Quindi debbo crearmi una interfaccia dove inserisco i dati (utilizzando 
TexBox) e li ottengo da altre TextBox (not writable).
Quindi inserimento, giorno, mese, anno, pra, minuti, secondi e centesimi 
peruna serie di calcoli, compresi Temperatura e pressione millibar.

Nei campi Giorni e gli altri i dati debbono essere validati anche.
Ma mi interessa sapere come posso fare a sostituire il TAB con Enter (char 
13)
O letto dei vari eventi come KeyPress, KeyDown, e KeyUp, credo che il 
KeyPress possa andare
-----------------------------------------------------------------------------------
CODICE.

Public Sub TextBox1_KeyPress(sender As System.Object, e As 
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
       Dim giorno As Integer
       If (e.KeyChar <> Microsoft.VisualBasic.ChrW(Keys.Back)) And 
(Char.IsNumber(e.KeyChar.ToString(), 0) = False) Then  'Blocca INS character
           tipValidation.Show("Numeric Input Required", sender, 5000)
           e.Handled = True
       End If
       If (IsNumeric(TextBox1.Text) = True) Then
           giorno = TextBox1.Text
           If (giorno < 1) Then
               MsgBox("Range 1-31", MsgBoxStyle.Information, "FUORI DATA")
               TextBox1.Clear()
               e.Handled = True
           End If

           If (giorno > 31) Then
               MsgBox("Range 1-31", MsgBoxStyle.Information, "FUORI DATA")
               TextBox1.Clear()
               e.Handled = True
           End If
       End If
   End Sub

===========================================================
giusto per gradire.........
Devo usare Enter al posto di Tab
Devo convalidare i dati in modo che non si possano inserire i caratteri che 
NON SONO NUMERICI .
Usare i caratteri numerici in un certo range .

Grazie per ogni aiuto e consiglio.

PS. ho girato in rete e ho trovato vari argomenti ma sono diversi in 
tipologia.

Tra l'altro questo e' un test per le prove, il progetto e' questo.
https://drive.google.com/open?id=1K1-SpAQRROFAHA9LaS_Gy2Rjfwg-hW4F

Back to it.comp.lang.visual-basic | Previous | Next — Next in thread | Find similar

Thread

Enter al posto tab . "Ettore" <ettor50@nomail.com> - 2018-05-02 14:08 +0200
  Re: Enter al posto tab . "Sauro" <vicchi@crsscala.it> - 2018-05-02 14:33 +0200
  Re: Enter al posto tab . "Sauro" <vicchi@crsscala.it> - 2018-05-02 15:06 +0200
    Re: Enter al posto tab . "Sauro" <vicchi@crsscala.it> - 2018-05-02 15:09 +0200
      Re: Enter al posto tab . "Ettore" <ettor50@nomail.com> - 2018-05-02 17:13 +0200
      Re: Enter al posto tab . "Ettore" <ettor50@nomail.com> - 2018-05-02 17:25 +0200
        Re: Enter al posto tab . "Sauro" <vicchi@crsscala.it> - 2018-05-02 19:33 +0200
          Re: Enter al posto tab . "Ettore" <ettor50@nomail.com> - 2018-05-03 13:41 +0200

csiph-web