Question

vb放大镜问题！！vb高手进！！帮忙翻译一下！！谢谢！！

vb放大镜问题！！vb高手进！！帮忙翻译一下！！谢谢！！
Private Sub Timer1_Timer()
Dim wx As Integer
Dim wy As Integer
GetCursorPos pos
wx = IIf(pos.x < 50 Or pos.x > 800, IIf(pos.x < 50, 0, 800), pos.x - 50)
wy = IIf(pos.y < 20 Or pos.y > 800, IIf(pos.y < 20, 0, 800), pos.y - 20)
Caption = " 坐标" & wx & "," & wy & "放大倍数=" & i
StretchBlt hdc, 0, 0, sx * i, sy * i, GetDC(0), wx, wy, sx, sy, Srccopy End Sub

Private Sub one_Click()
Timer1.Interval = 0
i = 1
Timer1.Interval = 50
End Sub

Private Sub onewin_Click()
Timer1.Interval = 0
Me.Height = 3000
Me.Width = 3000
sx = 100
sy = 100
setwindow
Timer1.Interval = 50
End Sub

Private Sub threewin_Click()
Timer1.Interval = 0
Me.Height = 3000 * 3
Me.Width = 3000 * 3
sx = 300
sy = 300
setwindow
Timer1.Interval = 50
End Sub

Private Sub two_Click()
Timer1.Interval = 0
i = 2
Timer1.Interval = 50
End Sub

Private Sub twowin_Click()
Timer1.Interval = 0
Me.Height = 3000 * 2
Me.Width = 3000 * 2
sx = 200
sy = 200
SetWindowPos hWnd, hwnd_topmost, 0, 0, 0, 0, Flags
Dim hr&, dl&
Dim usew&, useh&
usew& = Me.Width / Screen.TwipsPerPixelX
useh& = Me.Height / Screen.TwipsPerPixelY
hr& = CreateEllipticRgn(0, 0, usew, useh)
dl& = SetWindowRgn(Me.hWnd, hr, True)
Timer1.Interval = 50
End Sub
希望每一句都能翻译一下！！谢谢！！万分感谢！！

Answer 1

把vbp文件和frm文件发给happyq6@163.com看看
我帮你翻译
楼上的真强
居然用翻译软件翻译
可惜都不是那么回事

Answer 2

二等兵代替 Timer1_Timer()
使如完整的事物 wx 暗淡
使如完整的事物 wy 暗淡
GetCursorPos pos
wx=IIf(pos.x<50 或 pos.x>800 ， IIf(pos.x<50,0,800), pos.x- 50)
wy=IIf(pos.y<20 或 pos.y>800 ， IIf(pos.y<20,0,800), pos.y- 20)
加页眉 =" 坐标 "& wx&","& wy&" 放大倍数="& i
StretchBlt hdc,0,0, sx*i, sy*i ， GetDC(0) ， wx ， wy ， sx ， sy, Srccopy 结束替代人员

二等兵代替 one_Click()
Timer1。间隔 =0
i=1
Timer1。间隔 =50
结束替代人员

二等兵代替 onewin_Click()
Timer1。间隔 =0
我。高度 =3000
我。宽度 =3000
sx=100
sy=100
setwindow
Timer1。间隔 =50
结束替代人员

二等兵代替 threewin_Click()
Timer1。间隔 =0
我。Height=3000 * 3
我。Width=3000 * 3
sx=300
sy=300
setwindow
Timer1。间隔 =50
结束替代人员

二等兵代替 two_Click()
Timer1。间隔 =0
i=2
Timer1。间隔 =50
结束替代人员

二等兵代替 twowin_Click()
Timer1。间隔 =0
我。Height=3000 * 2
我。Width=3000 * 2
sx=200
sy=200
SetWindowPos hWnd ， hwnd_topmost,0,0,0,0, 旗子
使 hr 暗淡&,dl&
使 usew 暗淡&,useh&
usew&=我。宽度 /荧屏。TwipsPerPixelX
useh&=我。高度 /荧屏。TwipsPerPixelY
hr&=CreateEllipticRgn(0,0,usew,useh)
dl&=SetWindowRgn(Me.hWnd ， hr,真实的)
Timer1。间隔 =50
结束替代人员