Не Смейтесь

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
NITROs
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 08.01.2004 (Чт) 10:45

Не Смейтесь

Сообщение NITROs » 20.03.2004 (Сб) 16:03

Здрасте.Сейчас будет ламерский-преламерский вопрос.Вобщем, как распечатать текст кодом?И если через API, то какие константы нужны для этого,и вобще лучше пример кода.Заранее громадное спасибо, я надеюсь что хоть вопрос и ламерский на него ответят)

Vitaly1
Брехман
Брехман
 
Сообщения: 1578
Зарегистрирован: 30.12.2002 (Пн) 16:35
Откуда: Russia, Mosсow

Сообщение Vitaly1 » 20.03.2004 (Сб) 16:51

Для того, что бы узнать код символа, применяется функция asc(строка), для того, чтобы преобразовать цифру в текст str(число), для того, что бы получить по коду символ chr(код символа).
для взятия символа из строуки функция
MID(строка, начиная с имвола, количесво символов)
Ну вот пример показа десятичных кодов символов строки:


Код: Выделить всё
sub pr(s as string)
  s1=""
  for i=1 to len(s)
   s1=s1+mid(s,i,1) + "="+chr(asc(mid(s,i,1)))+" "
next i
msgbox s1
end sub

SeRRg
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 343
Зарегистрирован: 25.11.2003 (Вт) 20:14
Откуда: Тюмень!

Сообщение SeRRg » 20.03.2004 (Сб) 17:50

М.Б. Ты имеешь ввиду на принтере?
VB - это звучит!

NITROs
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 08.01.2004 (Чт) 10:45

Сообщение NITROs » 20.03.2004 (Сб) 19:02

Да, на принтере.

SeRRg
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 343
Зарегистрирован: 25.11.2003 (Вт) 20:14
Откуда: Тюмень!

Сообщение SeRRg » 20.03.2004 (Сб) 19:48

Не знаю, как другие, а я всегда кодом из сгенеренной программы пользуюсь. М.Б. можно лучше, но я это часто не использую...
Вложения
AppWizard.zip
(6.53 Кб) Скачиваний: 27
VB - это звучит!

NITROs
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 08.01.2004 (Чт) 10:45

Сообщение NITROs » 21.03.2004 (Вс) 7:30

честно-говоря я в представленный код не врубился....

Yurik
Постоялец
Постоялец
 
Сообщения: 553
Зарегистрирован: 08.04.2002 (Пн) 21:09
Откуда: Нижневартовск [Rulez 4ever]

Сообщение Yurik » 21.03.2004 (Вс) 9:16

Елки палки все проще простого!

Код: Выделить всё
Printer.Print Text1.Text
Printer.EndDoc



Вот и все!
Существует не только виртуальная реальность - все будет.

SeRRg
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 343
Зарегистрирован: 25.11.2003 (Вт) 20:14
Откуда: Тюмень!

Сообщение SeRRg » 21.03.2004 (Вс) 9:33

А-а-а. А я делал Printer.Print Text1.text, но он печатал
у меня только после выхода из программы. Теперь понятно.
VB - это звучит!


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 15

    TopList  
cron