+ Rispondi al messaggio
Pagina 1 di 4 123 ... ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 35

avvio programma cursore nella textbox del giorno corrente

  1. #1
    lillos non è in linea Scolaretto
    per fare questo esempio ho usato 10 textbox ogniuna nominata da 1 a 10 per evidenziare 10 giorni del mese. io vorrei che all'avvio del programma il cursore si trovi nella textbox nominata del giorno corrente
    es:
    oggi 9 il cursore sara nella casella 9 , domani 10 sara nella casella

    nel tag di ogni textbox ho inserito il numero corrispondende al giorno da 1 a 10
    e poi ho fatto questa stringa che l'ho inserita dentro ogni textbox
    pero' purtroppo non funzia

    
    PublicClass Form1
     
    PrivateSub cursore()
    EndSub
    PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    'codice orologio e data
    Label11.Text = Format(Now, "dd - MM - yyyy , dddd - HH:mm:ss. fff tt")
    EndSub
     
    PrivateSub TextBox1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    If (Not (Char.IsControl(e.KeyChar))) Then e.Handled = Not (Char.IsDigit(e.KeyChar))
    EndSub
    PrivateSub TextBox2_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress, TextBox2.Validated
    If (Not (Char.IsControl(e.KeyChar))) Then e.Handled = Not (Char.IsDigit(e.KeyChar))
    EndSub
    PrivateSub TextBox3_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
    If (Not (Char.IsControl(e.KeyChar))) Then e.Handled = Not (Char.IsDigit(e.KeyChar))
    EndSub
    PrivateSub TextBox4_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
    If (Not (Char.IsControl(e.KeyChar))) Then e.Handled = Not (Char.IsDigit(e.KeyChar))
    EndSub
    PrivateSub TextBox5_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress
    If (Not (Char.IsControl(e.KeyChar))) Then e.Handled = Not (Char.IsDigit(e.KeyChar))
    EndSub
    PrivateSub TextBox6_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
    If (Not (Char.IsControl(e.KeyChar))) Then e.Handled = Not (Char.IsDigit(e.KeyChar))
    EndSub
    PrivateSub TextBox7_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress
    If (Not (Char.IsControl(e.KeyChar))) Then e.Handled = Not (Char.IsDigit(e.KeyChar))
    EndSub
    PrivateSub TextBox8_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox8.KeyPress
    If (Not (Char.IsControl(e.KeyChar))) Then e.Handled = Not (Char.IsDigit(e.KeyChar))
    EndSub
    PrivateSub TextBox9_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox9.KeyPress
    If (Not (Char.IsControl(e.KeyChar))) Then e.Handled = Not (Char.IsDigit(e.KeyChar))
    EndSub
    PrivateSub TextBox10_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox10.KeyPress
    If (Not (Char.IsControl(e.KeyChar))) Then e.Handled = Not (Char.IsDigit(e.KeyChar))
    EndSub
    PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
    EndSub
    EndClass
    
    
    dove o sbagliato

  2. #2
    L'avatar di bumm
    bumm non è in linea Topo di biblioteca Ultimo blog: [VB2010] ComboBox ed Enumeratori
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            For Each ctrl As Control In Me.Controls
                If ctrl.Tag = Now.Day Then Me.ActiveControl = ctrl
            Next
        End Sub
    
    ℹ️ Leggi di più su bumm ...

  3. #3
    lillos non è in linea Scolaretto
    scusa ma non ho ben capito

    secondo te basta quella stinga nel form per far si che il cursore all'avvio del programma si trovi nella textbox del giorno corrente ?

    il mio programma che ho scritto e sbagliato

    ho provato la stringa scritta ma non va

  4. #4
    L'avatar di bumm
    bumm non è in linea Topo di biblioteca Ultimo blog: [VB2010] ComboBox ed Enumeratori
    Quote Originariamente inviato da lillos Visualizza il messaggio
    scusa ma non ho ben capito

    secondo te basta quella stinga nel form per far si che il cursore all'avvio del programma si trovi nella textbox del giorno corrente ?

    il mio programma che ho scritto e sbagliato

    ho provato la stringa scritta ma non va
    se gli textbox stanno su un panel o qualche altro controllo devi specificare quel controllo:
    in caso panel:

    For Each ctrl As Control In Me.Panel1.Controls

    in caso groupbox:

    For Each ctrl As Control In Me.Groupbox1.Controls

    e poi oggi e il giorno 19, sicuro di aver controllo con tag impostato su 19?
    ℹ️ Leggi di più su bumm ...

  5. #5
    lillos non è in linea Scolaretto
    le textbox sono sul form1
    in totale sono 10 e ho cambiato la data del pc e ora e il 2 maggio

  6. #6
    L'avatar di bumm
    bumm non è in linea Topo di biblioteca Ultimo blog: [VB2010] ComboBox ed Enumeratori
    -Crea una nuova form(nuovo progetto)
    - Inserisci 10 textbox direttamente sulla form (non usare altri controlli)
    - modifica la proprieta tag in corrispondenza
    - Clicca due volte sulla form
    - inserisci questo codice:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    For Each ctrl As Control In Me.Controls
    If ctrl.Tag = CObj(Now.Day) Then Me.ActiveControl = ctrl
    Next
    End Sub- lancia applicazione
    ℹ️ Leggi di più su bumm ...

  7. #7
    L'avatar di chico_
    chico_ non è in linea Topo di biblioteca Ultimo blog: Attacco a Oscommerce
    Lillos, permettimi una serie di benevole osservazioni :
    1) Il codice proposto nel post di apertura mi pare non abbia nulla a che vedere con quanto vuoi fare
    2) Abbi la cortesia di specificare sempre il tipo di problema, errori eventualmente segnalati, cosa vorresti ottenere e cosa invece ottieni. ""Non va" è come se telefonassi al tuo meccanico per dire "la mia auto oggi ha dei problemi" senza specificare altro.
    3) Rileggi quello che scrivi. Si puo' sorvolare (ma non troppo) sugli errori ortografico/grammaticali (potresti anche essere straniero) ma tu scrivi partendo dal presupposto che chi legge sia perfettamente a conoscenza dei problemi che riscontri. Ti garantisco che non è cosi'. E' dannatamente difficile capire le tue domande, ci vuole sempre qualche pagina di post per vederne la luce.

    Ciauz

    Chico
    ℹ️ Leggi di più su chico_ ...

  8. #8
    L'avatar di chico_
    chico_ non è in linea Topo di biblioteca Ultimo blog: Attacco a Oscommerce
    Quote Originariamente inviato da bumm Visualizza il messaggio
    If ctrl.Tag = CObj(Now.Day) Then Me.ActiveControl = ctrl
    Scusa, Bumm, ma a me da errore ( ho Option Explicit e Option Strict su On):
    "Option Strict On non ammette operandi di tipo Object per l'operatore "=". Utilizzare l'operatore "Is" per verificare l'identità dell'oggetto "

    Non sarebbe meglio:
    If ctrl.Tag.ToString = Now.Day.ToString Then Me.ActiveControl = ctrl
    
    ?

    Ciauz

    Chico
    ℹ️ Leggi di più su chico_ ...

  9. #9
    patatasoftware non è in linea Scolaretto
    puoi usare anche questo codice

    Select Case Now.Day
    
                Case 1
                    TextBox1.Focus()
                Case 2
                    TextBox2.Focus()
                Case 3
                    TextBox3.Focus()
                Case 4
                    TextBox4.Focus()
                Case 5
                    TextBox5.Focus()
                Case 6
                    TextBox6.Focus()
                Case 7
                    TextBox7.Focus()
                Case 8
                    TextBox8.Focus()
                Case 9
                    TextBox9.Focus()
                Case 10
                    TextBox10.Focus()
    
            End Select
    

  10. #10
    L'avatar di bumm
    bumm non è in linea Topo di biblioteca Ultimo blog: [VB2010] ComboBox ed Enumeratori
    Quote Originariamente inviato da chico_ Visualizza il messaggio
    Lillos, permettimi una serie di benevole osservazioni :
    1) Il codice proposto nel post di apertura mi pare non abbia nulla a che vedere con quanto vuoi fare
    2) Abbi la cortesia di specificare sempre il tipo di problema, errori eventualmente segnalati, cosa vorresti ottenere e cosa invece ottieni. ""Non va" è come se telefonassi al tuo meccanico per dire "la mia auto oggi ha dei problemi" senza specificare altro.
    3) Rileggi quello che scrivi. Si puo' sorvolare (ma non troppo) sugli errori ortografico/grammaticali (potresti anche essere straniero) ma tu scrivi partendo dal presupposto che chi legge sia perfettamente a conoscenza dei problemi che riscontri. Ti garantisco che non è cosi'. E' dannatamente difficile capire le tue domande, ci vuole sempre qualche pagina di post per vederne la luce.

    Ciauz

    Chico
    Straniero - sono io .
    Ma secondo me, e chiaro quello che vuole fare lillos.
    per fare questo esempio ho usato 10 textbox ogniuna nominata da 1 a 10 per evidenziare 10 giorni del mese. io vorrei che all'avvio del programma il cursore si trovi nella textbox nominata del giorno corrente
    es:
    oggi 9 il cursore sara nella casella 9 , domani 10 sara nella casella
    Quel codice, che ha postato - sembra la procedura della convalidazione(???) e non c'entra niente con quello che vuole fare.
    Probabilmente la mia soluzione non funziona proprio per colpa di quel codice
    P.S. Personalmente userei expressions per convalidare i valori inseriti
    ℹ️ Leggi di più su bumm ...

+ Rispondi al messaggio
Pagina 1 di 4 123 ... ultimoultimo

Potrebbero interessarti anche ...

  1. Risposte: 11
    Ultimo Post: 15-11-2008, 15:59
  2. Cursore sul TextBox
    Da WEM nel forum Visual Basic 6
    Risposte: 14
    Ultimo Post: 03-04-2007, 17:37
  3. Textbox e cursore
    Da Lucax nel forum Visual Basic 6
    Risposte: 5
    Ultimo Post: 04-02-2007, 12:28
  4. Annullare il cursore nella TextBox
    Da © rocky nel forum Visual Basic 6
    Risposte: 38
    Ultimo Post: 09-05-2006, 17:03
  5. Posizionare Il Cursore in una TextBox
    Da TorrediPisa nel forum Visual Basic 6
    Risposte: 1
    Ultimo Post: 18-04-2005, 11:56