Visual Basic 6 - Maiuscolo

Ecco il codice:

Private Sub Command1_Click()
Dim A As Integer

A = Val(Text2.Text)

If A >= 2000 And A <= 2006 And Text1.Text = "Giurisprudenza" Then
Label1.Caption = "Studenti Laureati"
ElseIf A >= 2007 And A <= 2009 And Text1.Text = "Medicina" Then
Label1.Caption = "Studenti non Laureati"
ElseIf A >= 2010 And A <= 2012 And Text1.Text = "Ingegneria" Then
Label1.Caption = "Studenti in piena attività"
Else
Label1.Caption = "Errore Dati"
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Label1.Caption = ""
Text1.SetFocus

End Sub

Private Sub Command3_Click()
End

End Sub

Questo è tutto il codice. Qual è l'errore?

cos'è? un indovinello?

E' la continuazione di un thread precedente.

Ma non tutti lo sanno e quindi devi spiegare tutto da zero a chi ti segue per la prima volta.

A parte il fatto che il thread non si può chiamare più Maiuscolo dato che non è questo il problema.

Infine, il problema di cui parli, con il codice mostrato, non lo evidenzio. Non si sa cosa tu faccia per avere quel problema ...

Guarda ... prova a zippare il progetto intero e metterlo a disposizione per scaricarlo e provarlo ...

Il problema è scritto su un libro, molto banale. Il problema è risolto come ho scritto, ora volevo aggiungere una mia curiosità, cioè capire come inserire solo la prima lettera in maiuscolo, mi sta aiutando nessuno con molta pazienza e devo solo ringraziarlo.

Comunque ora vi allego il progetto.

Guarda ... tagliamo la testa al toro ... tra la riga

Dim A As Integer

e la

A = Val(Text1.Text)

inserisci semplicemente la

Text2.Text = StrConv(Text2.Text, vbProperCase)

e vedi se va bene.

No, non fa proprio niente. Scusa ma non puoi provare pure tu? Se vedi non funziona. Come mai?

Ho provato e funziona perfettamente.

Magari dicci esattamente cosa fai ... azione dopo azione ...

Io inserisco il primo dato nella Text1 poi dopo passo alla Text2...e lì inserisco la prima lettera...e il caret si sposta nuovamente indietro e non dopo. A te funziona?