VB课程设-电子教鞭设计报告.docVIP

电子教鞭设计报告 学院 材料学院 班级 材料074 学号 072004 姓名 成绩 一、设计思路 1.要达到的目的 程序可以对屏幕进行抓图并全屏幕显示 可以在抓到的图上进行画线，画矩形，进行文字标注等简单处理 通过菜单进行更多功能间的转换 可以加箭头 2.关键问题的解决 设计程序界：在窗体双击事件时，利用API抓取屏幕图像 画线：可以采用Pset函数配合Mouse_down Mouse_move Mouse_up来进行 画矩形：用line方法加B参数，并把当前的DrawMode设置为Xor模式,达到鼠标移动并按Ctrl键或Alt键时画出矩形的效果 添加文字标注：采用textbox和label控件数组相配合完成，并利用commondialog控件改变颜色字体 加箭头：使用三个line控件 清屏：用cls语句实现，并将label的visible属性改变为false 退出：用unload语句 菜单设计：建立浮动菜单 二、模块之间的调用关系，或程序流程图 该程序的功能在一个窗体中即可实现。另一模块中的内容只作为对API函数的声明。 三、部分程序关键源代码及注释 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 =