Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Picturebox + unicode Добавлено: 08.08.11 09:49  

Автор вопроса:  negremd5 | Web-сайт: netlight.kz
Немного другая тема но начала от сюда:
http://www.vbnet.ru/forum/show.aspx?id=216975



 Textbox(M.Form 2) задал шрифт юникод и теперь туда можно скопировав с блокнота текст, вставлять и показывается надо.
 В принцепи мне этого пока достаточно
 Но вопрос теперь немного в другом ..по задумке нужно мне этот текст дублировать в Picturebox для работы... но как оказалось Pic box если даже задать шрифт юникод не может дублировать юникод.
 Может существует альтернатива Pic box ?


[img]http://image.kz/vb17f0ce9da57a97c2c954040c86d23d5[/img]

Ответить

  Ответы Всего ответов: 5  

Номер ответа: 1
Автор ответа:
 negremd5



Вопросов: 4
Ответов: 9
  Web-сайт: netlight.kz
 Профиль | | #1 		Добавлено: 08.08.11 10:01
так же переношу текст в pic box так:
 picture1.print textbox1.text

Ответить

Номер ответа: 2
Автор ответа:
 Ким Чен Ир



Вопросов: 0
Ответов: 140
  Профиль | | #2 Добавлено: 08.08.11 14:38
Pic box если даже задать шрифт юникод не может дублировать юникод

  1.  
  2. Picture1.Font.Charset = 2
  3. Picture1.Print textbox1.text


попробуй так.

Ответить

Номер ответа: 3
Автор ответа:
 negremd5



Вопросов: 4
Ответов: 9
  Web-сайт: netlight.kz
 Профиль | | #3 		Добавлено: 09.08.11 08:26
Так за место символов всех выдает стелочки в пик. боксе

Ответить

Номер ответа: 4
Автор ответа:
 negremd5



Вопросов: 4
Ответов: 9
  Web-сайт: netlight.kz
 Профиль | | #4 		Добавлено: 09.08.11 12:47
говорят помогут функции
DrawTextW
 TextOutW
только дельной инфу желательно с примером найти не могу...может кто знаком

Ответить

Номер ответа: 5
Автор ответа:
 negremd5



Вопросов: 4
Ответов: 9
  Web-сайт: netlight.kz
 Профиль | | #5 		Добавлено: 10.08.11 09:24
  1. Option Explicit
  2. Private Declare Function GetTickCount& Lib "kernel32" ()
  3. Const DC_ACTIVE = &H1
  4. Const DC_NOTACTIVE = &H2
  5. Const DC_ICON = &H4
  6. Const DC_TEXT = &H8
  7. Const BDR_SUNKENOUTER = &H2
  8. Const BDR_RAISEDINNER = &H4
  9. Const EDGE_ETCHED = (BDR_SUNKENOUTER Or BDR_RAISEDINNER)
  10. Const BF_BOTTOM = &H8
  11. Const BF_LEFT = &H1
  12. Const BF_RIGHT = &H4
  13. Const BF_TOP = &H2
  14. Const BF_RECT = (BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM)
  15. Const DFC_BUTTON = 4
  16. Const DFC_POPUPMENU = 5            'Only Win98/2000 !!
  17. Const DFCS_BUTTON3STATE = &H10
  18. Const DT_CENTER = &H1
  19. Const DT_LEFT = &H0
  20. Const DC_GRADIENT = &H20          'Only Win98/2000 !!
  21. Private Type RECT
  22.     Left As Long
  23.     Top As Long
  24.     Right As Long
  25.     Bottom As Long
  26. End Type
  27. Private Declare Function DrawCaption Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long, pcRect As RECT, ByVal un As Long) As Long
  28. Private Declare Function DrawEdge Lib "user32" (ByVal hdc As Long, qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Long
  29. Private Declare Function DrawFocusRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long
  30. Private Declare Function DrawFrameControl Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal un1 As Long, ByVal un2 As Long) As Long
  31. Private Declare Function DrawText2 Lib "user32" Alias "DrawTextW" (ByVal hdc As Long, ByRef lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
  32. Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  33. Private Declare Function OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long
  34. Dim ret As Long, i As Long
  35.  
  36. Private Sub Command1_Click()
  37.  Dim R As RECT
  38.     'Clear the form
  39.     Me.Cls
  40.     'API uses pixels
  41.     Me.ScaleMode = vbPixels
  42.     'Set the rectangle's values
  43.     SetRect R, 0, 0, Me.ScaleWidth, 20
  44.     'Draw a caption on the form
  45.     ret& = GetTickCount&
  46.  
  47.       DrawText2 Picture1.hdc, "Hello World !", Len("Hello World !"), R, DT_LEFT
  48.  
  49. End Sub


Не могу понять почему выводиться текст квадратиками? Может я что то не объявил ещё...

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам