Post #15
· Nov 14, 2005, 2:55 PM
#14825
ElementC wrote:
Evo jos jedno pitanje...
koji je kod za napravit neki text u text fieldu bold, italic i underline kad se pritisne odgovarajuci botun...
Private Sub tbrTxtEdit_ButtonClick(ByVal Button As Button)
Select Case Button.Key
? ?Case "btnBold":
? ? ? ?
End Sub
e do tu sam, jos cu dodat:
Case "btnItalic":
i
Case "btnUndrln":
e sad ne znam koja komanda je da bi se neki selectirani text pretvorio u bold, italic ili underline...
btw, txt box gdje se pise text zove se "txtWorkspace"...
Hvala unaprijed 
Obicni VB TextBox ne podrzava stvari koje navodis (bold,italic,underline...).
Za to trebas korisiti RichTextBox.
Nju mozes naci pod:
Project -> Components -> Microsoft Rich Textbox Control 6.0.
Ubaci je na formu,nazovi txtWorkspace i koristi svojstva SelBold,SelUnderline i SelItalic.
Evo ti jednog malog primjera:
Private Sub Command1_Click()
If txtWorkspace.SelItalic Then
txtWorkspace.SelItalic = False
Else
txtWorkspace.SelItalic = True
End If
If txtWorkspace.SelBold Then
txtWorkspace.SelBold = False
Else
txtWorkspace.SelBold = True
End If
If txtWorkspace.SelUnderline Then
txtWorkspace.SelUnderline = False
Else
txtWorkspace.SelUnderline = True
End If
End Sub
Klikom na ovaj gumb provjerava se da li je odabrani tekst podebljan,ako nije onda se postavlja na bold,i obratno,ako jest onda vise nece biti.
Ista stvar vrijedi i za Italic i Underline.
Hope this helps!
Welcome! 
.
