[工学]第六章VB多媒体程序设计.ppt

第6章VB多媒体程序设计 6.1VB.net概述 6.2初学者工具包 6.3图形图像处理 6.4声音及视频处理 6.1VB.net概述 6.2初学者工具包 6.3图形图像处理 6.4声音及视频处理 Dim bmp As New Bitmap(logo.bmp) Dim x, y As Single 此循环访问位图中的所有像素 For x = 0 To bmp.Width - 1 For y = 0 To bmp.Height - 1 获取当前颜色 Dim oldcolor = bmp.GetPixel(x, y) 设置从（图像左边界）到（图像右边界）的透明度值 Dim newcolor As Color = Color.FromArgb(x / bmp.Width * 256, oldcolor) bmp.SetPixel(x, y, newcolor) Next Next gr.DrawImage(bmp, 400, 20) 运行结果： 6.3.4 版式 .NET框架的版式部分用于以不同字体或样式来输出文本 GDI+仅支持TrueType和OpenType字体，这些字体可被连续缩放、旋转和共享，可不受任何限制地用于屏幕显示和打印输出。 通过指定字体系列和以点为单位的字体大小来创建字体 Dim font1 As New Font(Arial, 12) 通过指定字体系列、字体大小和样式来创建字体 Dim font2 As New Font(Arial, 14, FontStyle.Bold) 通过指定字体系列、字体大小和两个样式组合来创建字体 Dim font3 As New Font(Arial, 16, FontStyle.Italic Or FontStyle.Underline) 通过指定字体系列和以毫米为单位的字体大小来创建字体 Dim font4 As New Font(Arial, 10, FontStyle.Regular, GraphicsUnit.Millimeter) 先创建一个字体系列，然后创建该族的一种字体 Dim fontFam As New FontFamily(Courier New) Dim font5 As New Font(fontFam, 18, FontStyle.Italic) 版式示例一 传递给Font构造函数的字体大小参数是度量大小，而不是以像素为单位的大小，当前页面变形不会影响字的大小（但是，全局变形会影响到文本大小）。 如下所示，可向构造函数传递额外的参数来指定一个具体的GraphicsUnit： Dim font1 As New Font(Arial, 12, GraphicsUnit.Pixel) Dim font2 As New Font(Arial, 14, FontStyle.Bold, GraphicsUnit.Pixel) 不能将GraphicsUnit.Display用于指定字体大小。 使用Graphics对象的DrawString方法可绘制文本。 此方法的最简洁的形式带有如下参数：要绘制的字符串、一个Font对象、一个Brush对象和绘制字符串的位置： 版式示例二 ...（接以上代码）... Dim gr As Graphics = Me.CreateGraphics gr.DrawString(Arial 12 Regular, font1, Brushes.Black, 20, 20) gr.DrawString(Arial 14 Bold, font2, Brushes.Black, 20, 60) gr.DrawString(Arial 16 Italic Underline, font3, Brushes.Black, 20, 100) gr.DrawString(Arial 10 millimeters, font4, Brushes.Black, 20, 140) 注意：目标点可以是一个PonitF对象 gr.DrawString(Courier 18 Italic, font5, Brushes.Black, New PointF(20, 200)) 不再使用Font对象时，要将其销毁 font1.Dispose() font2.Dispose() font3.Dispose() font4.Dispose() font5.Dispose() 运行结果： 版式示例二（续） Dim points() As Point = {New Point(100, 100), New Point(200, 200), _ New Point(25