Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: osmor Как-то так
Dim ANSI(90) As Long Dim UNICODE(90) As Long Dim i As Integer Dim j As Integer i = 1 For j = 178 To 252 Step 2 ANSI(i) = j UNICODE(i) = 1328 + (j - 176) / 2 i = i + 1 ANSI(i) = j + 1 UNICODE(i) = 1376 + (j - 176) / 2 i = i + 1 Next j ANSI(i) = 39: UNICODE(i) = CLng("&H587") i=i+1 ANSI(i) = 183 : UNICODE(i) = 8226 i=i+1 ....... и т.д.
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.