NUOVO AMBIENTE SCRIPT AREA TECNICA

[lotto_tom75]

esattamente come hai gia fatto ..

Ok proff a neuroni fermi... proverò a ridarci un'occhiata... su quanto già fatto...

 

[happy]

ecco l'esempio .. ringraziando la tua bellissima segretaria ...

prova a ridimensionare il form ..e vedrai l'immagine sempre centrata e che si ingrandisce o rimpicciolisce..

rimuovi l'estensione.txt

Ciao a tutti.
Quando ridimensiono la finestra stringendola, si generano linee di disturbo, lo fa anche a voi o è incompatibilità con la mia scheda video?
Grazie a Luigi per il codice.

 

[i legend]

Sto diventando scemo.
Per questioni di uniformità grafica anziché usare listbox ho costruito un array di checkbox per le ruote.

Tutto semplice. Selezionare o deselezionare , selezionare tutte , invertire.
Il problema che non mi fa dormire è che non trovo un evento che mi abiliti o no il pulsante.
Insomma se clicco abilità ma se disabilito tutte le check purtroppo il pulsante resta abilitato.
Forse sono stanco . Ci penso domani a mente fresca.
Buona notte a tutti

 

[Rookie]

Sto diventando scemo.
Per questioni di uniformità grafica anziché usare listbox ho costruito un array di checkbox per le ruote.

Tutto semplice. Selezionare o deselezionare , selezionare tutte , invertire.
Il problema che non mi fa dormire è che non trovo un evento che mi abiliti o no il pulsante.
Insomma se clicco abilità ma se disabilito tutte le check purtroppo il pulsante resta abilitato.
Forse sono stanco . Ci penso domani a mente fresca.
Buona notte a tutti

Buongiorno a Tutti
Caro iLegend, se puoi mostrare il codice del tuo progetto, per capire meglio, forse una soluzione la si puo' trovare per regalarti un soave abbandono tra le braccia di Morfeo...

 

[Rookie]

In attesa che gli amministratori decidano il da farsi, in ordine all'istanza inoltrata dall'autorevole SLDR, forse e' bene prendersi il tempo di esporre il proprio personale "tumb up" (il pollice alzato) nell'istanza in parola. E' un po' come raccogliere le firme per una istanza, per una petizione, per una richiesta formale inoltrata alle autorita', et cetera...

La richiesta inoltrata da Luigi e' raggiungibile da > QUI

Comunque, fate vobis, perche' ritengo che gli amministratori valuteranno anche in funzione del loro ritorno in termini di audience e click-rate!
Buona domenica

 

[Rookie]

Ciao a tutti.
Quando ridimensiono la finestra stringendola, si generano linee di disturbo, lo fa anche a voi o è incompatibilità con la mia scheda video?
Grazie a Luigi per il codice.
Vedi l'allegato 2254264

Ciao Happy, hai provato con altre immagini se riproducono lo stesso effetto ?

 

[i legend]

Buongiorno a Tutti
Caro iLegend, se puoi mostrare il codice del tuo progetto, per capire meglio, forse una soluzione la si puo' trovare per regalarti un soave abbandono tra le braccia di Morfeo...

Ok. Tra un po posto la mia ricetta

 

[LuigiB]

tratta

Ciao a tutti.
Quando ridimensiono la finestra stringendola, si generano linee di disturbo, lo fa anche a voi o è incompatibilità con la mia scheda video?
Grazie a Luigi per il codice.
Vedi l'allegato 2254264

era solo un esempio , ci vuole un me.refresh

 

[i legend]

ciao a tutti
con la listBox la sub abilitaButton funzionava perchè usavo l evento CheckItem

ora pero validando la checkbox il pulsante si disabilita ma se lascio le ruote vuote non torna .enabled=false

ripeto è solo una complicanza per effetto di uniformità grafica.

non riuscivo ad evidenziare le righe della listbox selezionate.(ma tutto il backcolor)

codice ed immagine
Punti nella sub abilitautton non sono necessari era per me per capire se conteggiava correttamente
pronti per questa ricetta spaziale, non fatevi venire il mal di pancia

Function GetRuote(aR() As Long,sRuote As String) As Integer
    Dim r As Long,k As Long
    k = 0
    sRuote = ""
    ' For r = 0 To List1.ListCount - 1
    '     If List1.Selected(r) = True Then
    '         k + = 1
    '         ReDim Preserve aR(k)
    '         aR(k) = r + 1
    '         sRuote = sRuote & NomeRuota(aR(k)) & "."
    '     End If
    ' Next
    For r = 1 To 11
        If Check1(r).Value = 1 Then
            k + = 1
            ReDim Preserve aR(k)
            aR(k) = r
            sRuote = sRuote & NomeRuota(aR(k),True) & "."
        End If
    Next
    sRuote = RimuoviLastChar(sRuote,".")
    Return k
End Function
Sub abilitaButton(Punti As Integer)
    'cmdElabora.Enabled = False
    Punti = 6
    Dim check As Boolean = True
    If Val(lbNumConc.Caption) < 1 Then check = False: Punti = Punti - 1
    If getOpComb() = 0 Then check = False: Punti = Punti - 1
    If GetRuote(aR,sRuote) = 0 Then check = False: Punti = Punti - 1
    If GetidMese() < 1 Then check = False: Punti = Punti - 1
    If GetOpRuote() < 1 Then check = False: Punti = Punti - 1
    If GetOpOrdinamento() = 0 Then check = False: Punti = Punti - 1
    cmdElabora.Enabled = check
End Sub
Private Sub Check1_Click(Index As Integer)
    If Check1(Index).Value = 1 Then
        Check1(Index).BackColor = & H66D9FF
    Else
        Check1(Index).Value = 0
        Check1(Index).BackColor = & H5b5b5b
    End If
End Sub

 

[LuigiB]

ciao Legend , non ho capito se alla fine sei riuscito nel tuo intento ..

 

[i legend]

No Luigi non riesco a far tornare disabilitato l array dei check1 se tolgo la spunta.
non conosco un comando equivalente che dia l item non essendo una lista.
Non so se mi sono perso in un bicchiere d acqua o è una cosa troppo complessa.

 

[LuigiB]

scusa nei checkbox c'è l'evento click , in quell'evento va la nciata la routine che decide se abilitare qualcosa oppure no .. la risposta mi sembra cosi semplice che secondo me non ho capito la domanda , a dove la togli la spunta ? che c'entra item ?

 

[Rookie]

No Luigi non riesco a far tornare disabilitato l array dei check1 se tolgo la spunta.
non conosco un comando equivalente che dia l item non essendo una lista.
Non so se mi sono perso in un bicchiere d acqua o è una cosa troppo complessa.

Senza vedere il tuo codice, dubito che ci sia qualcuno che possa aiutarti...

 

[i legend]

Ciao rookie il codice l ho postato sopra al post 1749
Luigi ho inserito abilità button nel evento click ma se spunto tutto il pulsante non torna disattivato.
Al massimo faccio un messaggio che ritorna quale parametro manca per eseguire la routine.
Grazie
Buona domenica a tutti

 

[LuigiB]

grazie graziella e grazie ar ....

legend non ho capito una sega ... cosa vuoi disabilitare ? cos'è che non torna disattivato .. fai due disegnin come se stessi parlando con un deficente ...

 

[Rookie]

grazie graziella e grazie ar ....

legend non ho capito una sega ... cosa vuoi disabilitare ? cos'è che non torna disattivato .. fai due disegnin come se stessi parlando con un deficente ...

Siccome le tue IF non sono eloquenti, forse e' meglio che descrivi con parole semplici l'operativita' dei tuoi checkboxes... e, sopratutto, dei tre bottoni in questa parte del tuo form:

e quale bottone non puoi rendere di nuovo attivo dopo averlo disattivato in precedenza: e in quale caso va riattivato...

 

[i legend]

Con la sub abilitabutton e con la lista ruote funzionava tutto correttamente
. Ora riscrivo tutto perché (non so a un certo punto twb è impazzito e mi ha cancellato tutte le routine che ho scritto stamattina e le modifiche che ho fatto al form) sono incaxxxxxxxxxo.
Datemi un attimo per favore

 

[LuigiB]

vabe basta che poi spighi bene cosa volevi fare . .se non torna disattivato o abilitato è semplicemente perche non hai scritto il codice appropriato ...quindi se ti spieghi meglio vedrai che risolviamo.

 

[Rookie]

Con la sub abilitabutton e con la lista ruote funzionava tutto correttamente
. Ora riscrivo tutto perché (non so a un certo punto twb è impazzito e mi ha cancellato tutte le routine che ho scritto stamattina e le modifiche che ho fatto al form) sono incaxxxxxxxxxo.
Datemi un attimo per favore

Fai con calma e senza stress e vedrai che tutto torna a posto! Se ti fai prendere dall'ansia da... prestazione di certo non... ce la farai

 

[i legend]

ecco le immagini ho dovuto riscrive il codice delle list bbox che avevo cancellato, (3 routine della statistica perse e che C....)




se non c'è nessun checkbox dela lista ruote il pulsante elabora rimane inattivo
se ci clicco il pulsante si attivo , se tolgo la spunta ritorna disattivato

Private Sub List1_ItemCheck(Item As Integer)
    abilitaButton(punti)
  Colora()
 
End Sub
Sub Colora()
 Dim i As Integer, b As Boolean = False
 
 For i = 0 To List1.ListCount - 1
    If List1.Selected(i) = True Then
   b = True
    End If
 Next
 If b = True Then List1.ForeColor = &h66D9FF: Else List1.ForeColor = &H80000012
End Sub

mi sarebbe piaciuto colorare solo le ruote selezionate , si può fare ma è un casino, ed ho optato per la checkbox , piu bella a mio parere, ma non pensavo che sarebbe stato cosi difficile per me.