vb.net GDI+

最新推荐文章于 2025-10-30 10:49:34 发布
原创 最新推荐文章于 2025-10-30 10:49:34 发布 · 1k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#gdi+ #vb.net #colors #integer #path #blend

About .net GDI+ for testing:

 

 Private Sub Form6_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim pen As New System.Drawing.Pen(Color.FromArgb(100, 0, 0, 255), 25)
        'Dim graphics As System.Drawing.Graphics = e.Graphics
        'graphics.DrawLine(pen, 20, 10, 50, 10)

        'Dim graphics1 As System.Drawing.Graphics = e.Graphics
        'graphics1.DrawRectangle(pen, 20, 20, 50, 20)


        'Dim graphics2 As System.Drawing.Graphics = System.Drawing.Graphics.FromHwnd(Me.Handle)
        'graphics2.DrawRectangle(pen, 20, 20, 70, 70)

        'Dim graphics3 As System.Drawing.Graphics = e.Graphics
        'graphics3.DrawEllipse(pen, 20, 20, 80, 100)

        'Dim graphics4 As System.Drawing.Graphics = e.Graphics
        'graphics4.DrawPie(pen, 20, 101, 10, 10, 0, 90)

        'Dim graphics5 As System.Drawing.Graphics = e.Graphics
        'graphics5.DrawArc(pen, 20, 150, 140, 70, 30, 357)

        'Dim graphics6 As System.Drawing.Graphics = e.Graphics
        'Dim pointarray As Point() = {New Point(0, 0), New Point(10, 30), New Point(30, 30)}
        'graphics6.DrawPolygon(pen, pointarray)
        'graphics6.DrawCurve(pen, pointarray, 1.5F)
        'graphics6.DrawBezier(pen, 0, 0, 40, 20, 80, 150, 100, 10)

        'Dim graphics7 As System.Drawing.Graphics = e.Graphics
        'Dim graphicspath As New System.Drawing.Drawing2D.GraphicsPath
        'Dim pointarray1 As Point() = {New Point(5, 30), New Point(20, 40), New Point(50, 30)}
        'Dim fontfamily As New System.Drawing.FontFamily("宋体")
        'Dim pointf As New System.Drawing.PointF(50, 20)
        'Dim stringformat As New System.Drawing.StringFormat
        'graphicspath.AddArc(0, 0, 30, 20, -90, 180)
        'graphicspath.StartFigure()
        'graphicspath.AddCurve(pointarray1)
        'graphicspath.AddString("字符串", fontfamily, 0, 24, pointf, stringformat)
        'graphicspath.AddPie(230, 10, 40, 40, 40, 110)
        'graphics7.DrawPath(pen, graphicspath)

        'Dim graphics8 As System.Drawing.Graphics = e.Graphics
        'Dim solidbrush As New System.Drawing.SolidBrush(Color.Red)
        'graphics8.FillEllipse(solidbrush, 0, 0, 60, 40)
        'Dim hatchbrush As New System.Drawing.Drawing2D.HatchBrush(Drawing2D.HatchStyle.DottedGrid, Color.Blue, Color.Green)
        'graphics8.FillEllipse(hatchbrush, 0, 0, 60, 40)

        'Dim image As System.Drawing.Image = System.Drawing.Image.FromFile("d:/untitleddf.bmp")
        'Dim texturebrush As New System.Drawing.TextureBrush(image)
        'graphics8.FillEllipse(texturebrush, 0, 0, 100, 50)

        '' Set the Clip property to a new region.
        'e.Graphics.Clip = New Region(New Rectangle(10, 10, 100, 200))
        '' Fill the region.
        'e.Graphics.FillRegion(Brushes.LightSalmon, e.Graphics.Clip)
        '' Demonstrate the clip region by drawing a string
        '' at the outer edge of the region.
        'e.Graphics.DrawString("Outside of Clip", New Font("Arial", 12.0F, FontStyle.Regular), _
        '    Brushes.Black, 0.0F, 0.0F)

        'Dim bitmap As System.Drawing.Bitmap = System.Drawing.Image.FromFile("d:/untitleddf.bmp")
        'e.Graphics.DrawImage(bitmap, 0, 0)

        'Dim bitmap As New System.Drawing.Bitmap("untitleddf.bmp")
        'Dim rect As New System.Drawing.Rectangle(250, 250, bitmap.Width / 4, bitmap.Height / 4)
        'Dim nbitmap As System.Drawing.Bitmap = bitmap.Clone(rect, Imaging.PixelFormat.DontCare)
        'e.Graphics.DrawImage(bitmap, 10, 10)
        'e.Graphics.DrawImage(nbitmap, 150, 10)

        'Dim bitmap As New System.Drawing.Bitmap("untitleddf.bmp")
        'Dim expansionrectangle As New System.Drawing.Rectangle(135, 10, bitmap.Width, bitmap.Height)
        'Dim compressionrectangle As New System.Drawing.Rectangle(300, 10, bitmap.Width / 2, bitmap.Height / 2)
        'e.Graphics.DrawImage(bitmap, 10, 10)
        'e.Graphics.DrawImage(bitmap, expansionrectangle)
        'e.Graphics.DrawImage(bitmap, compressionrectangle)

        'Dim bitmap As New System.Drawing.Bitmap("untitleddf.bmp")
        'Dim sourcerectangle As New System.Drawing.Rectangle(150, 480, 140, 120)
        'Dim destrectangle1 As New System.Drawing.Rectangle(0, 0, 400, 400)
        'Dim destrectangle2 As New System.Drawing.Rectangle(200, 40, 200, 160)
        'e.Graphics.DrawImage(bitmap, 0, 0)
        'e.Graphics.DrawImage(bitmap, destrectangle1, sourcerectangle, GraphicsUnit.Pixel)
        'e.Graphics.DrawImage(bitmap, destrectangle2, sourcerectangle, GraphicsUnit.Pixel)

        'e.Graphics.TranslateTransform(100, 50)
        'e.Graphics.DrawLine(pen, 0, 0, 160, 80)

        'Dim matrix As New System.Drawing.Drawing2D.Matrix
        'matrix.Rotate(30)
        'matrix.Scale(1, 2, Drawing2D.MatrixOrder.Append)
        'matrix.Translate(5, 0, Drawing2D.MatrixOrder.Append)

        'e.Graphics.DrawEllipse(pen, 0, 0, 100, 50)
        'e.Graphics.ScaleTransform(1, 0.5F)
        'e.Graphics.TranslateTransform(50, 0, Drawing2D.MatrixOrder.Append)
        'e.Graphics.RotateTransform(30, Drawing2D.MatrixOrder.Append)
        'e.Graphics.DrawEllipse(pen, 0, 0, 100, 50)

        'e.Graphics.DrawLine(pen, 0, 0, 100, 100)

        'Dim bitmap As New System.Drawing.Bitmap("untitleddf.bmp")
        'e.Graphics.DrawLine(New System.Drawing.Pen(Color.FromArgb(255, 0, 0, 0), 25), New System.Drawing.Point(10, 35), New System.Drawing.Point(200, 35))
        'e.Graphics.DrawImage(bitmap, New System.Drawing.Rectangle(30, 0, bitmap.Width / 12, bitmap.Height / 12))

        'Dim bitmap As New System.Drawing.Bitmap("untitleddf.bmp")
        'Dim matrixsingle As System.Single()() = { _
        '                New Single() {1, 0, 0, 0, 0}, _
        '                New Single() {0, 1, 0, 0, 0}, _
        '                New Single() {0, 0, 1, 0, 0}, _
        '                New Single() {0, 0, 0, 0.7F, 0}, _
        '                New Single() {0, 0, 0, 0, 1}}
        'Dim colormatrix As New System.Drawing.Imaging.ColorMatrix(matrixsingle)
        'Dim imageattribute As New System.Drawing.Imaging.ImageAttributes
        'imageattribute.SetColorMatrix(colormatrix, Imaging.ColorMatrixFlag.Default, Imaging.ColorAdjustType.Bitmap)
        'e.Graphics.DrawLine(New System.Drawing.Pen(Color.Black, 25), New Point(10, 35), New Point(200, 35))
        'Dim nwidth As Integer = bitmap.Width
        'Dim nheight As Integer = bitmap.Height
        'Dim iwidth As Integer = nwidth * 20
        'Dim iheight As Integer = nheight * 20
        'e.Graphics.DrawImage(bitmap, New Rectangle(30, 0, nwidth, nheight), 0.0F, 0.0F, iwidth, iheight, GraphicsUnit.Pixel, imageattribute)

        'Dim lineargradientbrush As New System.Drawing.Drawing2D.LinearGradientBrush(New Point(0, 10), New Point(200, 10), Color.FromArgb(255, 255, 0, 0), Color.FromArgb(255, 0, 0, 255))
        'Dim pen1 As New System.Drawing.Pen(lineargradientbrush)
        'e.Graphics.DrawLine(pen1, 0, 10, 200, 10)
        'e.Graphics.FillEllipse(lineargradientbrush, 0, 30, 200, 100)
        'e.Graphics.FillRectangle(lineargradientbrush, 0, 155, 500, 30)

        'Dim lineargradientbrush As New System.Drawing.Drawing2D.LinearGradientBrush(New Point(0, 10), New Point(200, 10), Color.FromArgb(255, 255, 0, 0), Color.FromArgb(255, 0, 0, 255))
        'Dim relativeintensites As System.Single() = {0.0F, 0.5F, 1.0F}
        'Dim relativepositions As System.Single() = {0.0F, 0.2F, 1.0F}
        'Dim blend As New System.Drawing.Drawing2D.Blend
        'blend.Factors = relativeintensites
        'blend.Positions = relativepositions
        'lineargradientbrush.Blend = blend
        'e.Graphics.FillEllipse(lineargradientbrush, 0, 30, 200, 100)
        'e.Graphics.FillRectangle(lineargradientbrush, 0, 155, 500, 30)

        'Dim lineargradientbrush As New System.Drawing.Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(200, 100), Color.FromArgb(255, 0, 0, 255), Color.FromArgb(255, 0, 255, 0))
        'Dim pen2 As New System.Drawing.Pen(lineargradientbrush, 10)
        'e.Graphics.DrawLine(pen2, 0, 0, 600, 300)
        'e.Graphics.FillEllipse(lineargradientbrush, 10, 100, 200, 100)

        'Dim path As New System.Drawing.Drawing2D.GraphicsPath
        'path.AddEllipse(0, 0, 140, 70)
        'Dim pathgradientbrush As New System.Drawing.Drawing2D.PathGradientBrush(path)
        'pathgradientbrush.CenterColor = Color.FromArgb(255, 0, 0, 255)
        'Dim colors As System.Drawing.Color() = {Color.FromArgb(255, 0, 255, 255)}
        'pathgradientbrush.SurroundColors = colors
        'e.Graphics.FillEllipse(pathgradientbrush, 0, 0, 140, 70)
        ''e.Graphics.FillEllipse(pathgradientbrush, 0, 0, 200, 40)

        'Dim points As System.Drawing.Point() = { _
        '                                        New Point(75, 0), _
        '                                        New Point(100, 50), _
        '                                        New Point(150, 50), _
        '                                        New Point(112, 75), _
        '                                        New Point(150, 150), _
        '                                        New Point(75, 100), _
        '                                        New Point(0, 150), _
        '                                        New Point(37, 75), _
        '                                        New Point(0, 50), _
        '                                        New Point(50, 50) _
        '                                       }
        'Dim path As New System.Drawing.Drawing2D.GraphicsPath
        'path.AddLines(points)
        'Dim pathgradientbrush As New System.Drawing.Drawing2D.PathGradientBrush(path)
        'pathgradientbrush.CenterColor = Color.FromArgb(255, 255, 0, 0)
        'Dim colors As System.Drawing.Color() = { _
        '                                          Color.FromArgb(255, 0, 0, 0), _
        '                                          Color.FromArgb(255, 0, 255, 0), _
        '                                          Color.FromArgb(255, 0, 0, 255), _
        '                                          Color.FromArgb(255, 255, 255, 255), _
        '                                          Color.FromArgb(255, 0, 0, 0), _
        '                                          Color.FromArgb(255, 0, 255, 0), _
        '                                          Color.FromArgb(255, 0, 0, 255), _
        '                                          Color.FromArgb(255, 255, 255, 255), _
        '                                          Color.FromArgb(255, 0, 0, 0), _
        '                                          Color.FromArgb(255, 0, 255, 0) _
        '                                        }
        'pathgradientbrush.SurroundColors = colors
        'e.Graphics.FillPath(pathgradientbrush, path)

        Dim pointf As System.Drawing.PointF() = { _
                                                 New PointF(0, 0), _
                                                 New PointF(160, 0), _
                                                 New PointF(160, 200), _
                                                 New PointF(80, 150), _
                                                 New PointF(0, 200) _
                                                }
        Dim pathgradientbrush As New System.Drawing.Drawing2D.PathGradientBrush(pointf)
        Dim colors As System.Drawing.Color() = { _
                                                Color.FromArgb(255, 255, 0, 0), _
                                                Color.FromArgb(255, 0, 255, 0), _
                                                Color.FromArgb(255, 0, 255, 0), _
                                                Color.FromArgb(255, 0, 0, 255), _
                                                Color.FromArgb(255, 255, 0, 0) _
                                               }
        pathgradientbrush.SurroundColors = colors
        pathgradientbrush.CenterColor = Color.White
        e.Graphics.FillRectangle(pathgradientbrush, New System.Drawing.Rectangle(0, 0, 160, 200))


        'Dim path As New System.Drawing.Drawing2D.GraphicsPath
        'path.AddEllipse(0, 230, 140, 70)
        'Dim pathGBrush As New System.Drawing.Drawing2D.PathGradientBrush(path)
        'pathGBrush.CenterPoint = New System.Drawing.PointF(120, 40)
        'pathGBrush.CenterColor = Color.FromArgb(255, 0, 0, 255)
        'Dim colors As System.Drawing.Color() = {Color.FromArgb(255, 0, 255, 255)}
        'pathGBrush.SurroundColors = colors
        'e.Graphics.FillEllipse(pathGBrush, 0, 230, 140, 70)
    End Sub

贝冷
关注
使用VB.Net GDI+编程编写的3D魔方游戏程序
李大仁博客
08-16 1501
最近学习了.net下的GDI+编程，下面小秀一下成果，使用GDI+编写的桌面魔方程序，今天把源代码放上，欢迎大家下载，如果机器上有.net环境的话可以直接运行bin目录下的MagicCube.exe进行游戏。源代码下载地址de/magiccube/magiccube.zip" >http://www.lidaren.com/code/magiccube/magiccube.zip下面方式几个重要
精选资源
用VB.NET+GDI+开发交互式CAD系统
06-15
本课程用VB.NET结合GDI+，从无到有开发一个功能较完整的交互式CAD系统。作者有交互式CAD系统、动态几何系统开发经验。出版过交互式CAD系统开发方面的图书。课程先讲准备知识，然后讲整个系统的开发思路和主要技术，...
VB.Net GDI+ 应用例子
03-03
VB.Net GDI+ 应用例子，用GDI+设计显示不同风格的文本形式，一个绘图工具的应用例子
GDI+编程源代码(VB.NET)
05-17
VB.NETGDI+编程源代码例子很多
VB.NET中使用GDI+加载与显示PNG图片完整指南
最新发布
weixin_29935511的博客
10-30 384
对于更复杂的图像处理需求（如叠加图层、滤镜效果），建议继承PictureBox并重写OnPaint方法，直接操作Graphics对象。' 启用高质量渲染End WithEnd Subgraph LRA[触发 Paint 事件] --> B[创建 Graphics 上下文]B --> C[设置渲染质量参数]C --> D[调用 DrawImage 绘制图像]D --> E[绘制额外元素（文字/边框）]E --> F[输出到双缓冲区]F --> G[一次性刷新到屏幕]
[vb.net]使用GDI+绘图达到图片随鼠标缩放与移动的效果
u012370590的博客
02-27 4447
[vb.net]使用GDI+绘图达到图片随鼠标缩放与移动的效果近日需要在软件中加入对图片的浏览功能，类似地图的拖拽及缩放操作。 网上大部分教程写的不够详细，对于初学者来讲不易理解。总结下要点，有二： （1）捕捉鼠标的点击操作和滚动操作以及鼠标的位移大小； （2）使用GDI+对缩放和移动的图片进行绘制。
vb.net GDI+入门——坐标系统与像素
wyhappy612的专栏
11-21 3957
GDI+绘图技术中，最基本的是坐标系统，坐标系统的默认度量单位是像素。我们需要熟练掌握GDI+中坐标的变换概念才能绘制出理想的图形来。 在GDI+中，默认的坐标系统的原点是在左上角，X轴指向右边，Y轴指向下边，如下图一所示： GDI+默认的坐标系统与我们数学中的坐标系统并不一样，我们想要在GDI+中使用新的坐标系统，则需要在默认坐标的基础上进行坐标的变换，例如旋转，平移等。 坐标平移是沿
GDI.rar_C# GDI+_gdi_vb.net gdi
09-19
《GDI+.rar》是一个关于GDI+编程的资源压缩包，主要涵盖了C#和VB.NET两种编程语言下的GDI+应用。GDI+（Graphics Device Interface Plus）是微软为Windows应用程序提供的一种图形处理和绘制技术，它在原有的GDI...
精选资源
Windows窗体控件：使用GDI +的VB.NET半透明控件
04-08
本文将深入探讨如何利用GDI+（Graphics Device Interface Plus）在VB.NET环境下为Windows Forms开发半透明控件。 首先，GDI+是.NET Framework提供的一种图形绘制API，它允许开发者进行复杂的2D图形渲染，包括文本、...
VB.NET GDI+编程实例源代码解析
在给出的文件信息中，“VB.NET GDI+编程源代码例子很多”意味着压缩包内包含了大量的VB.NET使用GDI+进行编程的示例源代码。这些示例源代码很可能是教学用的，用于展示如何使用VB.NET结合GDI+实现各种图形操作和图像...
vb.net GDI+入门——画笔、画刷和颜色
wyhappy612的专栏
11-21 4900
GDI是Graphics Device Interface的缩写，含义是图形设备接口，它的主要任务是负责系统与绘图程序之间的信息交换，处理所有Windows程序的图形输出。顾名思义，GDI+就是GDI得增强版本，在.net构架中，我们可以通过GDI+来实现图形图像的编程。 在绘画的时候，画家需要使用画笔或者画刷来把不同的颜色涂抹到画布上，而我们在对图形图像进行编程的时候，也是通过画笔和画刷把不同
Visual Basic.NET GDI+技术教程
04-15
GDI+是Windows系统内置的图像处理技术，简单实用。 VB.NET为其提供了丰富的函数，可以供调用，适合初学者。 如果只是做2D图形图像的，完全够用了。
VB.Net:Image图片处理 GDI+绘图技术
09-17
用到的知识点： 获取图片的缩略图 鼠标拽区，截取图片的指定区域 在Panel控件上绘图，绘制鼠标拽出来的矩形。双重缓存的运用。Invalidate、Paint重绘控件。 Bitmap，Image，Rectangle运用。 程序界面：http://blog.csdn.net/linjimu/archive/2008/09/17/2942379.aspx
GDI绘图VB.NET
01-30
GDI绘图VB.NET 适合初学者适合初学者
vb.net GDI窗体
weixin_34018202的博客
06-07 138
在窗体中添加一个ContextMenu1控件   Imports System.Drawing.Drawing2D Public Class Form1 Inherits System.Windows.Forms.Form #Region " Windows 窗体设计器生成的代码 " Public Sub New() MyBase.New(...
vb.net使用GDI+实现扫雷小游戏
york1996的博客
11-20 1475
先说一下扫雷的规则：左键点开，右键用旗子标记（取消标记），一个方块上的数字代表周围九个格里有几颗雷！ 比如，1，周围九个格里只有一颗雷，2 周围九个格里就有两颗雷，以此类推。通过单击即可挖开方块。 如果挖开的是地雷，则您输掉游戏。 如果方块上出现数字，则表示在其周围的八个方块中共有多少颗地雷。 代码质量不是很好，懒得修改了，下面是代码 'Option Strict Off '关闭严格...
vb.net和GDI+实现经典俄罗斯方块游戏
york1996的博客
08-06 2393
先放游戏截图  下面是代码 Public Class 俄罗斯方块 '窗体类 Dim myTrtris As Tetris '实例化对象 Private Sub 俄罗斯方块_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp '窗体按键事件 If myTrtris IsNot Nothi...
用VB.NET绘制GDI图形
keenweiwei的专栏
12-27 3690
 用VB.NET绘制GDI图形 　　下面的例子通过重载Form1窗体的OnPaint()方法绘制GDI图形Protected Overrides Sub onpaint(ByVal e As System.Windows.Forms.PaintEventArgs)注释：/////////////绘制任意直线Dim g As Graphics = e.Graphics
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值