Chtělo by to větší znalost příkazů pro VB6. Doporučuji knihu "Programování ve VB6" od j.Pokorného a M.Kvocha. Luboš
Option Explicit
Private Sub Command1_Click()
Dim str As String
str = Text1.SelText
If str <> "" Then
Text1.Text = Replace(Text1.Text, str, "(" & str & ")", , 1)
End If
End Sub
|