[vb6] Problema con variabili

[ciro78]

Ciao a tutti ho due pulsnati e una casella di testo.

Premendo il pulsnate 1 devo scrivere un valore nella casella di testo(ok)
Premo il pulsante 2 e imposto che una variabile =si
se questo viene verificato il contenuto della casella di testo deve ripartire da zero se riprmo il pulsante 1

uso il seguente codice

Private Sub Command1_Click()
If valore = "si" Then
Text1.Text = ""
Else
Text1.Text = Text1.Text & ciro
valore = "no"

End If
End Sub

Private Sub Command5_Click()
Dim valore As String
valore = "si"


Print valore

End Sub

[codo82]

La variabile 'valore' è dichiarata globalmente? se no prova a dichiararla, altrimenti facci capire meglio quale è il problema perchè da quello che hai scritto non si capisce molto

[ciro78]

dovresti spiegarmi prima globalmente che vuol dire.....
sono agli inizi

come vedi dal codice poi cliccando su uno la stringa text.text aumenta sempre di + perchè aggiungo sempre ciro.io vorrei invece che premendo un pulsnate questo non accada(il ciclo if)
premedno questo pulsnate text1.text deve restare visibile poi stabilisco che sia uguale al nulla e poi aggiungo quello ke voglio

[codo82]

per globalmente intendo di scrivere all'inizio del listato(prima di tutte le Sub:

Dim valore As String

[ciro78]

si l'ho fatto
il problema è che non me la legge


dovevo toglierla da una routine grazie

[codo82]

Così funziona:

Dim valore, ciro As String

Private Sub Command1_Click()
    If valore = "si" Then
        Text1.Text = ""
        valore = "no"
    Else
        Text1.Text = Text1.Text & ciro
    End If
End Sub

Private Sub Command5_Click()
    valore = "si"
    Print valore
End Sub

Private Sub Form_Load()
    ciro = "pp"
End Sub

...Se ho capito quello che deve fare

[ciro78]

grazie

sei un tesoro