Help

mercoledì 18 ottobre 2006 - 23.45

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

talkoman Profilo | Junior Member

59 messaggi | Data Invio: mer 18 ott 2006 - 23:45

Ciao a tutti, volevo chiedervi un favore. se in una TextBox inserisco un testo e poi lo voglio riscritto in un'altra TextBox in modo che sia una lettera maiuscola ed una minuscola, come faccio?
Potete aiutarmi?
aspetto vostre notizie
Grazie
Ciao
Luca
www.catanianuoto2000.it
luca@catanianuoto2000.it

MarKonE Profilo | Guru

2.074 messaggi | Data Invio: gio 19 ott 2006 - 00:26

>Ciao a tutti

Ciao

> volevo chiedervi un favore. se in una TextBox inserisco
>un testo e poi lo voglio riscritto in un'altra TextBox in modo
>che sia una lettera maiuscola ed una minuscola, come faccio?

Alternate ? Cioè come in QuEsTo EsEmPiO ?

Potresti procedere in questo modo :
- Leggi il valore contenuto nella prima TextBox e lo associ ad una variabile stringa.

- Conti il numero di caratteri con la funzione Len(stringa)

- Cicli tante volte quanto il numero di caratteri ed "estrai" lettera per lettera con la funzione MID :

TuoCarattere = Mid(stringa, PosCorrente, 1)

Questo codice prende la stringa "stringa" ed estrae "1" carattere dalla posizione "PosCorrente" .

Contestualmente all'estrazione dei caratteri , alternativamente, li converti in maiuscolo o minuscolo con le funzioni UCase e LCase:

UCase(TuoCarattere)
LCase(TuoCarattere)

Alla fine concateni il tutto e lo associ alla seconda textbox....

Tutto chiaro ? Spero di si

Eventualmente se la stringa iniziale consiste in più parole bisogna splittarla con Split(stringainziale) e gestire gli spazi.

>Grazie
>Ciao
>Luca

Ciao

My Blog... http://blogs.dotnethell.it/Mark/

RedStripe Profilo | Newbie

31 messaggi | Data Invio: gio 19 ott 2006 - 01:24

Public Function MyAlternate(ByVal xval As String)
Dim retval As String = ""
Dim pos As Int32
Try
For pos = 0 To xval.Length - 1
If pos Mod 2 = 0 Then
retval += xval.Substring(pos, 1).ToUpper
Else
retval += xval.Substring(pos, 1).ToLower
End If
Next
Catch ex As Exception
retval = xval
Finally
MyAlternate = retval
End Try
End Function

CIAO!

MarKonE Profilo | Guru

2.074 messaggi | Data Invio: gio 19 ott 2006 - 01:32

Credo si riferisse a VB 6.......
My Blog... http://blogs.dotnethell.it/Mark/

RedStripe Profilo | Newbie

31 messaggi | Data Invio: gio 19 ott 2006 - 01:37

Public Function MyAlternate(ByVal xval As String) As String
Dim retval As String
Dim pos As Integer

On Error GoTo exitvalue

For pos = 0 To Len(xval) - 1
If pos Mod 2 = 0 Then
retval = retval + UCase(Mid(xval, pos, 1))
Else
retval = retval + LCase(Mid(xval, pos, 1))
End If
Next

exitvalue:
MyAlternate = retval

End Function

Questa è per VB6
ma il concetto mi sembrava semplice e valido lo stesso..
comunque così dovrebbe andare

CIAO!

talkoman Profilo | Junior Member

59 messaggi | Data Invio: gio 19 ott 2006 - 14:08

ok grazie mille....è invece che codice devo associare ad un pulsante affinche mi copi quello che c'è nella text box?
Cioè premo sul pulsante e copia la text. poi apro word e faccio Incolla e me la incolla. Che codice è?
Luca
www.catanianuoto2000.it
luca@catanianuoto2000.it

MarKonE Profilo | Guru

2.074 messaggi | Data Invio: gio 19 ott 2006 - 17:31

Cerca "clipboard" nell' help.

Ciao
My Blog... http://blogs.dotnethell.it/Mark/

talkoman Profilo | Junior Member

59 messaggi | Data Invio: gio 19 ott 2006 - 18:05

Non ho la msdn....puoi dirmelo tu per favore??
Grazie
Luca
www.catanianuoto2000.it
luca@catanianuoto2000.it

MarKonE Profilo | Guru

2.074 messaggi | Data Invio: gio 19 ott 2006 - 18:32

Codice per copiare :

    'Svuota la clipboard 
    Clipboard.Clear
    'Copia il testo selezionato nella clipboard
     Clipboard.SetText txtBox.SelText

Codice per incollare :

    txtBox.SelText = Clipboard.GetText()

Ciao
My Blog... http://blogs.dotnethell.it/Mark/

talkoman Profilo | Junior Member

59 messaggi | Data Invio: gio 19 ott 2006 - 18:58

Mi dice: Elemento non prelevato....
come mai?
Luca
www.catanianuoto2000.it
luca@catanianuoto2000.it

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !