Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Рисование на PictureBox, проблемы с кодировкой 
V
    Опции темы
Wanderer2019
Дата 21.12.2006, 11:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 937
Регистрация: 3.12.2004
Где: Санкт-Петербург/П рага

Репутация: нет
Всего: 17
Привет!
При рисовании на PictureBox русских букв слетает кодировка и рисуется что то напонятно...
кто нибудь сталквался? как бороться?

Код

Picture1.CurrentX = Picture1.Width - 3100
    Picture1.CurrentY = Picture1.Height - 870
    Picture1.Print "мой текст"
PM ICQ MSN   Вверх
Naghual
Дата 21.12.2006, 11:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
А задать этому ПикчерБоксу шрифт перед рисованием пробовал?


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Voldemar2004
Дата 21.12.2006, 11:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23
Может, у тебя на компе проблема с кодировкой. Попробовал у себя все нормально. В свойстве Font - попробуй поменять шрифты. Или на крайняк в Tools->Options->Editor Format - попробуй там.


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
Wanderer2019
Дата 21.12.2006, 11:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 937
Регистрация: 3.12.2004
Где: Санкт-Петербург/П рага

Репутация: нет
Всего: 17
да нет, все.. разобрался... делаю FontIndirect из API, где указываю кодировку.
Все работает. 
PM ICQ MSN   Вверх
Naghual
Дата 21.12.2006, 12:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Тогда, пожалуйста, для последователей приведи код решения.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Wanderer2019
Дата 21.12.2006, 12:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 937
Регистрация: 3.12.2004
Где: Санкт-Петербург/П рага

Репутация: нет
Всего: 17
Код

   Private Declare Function CreateFontIndirect Lib "gdi32" Alias _
     "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
 Private Declare Function SelectObject Lib "gdi32" (ByVal hdc _
     As Long, ByVal hObject As Long) As Long
Private Const LF_FACESIZE = 32
 Private Type LOGFONT
     lfHeight As Long
     lfWidth As Long
     lfEscapement As Long
     lfOrientation As Long
     lfWeight As Long
     lfItalic As Byte
     lfUnderline As Byte
     lfStrikeOut As Byte
     lfCharSet As Byte
     lfOutPrecision As Byte
     lfClipPrecision As Byte
     lfQuality As Byte
     lfPitchAndFamily As Byte
     lfFaceName As String * LF_FACESIZE
   End Type

Dim font As LOGFONT
     Dim hFont As Long
     Const FONTSIZE = 14 ' Desired point size of font
     font.lfEscapement = 0    ' 180-degree rotation
     font.lfFaceName = "Arial" & Chr$(0) 'Null character at end
     font.lfCharSet = 1 'кодировка по умолчанию
     font.lfHeight = (FONTSIZE * -20) / Screen.TwipsPerPixelY
     hFont = CreateFontIndirect(font)


SelectObject Picture1.hdc, hFont

Picture1.CurrentX = 0
    Picture1.CurrentY = 0
    Picture1.Print "мой текст"


Это сообщение отредактировал(а) Wanderer2019 - 21.12.2006, 15:46
PM ICQ MSN   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0963 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.