[VB6] Impostare testo "normale" in un RichTextBox

[Zlatan8.]

Ciao a tutti, ho un piccolo problemino...
Ho una richtextbox e un button...Tramite il button faccio diventare il testo della richtextbox in grassetto...Il mio rpoblema è, come faccio a farlo tornare normale il testo una volta che è in grassetto?...Grazie mille a tutti...

[gibra]

Il codice dov'è?

Eppure non sei nuovo del forum...Dovresti saperlo.

[Gandalfrank]

In attesa che tu pubblichi il codice incriminato...

Così a spanne, direi che devi selezionare il testo che vuoi modificare e impostare un nuovo font.

RichTextBox1.SelectionFont = New Font("Arial", 10, FontStyle.Regular)

dove, naturalmente, al posto di ["Arial"] e [10] devi mettere i tuoi parametri e mantenere [FontStyle.Regular] se vuoi il testo normale, non in grassetto.

se invece vuoi che TUTTA la RTB abbia style normale:

RichTextBox1.Font = New Font("Arial", 10, FontStyle.Regular)

Ciao.

SCUSATEMI, ma non ho letto attentamente e mi sono accorto solo ora che è un problema per VB6 e non VB.Net
:rollo:

[Lolling Maso]

Non basta fare un if?
Se il testo è in grassetto diventa normale else diventa grassetto.

[fedrock]

già un if e risolvi tutto lo metti in una checkbox ed il gioco è fatto

[gibra]

Originariamente inviato da Lolling Maso
Non basta fare un if?
Se il testo è in grassetto diventa normale else diventa grassetto.

Cioè?
Che codice dovrebbe scrivere Zlatan8 esattamente?

[gibra]

Originariamente inviato da fedrock
già un if e risolvi tutto lo metti in una checkbox ed il gioco è fatto

Fai un esempio mostrando il codice...

[LMondi]

Ciao Zlatan8.

....Tramite il button faccio diventare ...

se ho capito bene non stai usando un'icona, quindi come ti hanno già suggerito:

Dim s As Long
Private Sub Command1_Click()
    If RTB.SelBold = True Then
       s = RTB.SelStart
       RTB.SelStart = 0
       RTB.SelLength = Len(RTB.Text)
       RTB.SelBold = False
       RTB.SelStart = s
    ElseIf RTB.SelBold = False Then
       s = RTB.SelStart
       RTB.SelStart = 0
       RTB.SelLength = Len(RTB.Text)
       RTB.SelBold = True
       RTB.SelStart = s
    End If
 End Sub

Sarebbe comunque meglio, per queste funzioni, utilizzare le icone.