多媒体软件设计技术 (陈启安)第6章.ppt

第6章 图形、 图像程序设计技术 6.1 Visual Basic图形图像技术 图 6.1 窗体的坐标系统 表 6.1 VB5.0可以使用的图形文件 图 6.3 多幅画面间切换四种图像特技 图6.4 “真彩色画板”用户界面 6.2 利用Visual Basic进行图像处理 图 6.5 平滑移动文字窗体设计 图 6.6 图像的滚动显示窗体设计 图 6.7 程序运行后的捕捉结果 图6.8 滤镜效果窗体设计 图 6.10 油画效果 Picture2.Refresh Label3.Visible = True DoEvents A = 1 B = 1 xx = Picture2.ScaleWidth yy = Picture2.ScaleHeight For x = 0 To xx For y = 0 To yy pi = Picture2.Point(x, y) Red = (pi Mod 256) Green = (((pi And HFF00) / 256) Mod 256) Blue = ((pi And HFF0000) / 65536) If (Red + Green + Blue) / 3 128 Then Picture2.PSet (x, y), RGB(0, 0, 0) Else Picture2.PSet (x, y), RGB(255, 255, 255) End If Next y Next x Picture2.Refresh Label3.Visible = False End Sub Private Sub Command4-Click() ′灯光效果， 如图6.12所示 图 6.12 灯光效果 ′灯光滤镜的算法很多， 这里介绍一种小口径灯光滤镜， 具体算法是取一点为光源（这′里以30， 40为例），从光线末端开始向光源点逐渐增加亮度（向白色接近） Dim pi1, pi2 Dim x, y Dim A, B As Integer Dim Red, Green, Blue As Integer Picture2.Picture = Picture1.Picture DestDC = CreateCompatibleDC(SourceDC) ′在内存中建立系统显示器的句柄 ′建立与系统显示器相兼容的位图的句柄， rWidth和rHeight分别为该位图的宽和高 BHandle = CreateCompatibleBitmap(SourceDC, rWidth, rHeight) ′选定上面创建的位图句柄为内存句柄的当前选择， 即： 将位图与内存相关联 SelectObject DestDC, BHandle  ′将系统显示器上以(Lt,Top)为坐标的宽度为rWidth、 高度为rHeight的位图区域画图给所建立的 ′内存区域 BitBlt DestDC, 0, 0, rWidth, rHeight, SourceDC, Lt, Top, HCC0020  Wnd = Screen.ActiveForm.hwnd ′Wnd=当前活动窗体的句柄 OpenClipboard Wnd ′指定由当前活动窗体独占使用剪贴板 EmptyClipboard ′将剪贴板清空 SetClipboardData 2, BHandle ′将内存中的位图拷贝到剪贴板 CloseClipboard ′关闭独占方式 DeleteDC DestDC ′删除DestDC ReleaseDC DHandle, SourceDC ′释放DHandle, SourceDC End Sub ′单击Command1后， 将捕捉屏幕图像， 并放到Picture1中Sub Command1-Clic