画图的嵌入和图片上传 请问如何将嵌入的画图工具的图片以“.bmp”的格式上传到指定的ftp上啊? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以使用SavePicture 把内存里的图片 保存为 文件 能不能用“.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 谢了谢了!! 能不能继续一下,帮忙解释一下“.ftpupload”是怎么用的? VB如何在Word中书签的位置画出各种图形? 大家帮我一把 这个怎么做? 急!请问如何在组件(dll)中使用ocx?能否提供详细的配置过程和代码! 在使用msagent时,在系统栏里总有一个小图标,如何将这个小图标隐藏? 求教:怎样用VB来调用SolidWorks零件图中的系列零件设计表? 请教各位大虾,在vb6.0中如何实现像金山词霸那样的界面? 1,在VB里如何播放GIF动画? 如何在VB的数据(报表)设计器中运用编程代码实现连接? 用表格显示数据库信息?? 关于在data控件和sql的关系??? 关于皮肤控件,哪里有没有使用skinbuilder的说明书?
' 声明变量。
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