用VB程序生成的图形如何控制图形像素大小

qq_38357996 2017-10-11 12:33:16
运用VB画图形,想要控制画好的图形的像素大小程序怎么写呢?例如我想生成像素为799×1159大小的图形以bmp格式保存,向各位大神求救
...全文
635 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
熊孩子开学喽 2017-10-18
  • 打赏
  • 举报
回复
1: 设置picturebox的scalemode为pixel 2: 设置picturebox的边框为无边框 3:调整picturebox的大小为你需要的尺寸 4:用savepicture命令保存图片
舉杯邀明月 2017-10-13
  • 打赏
  • 举报
回复
引用 4 楼 VBToy 的回复:
将放置picturebox的容器如窗体以及picturbox,scalemode设置成pixels,pictureBox 的width和height设置成需要的像素,这样就可以按像素绘制需要的尺寸的图形了。
是我失误了。 不过你设置Width和Height,它的Image还要除开“边框”占用的像素。 只有把控件设置为无边框的时候,Image的宽和高才能跟控件的宽和高一致。
赵4老师 2017-10-12
  • 打赏
  • 举报
回复
SavePicture 语句示例
本例使用 SavePicture 语句保存画在 Form 对象的 Picture 属性中的图形。要试用此例,可将以下代码粘贴到 Form 对象的声明部分,然后运行此例,单击 Form 对象。

Private Sub Form_Click ()
   ' 声明变量。
   Dim CX, CY, Limit, Radius   as Integer, Msg as String
   ScaleMode = vbPixels   ' 设置比例模型为像素。
   AutoRedraw = True ' 打开 AutoRedraw。
   Width = Height   ' 改变宽度以便和高度匹配。
   CX = ScaleWidth / 2   ' 设置 X 位置。
   CY = ScaleHeight / 2   ' 设置 Y 位置。
   Limit = CX   ' 圆的尺寸限制。
   For Radius = 0 To Limit   ' 设置半径。
      Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
      DoEvents   ' 转移到其它操作。
   Next Radius
   Msg = "Choose OK to save the graphics from this form "
   Msg = Msg & "to a bitmap file."
   MsgBox Msg
   SavePicture Image, "TEST.BMP"   ' 将图片保存到文件。
End Sub

VBToy 2017-10-11
  • 打赏
  • 举报
回复
将放置picturebox的容器如窗体以及picturbox,scalemode设置成pixels,pictureBox 的width和height设置成需要的像素,这样就可以按像素绘制需要的尺寸的图形了。
VBToy 2017-10-11
  • 打赏
  • 举报
回复
引用 2 楼 Chen8013 的回复:
[quote=引用 1 楼 VBToy 的回复:] 用pictureBox绘图,pictureBox的scalemode设置成vbPixels,height设置成799,width设置成1159,保存pictureBox图像就是799×1159的了。
你这样做,根本达不到目的。 scalemode只影响在“绘图时”各个“图元像素坐标”跟“内存位图”的图像数据之间的“映射关系”,   不会影响到“内存位图大小”,也就不会影响到保存之后的图像大小。   并且,当你改变ScaleWidth或ScaleHeight的值时,它的ScaleMode自然的就变成 0-User(用户模式)了;   你事先指定的 3-Pixel 模式已经失效。 height 、width是决定控件大小的,但它的度量单位是取决于它的“容器”,而不是它自己的 ScaleMode 。 正确的做法,应该是: 调整PictureBox控件的大小(可以在设计时调整,也可以在运行时通过执行代码调整), 让它的大小刚好使其 ScaleWidth=799像素、ScaleHeight=1159像素。 然后把AutoRedraw设置为True,再在这个PictureBox上画图、画好后保存其Image图像数据,就是一幅799×1159大小的位图了。 比如在设计时设置PictureBox的大小:假设控件大小的度量单位是“缇”(VB6默认单位)、外观是3D并且带边框: 要ScaleWidth为799像素,那么控件宽度就必须是803像素,把其Width属性设置为12045(此时其ScaleWidth =11985); 要ScaleHeight为1159像素,控件高度就是1163像素,把其Height属性设置为17445(此时其ScaleHeight=17385)。 11985缇=799像素, 17385缇=1599像素。 如果把“刚才”设置好大小的PicutreBox的ScaleMode更改为3-Pixel,就可以看到它的ScalWidth、ScaleHeight分别为799和1159。 [/quote] 不是设置ScaleWidth,是设置Width
舉杯邀明月 2017-10-11
  • 打赏
  • 举报
回复
引用 1 楼 VBToy 的回复:
用pictureBox绘图,pictureBox的scalemode设置成vbPixels,height设置成799,width设置成1159,保存pictureBox图像就是799×1159的了。
你这样做,根本达不到目的。 scalemode只影响在“绘图时”各个“图元像素坐标”跟“内存位图”的图像数据之间的“映射关系”,   不会影响到“内存位图大小”,也就不会影响到保存之后的图像大小。   并且,当你改变ScaleWidth或ScaleHeight的值时,它的ScaleMode自然的就变成 0-User(用户模式)了;   你事先指定的 3-Pixel 模式已经失效。 height 、width是决定控件大小的,但它的度量单位是取决于它的“容器”,而不是它自己的 ScaleMode 。 正确的做法,应该是: 调整PictureBox控件的大小(可以在设计时调整,也可以在运行时通过执行代码调整), 让它的大小刚好使其 ScaleWidth=799像素、ScaleHeight=1159像素。 然后把AutoRedraw设置为True,再在这个PictureBox上画图、画好后保存其Image图像数据,就是一幅799×1159大小的位图了。 比如在设计时设置PictureBox的大小:假设控件大小的度量单位是“缇”(VB6默认单位)、外观是3D并且带边框: 要ScaleWidth为799像素,那么控件宽度就必须是803像素,把其Width属性设置为12045(此时其ScaleWidth =11985); 要ScaleHeight为1159像素,控件高度就是1163像素,把其Height属性设置为17445(此时其ScaleHeight=17385)。 11985缇=799像素, 17385缇=1599像素。 如果把“刚才”设置好大小的PicutreBox的ScaleMode更改为3-Pixel,就可以看到它的ScalWidth、ScaleHeight分别为799和1159。
VBToy 2017-10-11
  • 打赏
  • 举报
回复
用pictureBox绘图,pictureBox的scalemode设置成vbPixels,height设置成799,width设置成1159,保存pictureBox图像就是799×1159的了。
API之网络函数1. API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接 WNetAddConnection2 创建同一个网络资源的连接 WNetAddConnection3 创建同一个网络资源的连接 WNetCancelConnection 结束一个网络连接 WNetCancelConnection2 结束一个网络连接 WNetCloseEnum 结束一次枚举操作 WNetConnectionDialog 启动一个标准对话框,以便建立同网络资源的连接 WNetDisconnectDialog 启动一个标准对话框,以便断开同网络资源的连接 WNetEnumResource 枚举网络资源 WNetGetConnection 获取本地或已连接的一个资源的网络名称 WNetGetLastError 获取网络错误的扩展错误信息 WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者UNC(统一命名规范)名称 WNetGetUser 获取一个网络资源用以连接的名字 WNetOpenEnum 启动对网络资源进行枚举的过程 2. API之消息函数 BroadcastSystemMessage 将一条系统消息广播给系统中所有的顶级窗口 GetMessagePos 取得消息队列中上一条消息处理完毕时的鼠标指针屏幕位置 GetMessageTime 取得消息队列中上一条消息处理完毕时的时间 PostMessage 将一条消息投递到指定窗口的消息队列 PostThreadMessage 将一条消息投递给应用程序 RegisterWindowMessage 获取分配给一个字串标识符的消息编号 ReplyMessage 答复一个消息 SendMessage 调用一个窗口的窗口函数,将一条消息发给那个窗口 SendMessageCallback 将一条消息发给窗口 SendMessageTimeout 向窗口发送一条消息 SendNotifyMessage 向窗口发送一条消息 3. API之文件处理函数 CloseHandle 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等 CompareFileTime 对比两个文件的时间 CopyFile 复制文件 CreateDirectory 创建一个新目录 CreateFile 打开和创建文件、管道、邮槽、通信服务、设备以及控制台 CreateFileMapping 创建一个新的文件映射对象 DeleteFile 删除指定文件 DeviceIoControl 对设备执行指定的操作 DosDateTimeToFileTime 将DOS日期和时间值转换成一个 win32 FILETIME 值 FileTimeToDosDateTime 将一个 win32 FILETIME 值转换成DOS日期和时间值 FileTimeToLocalFileTime 将一个FILETIME结构转换成本地时间 FileTimeToSystemTime 根据一个FILETIME结构的内容,装载一个SYSTEMTIME结构 FindClose 关闭由FindFirstFile函数创建的一个搜索句柄 FindFirstFile 根据文件名查找文件 FindNextFile 根据调用FindFirstFile函数时指定的一个文件名查找下一个文件 FlushFileBuffers 针对指定的文件句柄,刷新内部文件缓冲区 FlushViewOfFile 将写入文件映射缓冲区的所有数据都刷新到磁盘 GetBinaryType 判断文件是否可以执行 GetCompressedFileSize 判断一个压缩文件在磁盘上实际占据的字节数 GetCurrentDirectory 在一个缓冲区中装载当前目录 GetDiskFreeSpace 获取与一个磁盘的组织有关的信息,以及了解剩余空间的容量 GetDiskFreeSpaceEx 获取与一个磁盘的组织以及剩余空间容量有关的信息 GetDriveType 判断一个磁盘驱动器的类型 GetExpandedName 取得一个压缩文件的全名 GetFileAttributes 判断指定文件的属性 GetFileInformationByHandle 这个函数提供了获取文件信息的一种机制 GetFileSize 判断文件长度 GetFileTime 取得指定文件的时间信息 GetFileType 在给出文件句柄的前提下,判断文件类型 GetFileVersionInfo 从支持版本标记的一个模块里获取文件版本信息

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧