悬浮滑翔纸飞机:我是学医的,如果要考计算机研究生,是算同等学历,还是直接就可以报考

来源:百度文库 编辑:高考问答 时间:2024/05/01 06:40:15
我是学医的,如果要考计算机研究生,是算同等学历,还是直接就可以报考
难度如何?

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SetWindowPos Lib "user32.dll" (ByVal lhwnd As Long, ByVal hWndInsertAfter As Long, ByVal swpX As Long, ByVal swpY As Long, ByVal cX As Long, ByVal cY As Long, ByVal wFlags As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim lngReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
lngReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
If Me.Left >= Screen.Width - (Me.Width * 0.9) Then
Me.Left = Screen.Width - Me.Width
Else
If Me.Left <= -(Me.Width * 0.1) Then
Me.Left = 0
End If
End If
If Me.Top >= Screen.Height - (Me.Height * 0.9) Then
Me.Top = Screen.Height - Me.Height
Else
If Me.Top <= -(Me.Height * 0.1) Then
Me.Top = 0
End If
End If
End Sub

这段代码是VB的,看出它在说什么吗?如果看不出来,你就知道难度了吧。