如何把picture控件中的矢量图写成二进制数据？？

Question

例如，存储一个矩形：
Type JvXing
    x1 as single
    y1 as single
    x2 as single
    y2 as single
     ........
EndType
Dim rect as JvXing
在程序中为rect 赋值
Function SaveRect（）
   open "11.123" for binary AS #1
   put #1,rect
   close
End Function

Answer 1

请问 open "11.123" for binary AS #1 中"11.123" 是什么？
我不希望使用临时文件。

Answer 2

我也不明白，不明白你的问题，SORRY……

Answer 3

需要自己定义一种图形格式，至于记录只要用动态数组就可以了。下面的语句实现保留原数组的值，并将数组增加一个元素。NewBound=UBound(Array())
ReDim Preserve RecArray(NewBound+1)从格式方面，需要你自己定义一个图形格式。我会在下面的帖子里讨论这个问题。

Answer 4

从记录格式来说分两个层。一个是记录层，一个是应用层。
Type tpRecSeg
  RecType As Byte
  RecValue As Double
End Type定义了一个记录段，RecType是段的性质，RecValue是取值。假设我们这样定义RecType的含义：
0 无意义
1 指令
2 坐标X
3 坐标Y
4 半径
5 对象定义而指令值这样定义：
0 无意义
1 定义点
2 定义线段
3 定义矩形
4 定义圆
5 多边形那么画一个线段和一个多边形的控制代码就是这样。01 02
02 XX
03 XX
02 XX
03 XX
01 05
02 XX
03 XX
02 XX
03 XX
02 XX
03 XX
02 XX
03 XX
02 XX
03 XX

Answer 5

你做过图形组件吗？其实我的问题很简单，就是如何把图形用ASP在网页显示出来，即：response.binarywrite DelphiASPObj.showimg(二进制数据，DelphiASPObj是Set DelphiASPObj = Server.CreateObject("vbimg.imgdraw")，showimg是其方法，问题就是showimg方法在vb中如何编写)

Answer 6

有一些控件可以采用。比如DirectAnimation控件，这是一个比较容易找到的。或者你可以去搜索一个叫做“漫画盒子”的网站，这个网站有一个非常不错的手绘涂鸦控件。或者你可以自己写一个控件。DirectAnimation的通用性很好，但是需要你的图形必须以它的格式来显示。另外，AutoCAD也具备在网页上显示图形文件的能力。具体资料我就不清楚了。至于编写这种组建的一些关键部分我可以帮你，但是我不擅长写组件。

Answer 7

GetDIBits VB声明 
Declare Function GetDIBits Lib "gdi32" Alias "GetDIBits" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long 
说明 
将来自一幅位图的二进制位复制到一幅与设备无关的位图里 
返回值 
Long，非零表示成功，零表示失败。在Windows 95中，返回值是返回的扫描线数量 
参数表 
参数 类型及说明 
aHDC Long，定义了与设备有关位图hBitmap的配置信息的一个设备场景的句柄 
hBitmap Long，源位图的句柄。绝对不能将这幅位图选入设备场景 
nStartScan Long，欲复制到DIB中的第一条扫描线的编号 
nNumScans Long，欲复制的扫描线数量 
lpBits Any，指向一个缓冲区的指针。这个缓冲区将用于装载采用DIB格式的信息，但不取回数据（用ByVal传递零值） 
lpBI BITMAPINFO，对lpBits DIB的格式及颜色进行说明的一个结构。在BITMAPINFOHEADER结构中，从biSize到biCompression之间的所有字段都必须初始化 
wUsage Long，下述常数之一： 
DIB_PAL_COLORS 在颜色表中装载一个16位所以数组，它们与当前选定的调色板有关 
DIB_RGB_COLORS 在颜色表中装载RGB颜色 
注解 
起始扫描线与起点有关。除非将BITMAPINFOHEADER结构的biHeight字段设为负值，否则起点就位于左下角