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

   
   
     

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

Страница: 1 |

 

  Вопрос: Где то ошибка подскажите... Добавлено: 22.02.04 22:34  

Автор вопроса:  Poletaev_R

ActiveX контрол с элементом Picture1. Код такой.

Private Sub UserControl_Resize()
UserControl.Size Image1.Width, Image1.Height
End Sub

Public Sub Print_TXT(OutObjekt As Object, TxtString As String, X As Long, Y As Long, _
MaxWidth As Long, MaxHeight As Long)Dim i As Long
Dim j As Long
Dim Index As Long
Dim ArrayTXT() As Long

Index = 0

'Picture1.ScaleMode = vbPixels
Picture1.Width = MaxWidth
Picture1.Height = MaxHeight
Picture1.Cls
Picture1.Print TxtString

ReDim ArrayTXT(MaxWidth * MaxHeight)

For i = 0 To MaxWidth - 1
    For j = 0 To MaxHeight - 1
    Index = Index + 1
    ArrayTXT(Index) = Picture1.Point(i, j)
    Next j
Next i

'Печать из ArrayTXT() в объект OutObjekt методом Pset
'OutObjekt.ScaleMode = vbPixelsIndex = 0

For i = X To MaxWidth + X - 1
    For j = Y To MaxHeight + Y - 1
    Index = Index + 1
    OutObjekt.PSet (i, j), ArrayTXT(Index)
    Next j
Next i
OutObjekt.ScaleMode = vbTwips
End Sub

Подскажите, где глючит (вроде что-то с Twips)? не пойму.

И еще, как ускорить работу, может кто зает?

Ответить

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

Номер ответа: 1
Автор ответа:
 NeForm@t



ICQ: 252999255 

Вопросов: 36
Ответов: 247
  Web-сайт: g--k.newmail.ru
 Профиль | | #1 		Добавлено: 22.02.04 22:41

Аууу, ты наверно не знаешь что можно так:

picture1.print "edfdf"

=)))

Ответить

Номер ответа: 2
Автор ответа:
 Poletaev_R



Вопросов: 5
Ответов: 2
  Профиль | | #2 Добавлено: 22.02.04 23:03

Нет, про метод Print я знаю!!!

А вопрос возник так как мне нужно печатать текст в ограниченной области!

OutObject - объект где печатаю

X,Y координаты начала печати

MaxWidth,MaxHeight размер области печати.

Ответить

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


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
  Web-сайт: sharpc.livejournal.com
 Профиль | | #3 		Добавлено: 22.02.04 23:38

Если мне не изменяет склероз, то одним из параметров API DrawText является длинный указатель на структуру RECT, содержащую область для вывода...

Ответить

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


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
  Web-сайт: sharpc.livejournal.com
 Профиль | | #4 		Добавлено: 22.02.04 23:39

Если мне не изменяет склероз, то одним из параметров API DrawText является длинный указатель на структуру RECT, содержащую область для вывода...

Ответить

Страница: 1 |

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



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