Form di commento

Hai un problema con Excel?

Nuova discussione

Form di commento
di Patty74 (utente non iscritto) data: 12/12/2009
Ciao a tutti, qualcuno mi può dire come posso utilizzare un form come commento:
mi spiego meglio:

faccio partire la mia userform1 ed inserisco i dati, al fianco della textbox1 ho inserito un togglebutton, che quando faccio clic lo attivo e mi fa uscire la mia userform2 di commento e rimane lì attiva finché non decido di cliccare sul toggle e mi sparisce, però intanto, che mi appare la mia usrform2 posso continuare a scrivere sulla mia userform1.
cioè la form2 deve essere solo di commento e basta.
di Mabolsie (utente non iscritto) data: 23/12/2009
Ciao patty74
ho provato a fare quello che tu vorresti fare ma purtroppo penso che non si possa realizzare
con un secondo form attivo in vista.
io ho creato una seconda textbox collegata al togglebotton e sfruttando la proprietà di value = true or false scrivo o cancello un messaggio di nota che a seconda della posizione del togglebutton è visibile o meno.
naturalmente puoi comunque scrivere nella txtbox
primaria.
ciao
se vuoi ti mando il codice.
di Patty74 (utente non iscritto) data: 24/12/2009
Ciao

sei molto gentile mi potresti postare il codice che provo .

grazie molte e buon natale a te e famiglia.

ciao da patty74

di Mabolsie (utente non iscritto) data: 24/12/2009
Ciao patty
ti invio il codice, provalo
ciao e buon natale anche a te e famiglia

'Crea una seconda textbox che ti faccia da
'contenitore per le note poi assegna al tgl la ruotine qui
'sotto.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
TextBox2.Text = " ATTENZIONE "
Else
TextBox2.Text = ""
End If
End Sub

di Patty74 (utente non iscritto) data: 25/12/2009
Whoooo

ho provato il tuo codice va bene,
immagino che questa tex non possa sparire dal
form, domanda stupida!!!.....?
in caso non si possa fare, provo a dimensionare
la tex in modo da coprire il lato destro del form,
e questa singola tex è valida per tutti i commenti.
cosa ne pensi....?

intanto ti sei meritato un bel smack!!!!

smack

di Mabolsie (utente non iscritto) data: 25/12/2009
Ciao patty, spero tu abbia passato un felice natale.
comunque forse ho trovato qualcosa che fa al caso tuo .
per prima cosa apri le proprieta' della txt che usi come note e metti : backcolor= al colore del
form di default=&h8000000f& (grigio).
specialeffect=fmspecialeffectflat.
modifica il codice con quello che ti posto guarda cosa succede e fammi sapere ciao
p.s. ricambio il tuo smack

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
With TextBox2
.BackColor = RGB(255, 0, 0)
.Text = "  ATTENZIONE  "
End With
Else
With TextBox2
.BackColor = &H8000000F
.Text = ""
End With
End If
End Sub

di Patty74 (utente non iscritto) data: 26/12/2009
Ciao mabolsie

attento a non ingrassare con i panettoni....

grazie,
il tuo codice è molto interessante,
ho modificato così,(vedi sotto)
immagino, sei in riposo,
quindi puoi fare con calma,
ma oltre a modificare lo sfondo volevo modificare
anche il bordo della tex di commento, quelle di digitazioni sono riuscita.
cliccando il tgb mettiamo della tex1 mi si colora
con sfondo bianco e con il bordo rosso la tex di commento,
se clicco il tgb della tex 2, la tex di commento
si colora di bianco lo sfondo, e il bordo di bleu.
nel codice sotto ho messo la tex di commento come text 3, è ho fatto in modo che il cursore mi
ritorni sulla tex dove ho cliccato per il commento.
grazie ancora e attento a non ingrassare troppo....

ciao.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
With TextBox3
.BackColor = RGB(255, 0, 0)
.Text = "  ATTENZIONE  "
UserForm1.TextBox1.SetFocus
End With
Else
With TextBox3
.BackColor = &H8000000F
.Text = ""
UserForm1.TextBox1.SetFocus
End With
End If
End Sub

di Patty74 (utente non iscritto) data: 26/12/2009
Ho modificato così, posto tutto il codice così se a qualcuno può servire lo può copiare.

per ultimare mi farebbe comodo così:

cliccando prima sul tgb1, mi appare tex 1, poi
clicco sul tgb2, mi appare tex 2, ora se clicco di nuovo il tgb1, mi sparisce tutto.
invece la tex di commento 2 deve rimanere attiva,
finché non clicco di nuovo il tgb 2, per chiudere tutto.

il tutto per rendere uniforme la form.

Private Sub CdmChiudi_Click()
Unload Me
End Sub

Private Sub CdmChiudi_Enter()
Unload Me
End Sub

         Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
      If IsNumeric(TextBox1) = False Then  'se il valore non è un numero
      MsgBox "Inserire Numeri"    'in questa tex dobbiamo mettere solo numeri
      Cancel = True    'non facciamo uscire se non si mettono numeri nella tex
      TextBox1.SelStart = 0  'impostiamo il punto iniziale del valore da selezionare
      Else
      TextBox1.SelLength = Len(TextBox1)
      End If
            End Sub
       
       
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
           
       If (TextBox2) = "" Then
       MsgBox "Metti Qualcosa nel Box 2"
       Cancel = True
       TextBox2.SelLength = Len(TextBox2)  textbox1
        End If
       End Sub



Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
With TextBox3
.BorderStyle = fmBorderStyleSingle
.BorderColor = RGB(125, 125, 250)
.BackColor = RGB(255, 255, 255)
.Text = "Commento Tex 1  "
UserForm1.TextBox1.SetFocus
End With
Else
With TextBox3
.BorderStyle = fmBorderStyleNone
.BackColor = &H8000000F
.Text = ""
UserForm1.TextBox1.SetFocus
End With
End If
End Sub


Private Sub ToggleButton2_Click()
If ToggleButton2.Value = True Then
With TextBox3
.BorderStyle = fmBorderStyleSingle
.BorderColor = RGB(255, 0, 0)
.BackColor = RGB(255, 255, 255)
.Text = " Commento Tex2  "
UserForm1.TextBox2.SetFocus
End With
Else
With TextBox3
.BorderStyle = fmBorderStyleNone
.BackColor = &H8000000F
.Text = ""
UserForm1.TextBox2.SetFocus
End With
End If
End Sub





Private Sub UserForm_Click()

End Sub

di Patty74 (utente non iscritto) data: 26/12/2009
..........dimenticavo

la nella tex 3 di commento ho messo il colore
uguale alla form, così da risultare invisibile,
quando si cliccano i tgb1 e 2 appare la tex
di commento, relativa al tgb cliccato.

per il momento ringrazio mabolsie per il suo
aiuto,
e aspetto notizie se questo si può fare,
sperando di non chiedere troppo,

ma è risaputo che noi donne siamo incontentabili...

ciao
di Mabolsie (utente non iscritto) data: 26/12/2009
Carissssssima !!! patty

non ho nemmeno fatto in tempo a risolvere l'ultimo tuo problema che già ne proponi un'altro
vabbè, vorrà dire che tra un pisolino e l'altro cercherò di dare una occhiata al tuo ultimo post.
comunque nel codice che ti avrei inviato c'è anche una riga di comando che ti cambia il colore dello sfondo del tgl attivo se vuoi te la inserisco nel nuovo listato.
fammi sapere ciao

di Mabolsie (utente non iscritto) data: 26/12/2009
Ciao patty
ti posto il codice corretto ora tutto funziona mi sono permesso di aggiungere qualcosa, se non dovesse piacerti puoi eliminare le modifiche

alla prossima.

ciao massimo

Private Sub CdmChiudi_Click()
Unload Me
End Sub

Private Sub CdmChiudi_Enter()
Unload Me
End Sub

         Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
      If IsNumeric(TextBox1) = False Then  'se il valore non è un numero
      MsgBox "Inserire Numeri"    'in questa tex dobbiamo mettere solo numeri
      Cancel = True    'non facciamo uscire se non si mettono numeri nella tex
      TextBox1.SelStart = 0  'impostiamo il punto iniziale del valore da selezionare
      Else
      TextBox1.SelLength = Len(TextBox1)
      End If
            End Sub
       
       
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
           
       If (TextBox2) = "" Then
       MsgBox "Metti Qualcosa nel Box 2"
       Cancel = True
       TextBox2.SelLength = Len(TextBox2)
       End If
       End Sub



Private Sub ToggleButton1_Click()
ToggleButton2.Enabled = False
If ToggleButton1.Value = True Then
ToggleButton1.BackColor = RGB(0, 255, 0)
With TextBox3
.BorderStyle = fmBorderStyleSingle
.BorderColor = RGB(125, 125, 250)
.BackColor = RGB(255, 255, 255)
.Text = "Mi pagherai una pizza!!!  "
UserForm1.TextBox1.SetFocus
End With
Else
ToggleButton1.BackColor = &H8000000F
With TextBox3
.BorderStyle = fmBorderStyleNone
.BackColor = &H8000000F
.Text = ""
UserForm1.TextBox1.SetFocus
ToggleButton2.Enabled = True
End With
End If
End Sub


Private Sub ToggleButton2_Click()
ToggleButton1.Enabled = False
If ToggleButton2.Value = True Then
ToggleButton2.BackColor = RGB(0, 255, 0)
With TextBox3
.BorderStyle = fmBorderStyleSingle
.BorderColor = RGB(255, 0, 0)
.BackColor = RGB(255, 255, 255)
.Text = " Anzi due  "
UserForm1.TextBox2.SetFocus
End With
Else
ToggleButton2.BackColor = &H8000000F
With TextBox3
.BorderStyle = fmBorderStyleNone
.BackColor = &H8000000F
.Text = ""
UserForm1.TextBox2.SetFocus
ToggleButton1.Enabled = True
End With
End If
End Sub

di Patty74 (utente non iscritto) data: 26/12/2009
Lo sai che chi dorme non piglia pesci......

ho provato il codice tutto ok!!!!!
devo inserirlo nel mio programma generale....
vediamo se esce fuori qualcosa di diverso

non vorrai mica mollarmi così presto....

dimenticavo un appunto!....

di solito la pizza la devono offrire gli uomini...

a ri smack
di Mabolsie (utente non iscritto) data: 28/12/2009
Patty

sei sparita ??

come va il programma generale ?

ciao
di Patty 74 (utente non iscritto) data: 29/12/2009
Ciao mabolsie

sono con una mia amica e stiamo lavorando insieme
al mini programmino per biancheria intima.

per il momento....

a ri smack
di Mabolsie (utente non iscritto) data: 29/12/2009
Amica ???

biancheria intima ????????

per caso hai un negozio di intimo ?

ciao a presto
di Patty74 (utente non iscritto) data: 29/12/2009
Sei un pochino curioso...........

e' la mia amica che ha il negozietto....

a ri smack
di Mabolsie (utente non iscritto) data: 29/12/2009
Sono molto curioso.......

perchè sei molto simpatica

ciao

p.s. intimo maschile o femminile ??
di Patty74 (utente non iscritto) data: 30/12/2009
Naturalmente femminile....

ciao bello.

divertiti per la fine dell'anno....

per me festa a go go come se piovesse......

by by a presto

a ri smackkkkkk....
di Mabolsie (utente non iscritto) data: 30/12/2009
Auguro anche a te un buon fine anno

sei per caso su qualche chat ??
potremmo fare 4 chiacchere senza rubare spazio ai nostri colleghi programmatori.

mi raccomando intimo rosso e ... " chi non programma l'ultimo dell'anno non programma per tutto l' anno."

auguri ancora

triplo smaaaacckkkk.

ciao
di Patty74 (utente non iscritto) data: 30/12/2009
Bambino curioso.....

dipende dalla tua età......

ci penso....

a ri ri ri smack anche dalle mie amiche....
di Mabolsie (utente non iscritto) data: 30/12/2009
45

uno smack anche alle tue amiche

Vuoi Approfondire?