Newsgroup: it.comp.lang.visual-basic
Titolo: textbox e combobox

come faccio ad attivare una text box in dipendenza del valore di una
combobox



 combobox
Public Sub Combo1_Click()
   Rem Verifico che il valore della combo sia quello desiderato per
   Rem attivare la TextBox. In questo esempio deve assumere la stringa
   Rem "Valore"
   If Combo1.Text = "Valore" then Text1.Enabled = true Else
Text1.Enabled = False
End Sub
Ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Ciao
nel caso la proprietą combo1.style sia =0 (quindi puoi scrivere anche a
mano nella combo, invece di selezionare le voci esistenti) ti conviene
mettere il controllo sopra anche in Combo1_Change() altrimenti il
controllo viene fatto solo quando scegli una voce della lista e non quando
inserisci del testo manualmente.
oppure puoi non fare i due sopra e farlo in Combo1_LostFocus(), in questo
caso il controllo viene fatto solo quando prima fai un'operazione sulla
combo e poi ti sposti su un qualsiasi altro controllo presente sul form.
ciao.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG
non funziona ...dove sbaglio?

 non funziona ...dove sbaglio?
Al posto di Combo1 e Text1 hai provato a mettere il nome dei tuoi
controlli?


Cheppoi non si è nemmeno capito se intende vb o vb.net......
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site: 
http://www.thetotalsite.it
My Blog: 
http://blog.thetotalsite.it
Gamertag XBOX Live: Carmine XX
http://live.xbox.com/it-IT/profile/profile.aspx?pp=0&GamerTag=Carmine+XX
 

 Gamertag XBOX Live: Carmine XXhttp://
live.xbox.com/it-IT/profile/profile.aspx?pp=0&GamerTag=Carmine+XX
indendevo VB per excel ...

 indendevo VB per excel ...
C'è una bella differenza allora....


 wrote in message

ecco perchè non riuscivo ....come devo fare allora?
grazie!!!


Dove sono la ComboBox e la TextBox
In una UserForm?
Private Sub UserForm_Activate()
    Dim lng As Long
    ComboBox1.Clear
    For lng = 1 To 10
        ComboBox1.AddItem "Valore" & lng
    Next
End Sub
Private Sub ComboBox1_Click()
    TextBox1.Text = ComboBox1.Text
End Sub
In un Foglio?
Private Sub Worksheet_Activate()
    Dim lng As Long
    ComboBox1.Clear
    For lng = 1 To 10
        ComboBox1.AddItem "Valore" & lng
    Next
End Sub
Per Excel ed il suo VBA ci sarebbe anche:
microsoft.public.it.office.excel
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/

 microsoft.public.it.office.excel
C'è anche questo che è utile:
http://xoomer.virgilio.it/army1987k/
Spero sia d'aiuto. Ciao.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

On 23 Feb, 11:03, "Mauro Gamberini"

grazie per la risposta ...sei stato gentilissimo ...ma non va ...sono
in un foglio excel

grazie per la risposta ...sei stato gentilissimo ...ma non va ...sono
in un foglio excel
*******************************************
Come hai messo i tuoi controlli sul foglio?
Da: Viualizza-->Barre degli strumenti-->Moduli
o da: Viualizza-->Barre degli strumenti-->Strumenti di controllo?
Inoltre controlla che:
Strumenti-->Macro-->Protezione
sia settato a Medio.
Se non lo fosse, settalo, chiudi e riapri il file.


Viualizza = Visualizza


 Mauro Gamberinihttp://
www.riolab.org/