UdtPolygons(7).x = Me.ScaleWidth * 50 \ 4: udtPolygons(7).Y = Me.ScaleHeight UdtPolygons(6).x = Me.ScaleWidth \ 2: udtPolygons(6).Y = Me.ScaleHeight \ 2 UdtPolygons(5).x = Me.ScaleWidth * 50 \ 4: udtPolygons(5).Y = 0 LngPoints(0) = 5 ' 5 points in first polygon UdtPolygons(4).x = udtPolygons(0).x: udtPolygons(4).Y = udtPolygons(0).Y UdtPolygons(3).x = Me.ScaleWidth \ 2: udtPolygons(3).Y = Me.ScaleHeight \ 2 UdtPolygons(2).x = Me.ScaleWidth \ 4: udtPolygons(2).Y = Me.ScaleHeight UdtPolygons(1).x = 0: udtPolygons(1).Y = Me.ScaleHeight \ 2 UdtPolygons(0).x = Me.ScaleWidth \ 4: udtPolygons(0).Y = 0 'Example 2: Create a diamond with antennas: ' x = SetWindowRgn(Me.hWnd, hRegion, True) ' hRegion = CreatePolygonRgn(udtPoints (0), 4, WINDING) ' udtPoints(3).x = Me.ScaleWidth: udtPoints(3).Y = Me.ScaleHeight \ 2 ' udtPoints(2).x = Me.ScaleWidth \ 2: udtPoints(2).Y = Me.ScaleHeight ' udtPoints(1).x = 0: udtPoints(1).Y = Me.ScaleHeight \ 2 ' udtPoints(0).x = Me.ScaleWidth \ 2: udtPoints(0).Y = 0 If Left Width > Screen.Width - 1000 Then Exit Do Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, _īyVal nCount As Long, ByVal nPolyFillMode As Long) As Long LpPol圜ounts As Long, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long Private Declare Function CreatePolyPolygonRgn Lib "gdi32" (lpPoint As POINTAPI, _ Private Declare Function CreateEllipticRgnIndirect Lib "gdi32" _ Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, _īyVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long 'Private Declare Function CreateRectRgnIndirect Lib "gdi32" (lpRect As RECT) As Long 'To make non-round forms use the other API calls to create a region of (ByVal hWnd As Long, ByVal hRgn As Long, _ Private Declare Function SetWindowRgn Lib "user32" _ Private Declare Function DeleteObject Lib "gdi32" _ Private Declare Function CreateEllipticRgn Lib "gdi32" _īyVal X2 As Long, ByVal Y2 As Long) As Long Here is an example that has 3 form loads, two of which are commented, just uncomment them one at a time.: Well it's not real hard to create such an app, but creating the character outline from the form will be.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |