gaidar писал(а):И не будет ...
Private Sub Command1_Click()
Text1 = "*" & Text1 & "*"
For i = 1 To Len(Text1.Text)
Text2.Text = Text2.Text & "%" & Hex(Asc(Mid(Text1.Text, i, 1)))
Next
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 19