Visual Basic, .NET, ASP, VBScript
 

   
   
     

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

Страница: 1 |

 

  Вопрос: как вырезать несколько областей на форме? Добавлено: 19.02.14 14:53  

Автор вопроса:  Vitalysan®
Доброго всем времени.
Не получается добиться успеха в данном вопросе. Не могу вникнуть в API-функции...
Задача: вырезать несколько областей на форме.
Пока получилось вырезать только одну с координатами 0,0,10,10:
    
Dim lngSkin As Long, lngCut As Long
    lngSkin = CreateRectRgn(0, 0, ScaleWidth, ScaleHeight)
    lngCut = CreateRectRgn(0, 0, 10, 10)
    Call CombineRgn(lngSkin, lngSkin, lngCut, 4)
    Call SetWindowRgn(hwnd, lngSkin, True)


Надо вырезать область с координатами 0,20,10,30

По идее надо работать уже с этой областью:
lngVotEtaOblast = CombineRgn(lngSkin, lngSkin, lngCut, 4)


    lngSkin = CreateRectRgn(0, 0, ScaleWidth, ScaleHeight)
    lngCut = CreateRectRgn(0, 0, 10, 10)
    lngVotEtaOblast = CombineRgn(lngSkin, lngSkin, lngCut, 4)
    lngCut = CreateRectRgn(0, 20, 10, 30)
    Call CombineRgn(lngVotEtaOblast, lngVotEtaOblast, lngCut, 4)
    Call SetWindowRgn(hwnd, lngVotEtaOblast, True)


но результат....
Может кто подскажет как работать с регионами?
Заранее благодарен

Ответить

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

Номер ответа: 1
Автор ответа:
 Vitalysan®



Вопросов: 24
Ответов: 60
 Профиль | | #1 Добавлено: 19.02.14 21:06
Вроде как разобрался....пока проблема с большим количеством переменных. Завтра попробую, может пойму CreatePolygonRgn

Ответить

Страница: 1 |

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





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