Question

vb高手进！！请教vb高手！！

那个高手能帮忙翻译一下下面的vb代码！！不胜感激！谢谢！！Const Srccopy = &HCC0020
Const Swp_nomove = &H2
Const Swp_nosize = &H1
Const Flags = Swp_nomove Or Swp_nosize
Const hwnd_topmost = -1

Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, _
ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, _
ByVal dwRop As Long) As Long

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, _
ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Long) As Long

Dim pos As POINTAPI
Dim i As Long
Dim sx As Long
Dim sy As Long
Private Sub Form_Load()
setwindow
i = 2
sx = 100
sy = 100
End Sub（虽然分很少但是还是请各位高手帮帮忙！！

Answer 1

Atn
函数
返回一个
Double，指定一个数的反正切值。语法Atn(number)必要的
number
参数是一个
Double或任何有效的数值表达式。说明Atn
函数的参数值
(number)
为直角三角形两边的比值并返回以弧度为单位的角。这个比值是角的对边长度除以角的邻边长度之商。值的范围在
-pi/2
和
pi/2
弧度之间。为了将角度转换为弧度，请将角度乘以
pi/180。为了将弧度转换为角度，请将弧度乘以
180/pi。注意
Atn
是
Tan
的反三角函数，Tan
的参数值为角度，返回直角三角形的两条边的比值。不要将
Atn
和余切函数混淆，余切函数值是正切函数值的倒数，cotangent
=
(1/tangent)。
MSDN你安装了吗？一查就出来了，函数问题

Answer 2

Const Srccopy = &HCC0020
Const Swp_nomove = &H2
Const Swp_nosize = &H1
Const Flags = Swp_nomove Or Swp_nosize
Const hwnd_topmost = -1

'以上是声明了若干常量,&H是整数的16进制表示
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, _
ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, _
ByVal dwRop As Long) As Long

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, _
ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Long) As Long

'以上声明了几个API函数,API函数可以直接调用系统动态连接库的现有函数.lib 后面是动态库名,例如:user32指user32.dll,括号内是参数声明.调用API函数前必须先声明.

Dim pos As POINTAPI
Dim i As Long
Dim sx As Long
Dim sy As Long
'以上声明变量,以下是个过程
Private Sub Form_Load()
setwindow
i = 2
sx = 100
sy = 100
End Sub