+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 13

una lista di datetimepicker indicizzati

  1. #1
    apteryx non  in linea Novello
    Post
    32
    Like Inviati  
    0
    Like Ricevuti  
    0
    Salve a tutti,
    vorrei creare un elenco di 10 controlli datetimepicker da codice (reperibili poi dal numero di indice e non dal nome) ed ho inserito nel programma le seguenti istruzioni:

    dim datapro As List(Of DateTimePicker)= New List(Of DateTimePicker) 
    poi ho creato questa sub che esegue il ciclo 10 volte
    Private Sub addboxdatapro(xa1 As Integer, xa2 As Integer)
    Dim datapro As New DateTimePicker
    datapro.Name = "datapro" & xa1.ToString
    datapro.Enabled = True
    datapro.Format = DateTimePickerFormat.Short
    datapro.Location() = New Point(700, xa2)
    datapro.Visible = True
    datapro.add(datetimepicker)
    End Sub
    me.controls.add(datapro(x1))
    
    ma sull'ultima riga il pgm si blocca e non esegue le istruzioni successive

    Io ho inserito le stesse istruzioni che ho utilizzato per creare altrettante textbox a label, con questi funziona ma con datetimepicker no.
    Qualcuno sa come creare questi controlli ed aggiungerli al form da codice?
    Grazie per l'aiuto
    Ultima modifica di AntonioG; 30-08-2015 18:26  Motivo: Tag CODE

  2. #2
    L'avatar di AntonioG
    AntonioG non  in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,491
    Blogs
    5
    Like Inviati  
    6
    Like Ricevuti  
    34
    Per il codice dovresti sapere che devi utilizzare i tag code, aggiungili al post precedente.

    Poi indica chiaramente il messaggio d'errore, mostra questo ciclo di cui parli e dicci cosa x1
    ℹ️ Leggi di pi su AntonioG ...

  3. #3
    apteryx non  in linea Novello
    Post
    32
    Like Inviati  
    0
    Like Ricevuti  
    0
    Quote Originariamente inviato da apteryx Visualizza il messaggio
    Salve a tutti,
    vorrei creare un elenco di 10 controlli datetimepicker da codice (reperibili poi dal numero di indice e non dal nome) ed ho inserito nel programma le seguenti istruzioni:

    dim datapro As List(Of DateTimePicker)= New List(Of DateTimePicker)
    poi ho creato questa sub che esegue il ciclo 10 volte
    Private Sub addboxdatapro(xa1 As Integer, xa2 As Integer)
    Dim datapro As New DateTimePicker
    datapro.Name = "datapro" & xa1.ToString
    datapro.Enabled = True
    datapro.Format = DateTimePickerFormat.Short
    datapro.Location() = New Point(700, xa2)
    datapro.Visible = True
    datapro.add(datetimepicker)
    End Sub
    me.controls.add(datapro(x1))
    ma sull'ultima riga il pgm si blocca e non esegue le istruzioni successive

    Io ho inserito le stesse istruzioni che ho utilizzato per creare altrettante textbox a label, con questi funziona ma con datetimepicker no.
    Qualcuno sa come creare questi controlli ed aggiungerli al form da codice?
    Grazie per l'aiuto
    Non cisono messaggi di errore, semplicemente si ferma l'esecuzione e il form non viene completato.
    x1 l'indice del for next da 0 9 che utilizzo per aggiungere altri controlli textbox e label oltre ai datetimepicker:

    questa x esempio la sub per definire il controllo textbox x il campo imponibile che ho scritto in un modulo:

    Private Sub Addboxaimpo(ByVal xa1 As Integer, ByVal xa2 As Integer)
    Dim textbox As New TextBox
    textbox.Name = "aimpo" & xa1.ToString
    textbox.Text = 0.ToString
    textbox.Location() = New Point(1090, xa2)
    textbox.Size = New Size(147, 20)
    textbox.Tag = xa1
    textbox.TabIndex = tabindbox
    textbox.MaxLength = 32767
    textbox.CausesValidation = True
    textbox.TabStop = True
    textbox.AutoSize = False
    textbox.TextAlign = HorizontalAlignment.Right
    textbox.Visible = True
    textbox.Enabled = True
    aimpo.Add(textbox)
    End Sub
    idem x gli altri controlli textbox, label, e x il datetimepicker ho fatto questo sempre nel modulo:
    Private Sub addboxdatapro(xa1 As Integer, xa2 As Integer)
    Dim datapro As New DateTimePicker
    datapro.Name = "datapro" & xa1.ToString
    datapro.Enabled = True
    datapro.Format = DateTimePickerFormat.Short
    datapro.Location() = New Point(700, xa2)
    datapro.Visible = True
    datapro.Add(datetimepicker)
    End Sub
    poi nel ciclo for next del main del programma aggiungo i controlli al form:
    Private Sub addcontrolli()
    Dim x1 As Integer
    For x1 = 0 To 14
    Me.Controls.Add(dmastro(x1))
    Me.Controls.Add(dtrigo(x1))
    Me.Controls.Add(dimpo(x1))
    Me.Controls.Add(dn(x1))
    Me.Controls.Add(dtsott(x1))
    Me.Controls.Add(dcsott(x1))
    Me.Controls.Add(npro(x1))
    Me.Controls.Add(datapro(x1))
    next
    quando arriva a datapro(x1) si ferma, il ciclo viene interrotto e nel form compaiono solo i controlli textbox e label con indice 0 ma non c' segnalazione di errore.
    Se tolgo il controllo datapro tutto funziona correttamente
    Vorrei sapere se esiste un modo per aggiungere controlli di tipo datetimepicker al form da codice cos come si fa per label e textbox.

    (Spero di avere inserito i tag code giusti stavolta.)
    Grazie ancora.

  4. #4
    L'avatar di AntonioG
    AntonioG non  in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,491
    Blogs
    5
    Like Inviati  
    6
    Like Ricevuti  
    34
    No, i tag CODE li ho inserito modificando il tuo post iniziale ... non devi usare QUOTE ma CODE per il codice ...

    Per il problema, non capisco la linea

    datapro.add(datetimepicker)
    
    e dove chiami la sub addboxdatapro ...

    Mi sembra tutto sbagliato ...
    ℹ️ Leggi di pi su AntonioG ...

  5. #5
    apteryx non  in linea Novello
    Post
    32
    Like Inviati  
    0
    Like Ricevuti  
    0
    la sub addboxdatapro nel modulo che utilizzo per definire i controlli che mi servono nel form, poi nel main del programma utilizzo l'istruzione "me.controls.add... " eccetera per aggiungere i controlli al form.
    Scusa gi che ci siamo dimmi anche dove trovo il tag CODE, io mi trovo solo le icone faccine, link,email,immagine,video e QUOTE.
    Grazie.

  6. #6
    L'avatar di AntonioG
    AntonioG non  in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,491
    Blogs
    5
    Like Inviati  
    6
    Like Ricevuti  
    34
    Non ho capito ... non hai risposto alla mia domanda ...

    Dove chiami la sub addboxdatapro, dove la usi ? Non dove sta ...

    I tag CODE li aggiungi con il tasto # in modalit avanzata ....
    ℹ️ Leggi di pi su AntonioG ...

  7. #7
    apteryx non  in linea Novello
    Post
    32
    Like Inviati  
    0
    Like Ricevuti  
    0
    la sub addboxdatapro la chiamo sempre dal e nel modulo :
     For xa1 = 0 To 9
                addboxdatapro(xa1, xa2)
                tabindbox += 1 
                xa2 += spriga
            Next
    
    dove "spriga" contiene il numero di spazi tra una riga e la successiva per la posizione nel form e tabindbox il numero di indice che assegno al controllo.
    riprovando adesso una segnalazione di errore c' sulla riga:
    datapro.add(DateTimePicker)
    
    dice: "ADD" non un membro di System.windows.forms.datetimepicker
    (Ce l'ho fatta con il tag Code!Grazie)

  8. #8
    L'avatar di AntonioG
    AntonioG non  in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,491
    Blogs
    5
    Like Inviati  
    6
    Like Ricevuti  
    34
    Ma datapro non pu essere una list e un datetimepicker ...
    ℹ️ Leggi di pi su AntonioG ...

  9. #9
    apteryx non  in linea Novello
    Post
    32
    Like Inviati  
    0
    Like Ricevuti  
    0
    ma a me servirebbe proprio una lista di 10 controlli datetimepicker indicizzati per ritrovarli appunto tramite indice e non con il nome. Non c' soluzione alcuna?

  10. #10
    L'avatar di AntonioG
    AntonioG non  in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,491
    Blogs
    5
    Like Inviati  
    6
    Like Ricevuti  
    34
    Certo! Quello che ti dicevo che devi usare una lista che deve avere un suo nome. Gli oggetti che inserisci nella lista devono averne altri.

    Devi predisporre una lista di oggetti nel form, ad esempio cos

    Dim lstDatapro As List(Of DateTimePicker) = New List(Of DateTimePicker)
    
    e poi nella funzione cha aggiunge il singolo oggetto, scriverai

       Private Sub addboxdatapro(xa1 As Integer, xa2 As Integer)
            Dim datapro As New DateTimePicker
    
            datapro.Name = "datapro" & xa1.ToString
            datapro.Enabled = True
            datapro.Format = DateTimePickerFormat.Short
            datapro.Location() = New Point(10, xa2)
            datapro.Visible = True
    
            lstDatapro.Add(datapro)
            Controls.Add(datapro)
        End Sub
    
    Ultima modifica di AntonioG; 31-08-2015 11:12 
    ℹ️ Leggi di pi su AntonioG ...

+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo

Potrebbero interessarti anche ...

  1. Risposte: 5
    Ultimo Post: 08-08-2016, 09:20
  2. [VB.NET]: Gestire DateTimePicker
    Da maninblack nel forum Visual Basic .Net
    Risposte: 4
    Ultimo Post: 31-10-2014, 15:09
  3. Somma di datetimepicker
    Da FPService nel forum Visual Basic .Net
    Risposte: 7
    Ultimo Post: 10-02-2014, 14:39
  4. DateTimePicker inaffidabile?
    Da Boolean nel forum Visual Basic .Net
    Risposte: 23
    Ultimo Post: 28-08-2010, 18:27
  5. creare txtbox indicizzati in form excel
    Da misonsan nel forum Microsoft Excel
    Risposte: 1
    Ultimo Post: 17-08-2009, 18:01