VB课程设计任务书.docVIP

河北工业大学计算机软件技术基础（VB） 课 程 设 计 任 务 书 本题难度级别：A 实现基本要求代码: 约200行 主要涉及: 图像控件、绘图、控件数组 一、设计题目：电子教鞭 (出题人:朱怀忠) 二、目的与要求1.目的培养学生综合利用语言进行程序设计的能力，主要是。基本要求3.创新要求在基本要求达到后，进行创新设计，。、设计方法和基本原理问题描述问题的解决方案Declare Function GetDC Lib user32 (ByVal hwnd As Long) As Long ‘获得窗口句柄用于抓图 Declare Function ReleaseDC Lib user32 (ByVal hwnd As Long, ByVal hdc As Long) As Long ‘释放窗口句柄 Declare Function BitBlt Lib gdi32 (ByVal hDestDC 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 dwRop As Long) As Long ‘绘图到某个句柄上 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 ‘将窗体置在所有窗体最前面，即置顶函数 Form_Load事件，用于将窗体缩小到右下角 窗体置顶 SetWindowPos Me.hwnd, -1, Me.Left / Screen.TwipsPerPixelX, Me.Top \ Screen.TwipsPerPixelY, Me.Width \ Screen.TwipsPerPixelX, Me.Height \ Screen.TwipsPerPixelY, 0 定位窗体到右下角 Me.Left = Screen.Width - Me.Width Me.Top = Screen.Height - Me.Height – 430 Dbl_Click抓图事件 Me.Hide DoEvents 设定窗体大小 Me.Top = 0 Me.Left = 0 Me.Width = Screen.Width Me.Height = Screen.Height Me.AutoRedraw = True hc = GetDC(0) sx = Screen.Width \ Screen.TwipsPerPixelX sy = Screen.Height \ Screen.TwipsPerPixelY 我抓 BitBlt Me.hdc, 0, 0, sx, sy, hc, 0, 0, vbSrcCopy ReleaseDC 0, hc Me.AutoRedraw = False 显示 Me.Show 设定光标为大光标,方便同学看清楚 Me.MousePointer = 99 Form_KeyUp事件，用于取消绘图 用户按了`,则取消所画进入初始状态 If (KeyCode = 192) Then Me.Cls Exit Sub End If 用户按了esc,则取消截图并返回初始状态 If (KeyCode = vbKeyEscape) Then Me.MousePointer = 0 Me.Width = OriWidth Me.Height = OriHeight Me.Left = Screen.Width - Me.Width Me.Top = Screen.Height - Me.Height - 450 For i = 1 To CommentCount - 1 Unload lblComment(i) Next i CommentCount = 1 Exit Sub End If End Sub 主要用于绘图的Mouse_Move事件，其他两个配合事件Mouse_Down和Mouse_Up自己写 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As