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

Problema backcolor

  1. #1
    Mercante in fiera non  in linea Scolaretto
    Ciao a tutti ne approfitto prima di esporvi il mio ennesimo problema..
    per farvi i miei piu' sentiti auguri....

    il mio non e' un problema xche' funziona gia' come lo postato io.

    ma vorrei sapere se esiste una routine piu' sbrigativa per eliminare tutto questo codice:

    Private Sub Text1_GotFocus()
    Text1.BackColor = &HC0FFFF
    Text2.BackColor = &HFFFFFF
    MaskEditControl2.BackColor = &HFFFFFF
    Text4.BackColor = &HFFFFFF
    Text5.BackColor = &HFFFFFF
    Text15.BackColor = &HFFFFFF
    Text6.BackColor = &HFFFFFF
    Text7.BackColor = &HFFFFFF
    Text8.BackColor = &HFFFFFF
    Text9.BackColor = &HFFFFFF
    Text10.BackColor = &HFFFFFF
    Text11.BackColor = &HFFFFFF
    Text12.BackColor = &HFFFFFF
    Text13.BackColor = &HFFFFFF
    Text14.BackColor = &HFFFFFF
    MaskEditControl1.BackColor = &HFFFFFF
    End Sub
    ==========================
    Text1.BackColor = &HFFFFFF
    Text2.BackColor = &HC0FFFF
    MaskEditControl2.BackColor = &HFFFFFF
    Text4.BackColor = &HFFFFFF
    Text5.BackColor = &HFFFFFF
    Text15.BackColor = &HFFFFFF
    Text6.BackColor = &HFFFFFF
    Text7.BackColor = &HFFFFFF
    Text8.BackColor = &HFFFFFF
    Text9.BackColor = &HFFFFFF
    Text10.BackColor = &HFFFFFF
    Text11.BackColor = &HFFFFFF
    Text12.BackColor = &HFFFFFF
    Text13.BackColor = &HFFFFFF
    Text14.BackColor = &HFFFFFF
    MaskEditControl1.BackColor = &HFFFFFF
    ================================
    tenete presente che ho piu' di 100 controlli da pilotare.

    grazieeeeeeee a tutti

  2. #2
    L'avatar di Ste
    Ste
    Ste non  in linea Scolaretto
    Non che si capisca bene cosa vuoi fare

    Cmq potresti ciclare i controlli TextBox contenuti in un dato form

    For Each TextBox In Me
        TextBox.BackColor = ...
    Next
    
    o qualunque altro controllo (al posto di TextBox metti Control) avendo cura di verificare di che tipo di controllo si tratta

    Ciau

  3. #3
    Mercante in fiera non  in linea Scolaretto
    scusa hai ragione ste..... in effetti non lo capito nemmeno io che lo scritto

    cmq. io ho scritto quel codice per la bellezza di 15 controlli gia', e tutto questo per poter avere la textbox di un altro colore quando prende il focus

    e volevo sapere se si poteva abbreviare tutto con una routine da inserire su ogni form..

    anche xche' avrei molti

    grassieeeeeeeee

  4. #4
    L'avatar di Ste
    Ste
    Ste non  in linea Scolaretto
    Quote Originariamente inviato da Mercante in fiera
    scusa hai ragione ste..... in effetti non lo capito nemmeno io che lo scritto

    cmq. io ho scritto quel codice per la bellezza di 15 controlli gia', e tutto questo per poter avere la textbox di un altro colore quando prende il focus

    e volevo sapere se si poteva abbreviare tutto con una routine da inserire su ogni form..

    anche xche' avrei molti

    grassieeeeeeeee
    Ciclare i controlli non va bene?

  5. #5
    Mercante in fiera non  in linea Scolaretto
    sicuramente andra bene ste.... ma mi serve un aiutino con il codice...

    sono neofita e sto' studiando il vb6 da poco tempo

  6. #6
    L'avatar di Ste
    Ste
    Ste non  in linea Scolaretto
    Quote Originariamente inviato da Mercante in fiera
    sicuramente andra bene ste.... ma mi serve un aiutino con il codice...

    sono neofita e sto' studiando il vb6 da poco tempo
    In pratica vuoi che quando una texbox prende il focus lei diventi di un certo colore?

  7. #7
    Mercante in fiera non  in linea Scolaretto
    esatto e proprio quello che voglio..... anzi direi che gia' lo fanno
    ma visto che devo ripetere tutto per altri form vorrei qualcosa di piu' sbrigativo

    grassieeeee ste.

  8. #8
    L'avatar di dolcissimo
    dolcissimo non  in linea Scribacchino
    Prova questo codice:
    Sub ControlTextbox(Frm As Form, Colore As String)
    Dim MyControl As Control
        For Each MyControl In Frm
            If TypeOf MyControl Is TextBox Or TypeOf MyControl Is MaskEdBox Then
                MyControl.BackColor = Colore
            End If
        Next MyControl
    End Sub
    
    Private Sub Command1_Click()
    ControlTextbox Me, &HC0FFFF
    End Sub
    
    ciaoooo!!!
    ℹ️ Leggi di pi su dolcissimo ...

  9. #9
    Mercante in fiera non  in linea Scolaretto
    grazie dolcissimo lo provero' e ti faro' sapere

    intanto ti faccio tanti auguri

    sciaoooooooo

  10. #10
    Mercante in fiera non  in linea Scolaretto
    dolcissimo il tuo codice funziona ma...non risolve il mio problema

    io vorrei solo colorare le textbox quando prendono il focus

    per non inserire su tutti i controlli il codice:

    Private Sub Text1_GotFocus()

    Text1.BackColor = &HC0FFFF
    Text2.BackColor = &HFFFFFF
    MaskEditControl2.BackColor = &HFFFFFF
    Text4.BackColor = &HFFFFFF
    Text5.BackColor = &HFFFFFF
    Text15.BackColor = &HFFFFFF
    Text6.BackColor = &HFFFFFF
    Text7.BackColor = &HFFFFFF
    Text8.BackColor = &HFFFFFF
    Text9.BackColor = &HFFFFFF
    Text10.BackColor = &HFFFFFF
    Text11.BackColor = &HFFFFFF
    Text12.BackColor = &HFFFFFF
    Text13.BackColor = &HFFFFFF
    Text14.BackColor = &HFFFFFF
    MaskEditControl1.BackColor = &HFFFFFF

    End Sub

    spero sia piu' chiaro cosi

+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo

Potrebbero interessarti anche ...

  1. BackColor su GotFocus
    Da AleSpi nel forum Visual Basic 6
    Risposte: 2
    Ultimo Post: 28-04-2010, 13:59
  2. BackColor ToolBar
    Da Carmen nel forum Visual Basic 6
    Risposte: 10
    Ultimo Post: 31-05-2007, 15:23
  3. Picture1.BackColor
    Da xreme nel forum Visual Basic 6
    Risposte: 9
    Ultimo Post: 03-04-2006, 11:03
  4. BackColor Oggetto (OCX)
    Da bornslippy nel forum Visual Basic 6
    Risposte: 28
    Ultimo Post: 29-09-2005, 19:20
  5. BackColor MSHFlexGrid
    Da Morpheus80 nel forum Visual Basic 6
    Risposte: 2
    Ultimo Post: 23-09-2004, 18:02