Visual Basic, .NET, ASP, VBScript
 

   
   
     

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

Страница: 1 |

 

  Вопрос: Help !!! TransparentBlt Добавлено: 05.08.04 14:52  

Автор вопроса:  rx | Web-сайт: erix.times.lv | ICQ: 310731115 
Vopros nashot API funkcii TransparentBlt...
Vot primer:
Kod form1:
Private Declare Function GetPixel ....
Private Declare Function TransparentBlt ....
Private Sub Picture1_MouseDown ......
   Picture2.Cls
   TransparentBlt Picture2.hdc, 0,0,
    Picture2.Width / 15, Picture2.Height / 15,
    Picture1.hdc, 0, 0, Picture1.Width / 15,
    Picture1.Height / 15, GetPixel(Picture1.hdc,
    X / 15, Y / 15)
End Sub

Eto rabotajet OTLICHNO !!!!
Tolka, kogda ya dzelaju:
Form1.ScaleMode = 3 (pixel)
Picture1.ScaleMode = 3 (pixel)
Picture2.ScaleMode = 3 (pixel)
I UBIRAJU VSJE tam gdze / 15 - nifiga nirabotajet !!!!!!!!!!!
Vchom problema, podskozhite pozhalsta ?????

Ответить

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

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



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
 Web-сайт: basicproduction.nm.ru
 Профиль | | #1
Добавлено: 06.08.04 20:45
pixel=twip/15

Ответить

Страница: 1 |

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



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