图像的扭曲

dongdonggege

不知道有没有人做过图像的拉伸和扭曲，就是图像从长方形变成平行四边形。图像扭曲分为水平扭曲和垂直扭曲。
下面这个是我从vb6转过来的vba程序，这里有个问题，我这个得到的是VBE窗口的图像，我想把它改编成实际的image1的图像，不知道哪位大侠愿意帮忙修改，感谢。

dongdonggege

代码：

1. Private Type POINTAPI
   
2.         x As Long
   
3.         y As Long
   
4. End Type
   
5. 
   
6. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
7. Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
   
8. Private Declare Function CreateDIBPatternBrushPt Lib "gdi32" (lpPackedDIB As Any, ByVal iUsage As Long) As Long
   
9. Private Declare Function PlgBlt Lib "gdi32" (ByVal hdcDest As Long, lpPoint As POINTAPI, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hbmMask As Long, ByVal xMask As Long, ByVal yMask As Long) As Long
   
10. Private Declare Function PatBlt Lib "gdi32" (ByVal HDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal dwRop As Long) As Long
    
11. Private Declare Function SelectObject Lib "gdi32" (ByVal HDC As Long, ByVal hObject As Long) As Long
    
12. Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
    
13. Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal HDC As Long) As Long
    
14. 
    
15. Private Const PI As Double = 3.1415926
    
16. 
    
17. Private Sub CommandButton1_Click()
    
18.     Dim pt(0 To 3) As POINTAPI
    
19.     dThetaDeg = 3 '扭曲度数
    
20.     Sida = dThetaDeg * PI / 180
    
21.     dx = UserForm1.Width '300
    
22.     dy = UserForm1.Height '300
    
23.     pt(0).x = dx * Sin(Sida)
    
24.     pt(0).y = dy - dy * Cos(Sida)
    
25.     pt(1).x = pt(1).x + dx * Cos(Sida)
    
26.     pt(1).y = pt(1).y + dx * Sin(Sida)
    
27.     pt(2).x = 0
    
28.     pt(2).y = dy
    
29.     pt(3).x = pt(2).x + dx * Cos(Sida)
    
30.     pt(3).y = pt(2).y + dx * Sin(Sida)
    
31.     hwnd& = FindWindow(vbNullString, "UserForm2")
    
32.     HDC = GetDC(hwnd)
    
33.     PlgBlt HDC, pt(0), GetDC(0), 0, 0, 100, 100, ByVal 0&, ByVal 0&, ByVal 0&
    
34. End Sub

复制代码

请大侠帮忙修改

dongdonggege

请问带图像的控件，怎么做？

dongdonggege

哈哈，出来了，见图片，有个缺点，有锯齿。稍后上代码

dongdonggege

再看第2幅，这是平行四边形的。

lujkhua

dongdonggege 发表于 2017-3-28 09:12
再看第2幅，这是平行四边形的。

怎么实现的？