[vb6] rtf caselle di testo

[ciro78]

Salve.Avrei deciso di realizare un'applicazione tipo il notepad molto semplice.Il mio manuale mette un codice incomprensibile.

Mi dice di definire per il testo grassetto(per esempio) il valore nella classe generale e poi scrivere una cosa del genere dopo con un bottone

private sub command1_click()
rt1.SelBold = not(rt1.SelBold)
end sub

ovviamente rt1 è la casella di testo

Il tutto non funziona e l'ho impostato così

Private Sub Command1_Click()
Static x As Double
x = x + 1
If x = 1 Then
rt1.SelBold = True
rt1.SetFocus

End If
If x <> 1 Then
rt1.SelBold = False
x = 0

rt1.SetFocus
End If
End Sub

funziona ma presenta il problema che se torno indietro con il cursore,non viene settato correttamente
Inoltre vorrei che il pulsante restsasse selezionato in modo da capire che lo srtato è impostato su grasseto

[ciro78]

up