gaffre (Normal User)
Pro
 
Messaggi: 65
Iscritto: 17/06/2008
|
Ciao a tutti. Volevo sapere qual'era il codice delle funzioni taglia copia e incolla.
Ecco il mio codice, cosa dbaglio?
Codice sorgente - presumibilmente Plain Text |
Text1.SelText = Cut
Text1.SelText = Copy
Text1.SelText = Paste
|
Inoltre volevo sapere il codice per il comando trova.
|
|
|
Louis (Normal User)
Pro
Messaggi: 150
Iscritto: 22/04/2008
|
Ciao gaffre,
prova in questo modo
Codice sorgente - presumibilmente VB.NET |
Private Sub mnuModTaglia_Click() If TypeOf Screen.ActiveControl Is TextBox Then 'Elimina il contenuto degli Appunti: Clipboard.Clear 'Copia il testo selezionato negli Appunti: Clipboard.SetText Screen.ActiveControl.SelText 'Elimina il testo selezionato: Screen.ActiveControl.SelText = "" End If End Sub Private Sub mnuModCopia_Click() 'Elimina il contenuto degli Appunti: Clipboard.Clear 'Copia il testo selezionato negli Appunti: Clipboard.SetText Screen.ActiveControl.SelText End Sub Private Sub mnuModIncolla_Click() 'Incolla il testo degli Appunti nel controllo attivo: Screen.ActiveControl.SelText = Clipboard.GetText() End Sub Private Sub mnuModElimina_Click() ' Elimina il testo selezionato. Screen.ActiveControl.SelText = "" End Sub
|
|
|
|
gaffre (Normal User)
Pro
Messaggi: 65
Iscritto: 17/06/2008
|
no non funge
|
|
|
Louis (Normal User)
Pro
Messaggi: 150
Iscritto: 22/04/2008
|
Come non funziona, cosa succede ?
Hai modificato il codice (si tratta di VB6)?
|
|
|
gaffre (Normal User)
Pro
Messaggi: 65
Iscritto: 17/06/2008
|
Si è vb6, e ho modificato il codice dove semplicemente mettendo Text1 invece che il nome che gli hai assegnato tu. Ora riprovo e casomai ti posto l'errore.
|
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Forse può andare bene un SendKeys:
Codice sorgente - presumibilmente Visual Basic 6 |
'Taglia il testo selezionato
Text1.SetFocus
SendKeys "^{X}"
'Copia il testo in text1
Text1.SetFocus
SendKeys "^{C}"
'Incolla Il Testo in text1
Text1.SetFocus
SendKeys "^{V}"
|
|
|
|
gaffre (Normal User)
Pro
Messaggi: 65
Iscritto: 17/06/2008
|
grazie funge ora.
invece per trovare una determinata parola in un textBox?
|
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
devi usare la funzione Instr
Codice sorgente - presumibilmente VB.NET |
dim I as integer dim Parola as string Parola = "ciao" I = InStr(I, text1.text, Parola) if I > 0 then text1.selstart = I -1 text1.SelLength = len(Parola) I = I + 1 else I = 1 msgbox "Parola non Trovata" end if Private Sub Form_Load() I = 1 End Sub
|
Questo codice l'ho fatto sul momento (nn l'ho provato)forse darà errore...
cmq la sintassi di Instr è
Instr(1, TestoDoveCercare, ParolaDaCercare)
 
Ultima modifica effettuata da GrG il 18/06/2008 alle 16:20 |
|
|
Louis (Normal User)
Pro
Messaggi: 150
Iscritto: 22/04/2008
|
gaffre,
mi dispiace che non sei riuscito a far funzionare il codice; questo dipende solo dal fatto che l'hai inserito sotto un'icona o sotto un CommandButton e pertanto non sotto una voce di menù. Infatti nei primi due casi il focus non è più sul TextBox e fa fallire la routine; non è cosi nel caso del comando di menù.
Per concludere, prova ad inserire e poi a commentare Text1.SetFocus vedrai che il codice funziona e non funziona:
Codice sorgente - presumibilmente VB.NET |
Private Sub Command1_Click() Text1.SetFocus If TypeOf Screen.ActiveControl Is TextBox Then 'Elimina il contenuto degli Appunti: Clipboard.Clear 'Copia il testo selezionato negli Appunti: Clipboard.SetText Screen.ActiveControl.SelText 'Elimina il testo selezionato: Screen.ActiveControl.SelText = "" End If End Sub
|
|
|
|
