Newsgroup: it.comp.lang.visual-basic
Titolo: Spiriti del codice

 Nel 2011 appena cominciato, nuovo zecca, non di dobrebbe credere a certe 
cose, e manco parlarne, quindi chiedo aiuto qui sul ng per trovare una 
spiegazione un po meno esoterica.
Antefatto: alla fine di formload una label.caption prende il valore di una 
variabile, e appare a video easttamente uguale alla variabile. Sempre, con 
tutte le parole, tranne una, e solo se scritta in un certo modo.
If var = "Affittacamere" then Lalebl1.Caption = "Affittacamere"    -> 
"AffittaCAMERE"
If var = "Affittacamere" then Lalebl1.Caption = "Affitta camere"    -> 
"Affitta CAMERE"
If var = "Affittacamere" then Lalebl1.Caption = "Affittacamere "    -> 
"AffittaCAMERE "
If var = "Affittacamere" then Lalebl1.Caption = "Affitta camere"    -> 
"Affitta CAMERE"
If var = "Affittacamere" then Lalebl1.Caption = "affittacamere"    -> 
"affittaCAMERE"
If var = "Affittacamere" then Lalebl1.Caption = "Affittacamer"       -> 
"Affittacamer"
Come fare per valorizzare la caption a "Affittacamere"?
Ho provato anche la strconv, funziona per tutto minuscolo o maiuscolo ma 
vbproercase
-- 
Greg 

 
Se noti sei tu che non gli metti l'ultima lettera :D

Loganino ha scritto:

Infatti omettendo l'ultima lettera non converte la mezza in maiuscolo.
Lo davo per scontato mameglio precisare:
- la stranezza succede solo con questa parola, infatti basta togliere una 
lettera e il problema sparisce;
- la suddetta parola l'ho cercata in tutto il progetto, casomai gli avessi 
attribuito un valore o significato inaltri punti del programma, e ovviamante 
oltre a questa non vi sono altre ricorrenze.
-- 
Greg 

 
Guarda si dovrebbe vedere il progetto nella sua interezza. Cosï¿œ mi ï¿œ un po'
impossibile darti un chiarimento. Di suo come hai ben visto ï¿œ un
comportamento anomalo. Sicuro che la Label sia quella standard e non usi
altri ocx? vedi qualche proprietï¿œ della Label o qualche funzione che spezzi
una parola e ne capitalizzi la metï¿œ. 
Hai provato a creare un progetto ex novo ed inserire solo quel controllo per
vedere se ï¿œ un problema di ambiente che magari ï¿œ saltato?

 saltato?
Con progetto nuovo il problema sparisce, quindi l'ambiente � ok.
C'� qualcosa nel progetto che induce a quel comportamento strano, ma cosa e 
perch�?
Mai vista una roba del genere
-- 
Greg 

 
Se puoi ed il progetto non ha dipendenze esterne puoi inviarmi il progetto
zippato al mio indirizzo, vedrò di darci un'occhiata :)
mailto:   mrlogan...@yahoo.itQUESTO

Loganino ha scritto:

Il progetto non posso mandarlo ma... preciso ancora meglio:
FormLoad
.....
.....
 lbH.Caption = "Affitta" & "" & "camere"
(Visualizza nella labl "AffittaCAMERE")
End Sub
-- 
Greg 

greg ha scritto:
Ho trovato questa funzione dimentcata:
Function cNome(xCaption As String, Sing As Boolean)
    If Sing = True Then
                cNome = Replace(xCaption, "Camera", CamSingolare, , , 1)
                cNome = Replace(xCaption, "CAMERA", CamSingolare, , , 1)
        Else
            cNome = Replace(xCaption, "Camere", CamPlurale, , , 1)
            cNome = Replace(xCaption, "CAMERE", CamPlurale, , , 1)
    End If
End Function
ma qui non viene invocata.
Inoltre la funzione cerca "Camere" e non "camere"
-- 
Greg 

 Ho trovato questa funzione dimentcata:
L'ho disattivata momentaneamete, non era lui.
Lo spiritello maligno � altrove!
-- 
Greg 

 End Sub
Un'altra cosa strana č che se metto una msgbnox il problema sparisce, ma non 
posso lasciare la msgbox!
FormLoad
.....
.....
 lbH.Caption = "Affitta" & "" & "camere"
msgbox lbH.caption
(Visualizza nella labl "Affittacamere" correttamente)
End Sub
-- 
Greg 

 
Devi controllare bene, attentamente, se hai quella funzione che ti mette in
maiuscolo le parole allora sarà sicuramente chiamata da qualche parte.
Altrimenti non si spiega il fatto che tu assegni un valore normale e ti esca
maiuscolo in parte. Controlla i vari eventi della Label (tipo l'evento Change). 

greg ha scritto:
ecco trovato lo spiritello (in activate e non in load):
    If TypeOf C Is Label Then C.Caption = Replace(C.Caption, "Camere", P, , 
, 1)
cambiata in:
    If TypeOf C Is Label Then C.Caption = Replace(C.Caption, "Camere", P, , 
, 0)
-- 
Greg