vb如何在picture上用GDI绘图？
有imge1 imge2 imge3
按下comand1 在picture1上 分别不重叠的位置用GID绘制imge1 imge2 imge3的图像内容。
按下commad2 在不影响其他2张图片上。只擦除pictures1上面的imag2的内容。
请问如何做到？给的点思路方法。谢谢。
=====
能否详细一点呢。
使用Declare的方式，声明所有需要用到的GDI函数，在PictureBox的DC上完成绘图
方案二.
VB本身也提供有绘图函数，直接用之即可
vb如何在picture上用GDI绘图?
方案一.使用Declare的方式，声明所有需要用到的GDI函数，在PictureBox的DC上完成绘图 方案二.VB本身也提供有绘图函数，直接用之即可
VB中在PICTUREBOX中的画图问题
1.划线用GdipDrawLineI 不过gdi使用需要定义token等参数，还有用完要释放 2.你的要求较为复杂 这个需要多个透明的层嵌套（或者用gdi来绘制背景透明的图），否则不可能实现任何一个图形画了之后还可以选择并且拖动大小这个要求，而且这一步的话，每一个图在picturebox内需要定义可以如何拖动，是否可以向桌...
VB2008中用GDI+画图的问题
因为一刷新图就消失了，控件 TabControl上会自动刷新，在Form1_Paint中绘制可避免 或者改成下面的代码 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click PictureBoxTemperature001.Image = Nothing Dim intWidthAll, intHeightAll As...
VB 如何用GDI+修改图片的分辨率并无损压缩保存
多加个引用 Private Declare Function GdipCreateBitmapFromFile Lib "GDIPlus" (ByVal filename As Long, Bitmap As Long) As Long 原来的代码对照下 Public Sub SaveJPG(ByVal pict As StdPicture, ByVal filename As String, Optional ByVal Quality As Byte = 80, Optional ByVal DPI As Si...
急求!!!VB界面picture控件图片显示不全
把Picture1的AutoSize设置为True控件就会自动调整大小显示所有内容 如果你是想让图像缩放的话 建议用GDI+ 或者比较简单的办法就是在Picture1里面放置一个一样大的Image 然后Image的Stretch设置为True 加载的时候把图片加载在Image就会自动调整图形大小以适应图像控件 ...
在VB中怎么使图片得到像素,然后再改变其中的一些像素值,最后生成新的图...
第一种方法：用VB本身的命令：获得Picture1中点(x, y)的像素颜色值：Dim c As Long c = Picture1.Point(x, y)然后你可以对c进行修改，再把c写回(x, y)Picture1.PSet (x, y), c 注意：最好把Picture1设为像素坐标系统，如果用VB默认的单位缇，则千万记得要每隔15缇读取一个点！！！第...
vb在pic中gdi后怎么更新新的绘图
1、首先在vb中使用鼠标是否点中图形，建立一个白底色的Pic。2、其次用黑色画上这个图形，再检查鼠标相应位置像素的颜色。3、最后选中的标示，需要给选中的目标图元绘制边框绘制新的绘图即可。
vb 对比图片 生成图片
Private Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long Private Sub Command1_Click()Dim X, Y, c1, c2 As Long For X = 0 To Picture1.ScaleWidth - 1 For Y = 0 To Picture1.ScaleHeight ...
怎样在VB中实现全屏截图,用代码
Picture1.Picture = Clipboard.GetData(vbCFBitmap)SavePic Picture1.Picture,"D:\\1.gif",".gif"End Sub 以下代码放在模块中：Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As Byte End Type Private Type GdiplusStartupInput GdiplusVersion As Long D...
用VB如何实现画等高线?
1 使用picturebox或者类似控件，自己写算法画；2 使用DX自己画 3 使用opengl自己画 4 使用GDI自己画
