Newsgroup: it.comp.lang.visual-basic
Titolo: Rich text box

Ciao a tutti,nel mio piccolo progetto cè un editor di testo dove vengono 
scritti diversi dati presi da alcuni controlli posti sullo stesso form,per 
scrivere nel controllo rich tex box nel punto esatto toccato dal mouse 
utilizzo il seguente codice inserito nelle dichiarazioni del form :
Sub InsertAtCursor(a As String)
start% =richtexbox1.SelStart
richtexbox1.Text = Left$(richtexbox1.Text, start%) & a & Chr$(13) & Chr$(10) 
& Right$(richtexbox1.Text, Len(richtexbox1.Text) - start%)
richtexbox1.SelStart = start% + Len(a) + 2
End Sub
fin qui funziona tutto perfettamente,ora avrei bisogno di utilizzare  questa 
stessa funzione non solo con un form ma con altri,insomma voglio che vengano 
inseriti dati nello stesso richtext(nel punto indicato dal cursore appunto) 
ma presi anche da controlli di altri form aperti,come potrei procedere per 
rendere appunto globale quel pezzetto di codice?credo sia piuttosto semplice 
come problema vero?vi ringrazio dell'attenzione,ciao! 

 come problema vero?vi ringrazio dell'attenzione,ciao! 
siamo alle basi basi della programmazione.
copia la funzione in  un modulo, applicale il modificatore Public ed
aggiungi un argomento per passare la RichTextBox su cui operare:
' diamo un nome parlante alle variabili, per favore
Public Sub InsertAtCursor(ByVal testo As String, ByRef rtf as RichTextBox)
	' internamente non si riferisce piu` ad alla specifica
	' richtextbox della versione originaria, ma a quella
	' ricevuta come argomento
    Dim start As Integer
    start = rtf.SelStart
    ' ... altro codice ...
End Sub
-- 
ciao, hal


Ciao,sei stato gentilissimo(il codice è preso da un vecchio sorgente credo 
fatto in vb4!!! :-),ho provato a fare il modulo.bas come mi hai detto cosi : 
(txtNoteorc è il nome del richtexbox )
Option Explicit
Public Sub InsertAtCursor(ByVal testo As String, ByRef rtf As txtNoteorc)
Dim start As Integer
start = rtf.SelStart
'start% = txtNoteorc.SelStart
txtNoteorc.Text = Left$(txtNoteorc.Text, start%) & a & Chr$(13) & Chr$(10) & 
Right$(txtNoteorc.Text, Len(txtNoteorc.Text) - start%)
txtNoteorc.SelStart = start% + Len(a) + 2
End Sub
però non funziona,mi da errore appena si apre il programma(user-defined type 
not defined),scusami ma sono davvero un dilettante alle prime armi!


ma poi per richiamarla quando serve è identico a come facevo prima?ad 
esempio cliccando un pulsante :
InsertAtCursor ("a") & (Text4.Text) & Chr$(9) & ("10000") & Chr$(9) & 
(Text2.Text)
perchè il programma ora si accende ma non appena richiamo la funzione quando 
serve mi da errore,di sicuro sbaglio qualcosa a dichiararla nel modulo bas, 

 txtNoteorc.Text = Left$(txtNoteorc.Text, start%) & a & Chr$(13) & Chr$(10) & 
all'interno della sub devi usare la variabile in argomento, nell'esempio
che ti ho fatto e` rtf.
comunque, scusa  se mi permetto, ma  queste cose non  si chiedono  in un
newsgroup, prima si studiano almeno i rudimenti,  possibilmente partendo
da un libro.
-- 
ciao, hal

 modulo bas,
Scusa eh?!
Ma prima di scrivere codice bisognerebbe almeno arrivare in fondo alla 
pagina 1 di un libro di VB o di programmazione in genere.
Ciao 

 ha scritto nel messaggio 
news:441037f9$0$36924$4faf...@reader3.news.tin.it...

cè qualcun'altro che vuole insultare?se sapevo già tutto non venivo certo 
qua,o forse questo è un newsgroup a cui si accede tramite requisiti?(a parte 
che un modulo.bas,funzioni,ecc..non mi sembra siano argomenti da pag.1 se 
vogliamo essere precisi....per un dilettante come me non sono semplici,non 
so che dirvi),se in questo periodo mi è venuto il pallino dell'informatica e 
voglio perdere un po di tempo della mia vita a giocare con il VB dovrei 
proibirmelo?non mi sembra che con un paio di messaggi(per voi inutili,lo 
capisco perfettamente) abbia creato chissa quale danno a questo newsgroup ma 
se è cosi eviterò in futuro di rompervi le scatole;permettetemi solo una 
battuta finale,io nella vita faccio il musicista e quando mi telefona un 
quarantenne(che nella vita magari manda avanti una ditta di surgelati!) 
chiedendomi "Voglio studiare chitarra jazz!"...di certo non lo mando a quel 
paese dicendogli di aprire prima la pag.1 di un canzoniere con gli hit di 
Sanremo!cordiali saluti.
Giorgio