有一个生成的图片，可以在windows上预览，但不能用loadpicture加载

2012-12-29

有一个生成的图片，可以在windows下预览，但不能用loadpicture加载。图片下载地址：http://d.ksxt.net/que/1.r

有一个生成的图片，可以在windows下预览，但不能用loadpicture加载。

图片下载地址：
http://d.ksxt.net/que/1.rar

用的是bmp扩展名，但实际上不是bmp格式的，我想问通过何种方式可以把此图片通过loadpicture加载，对于图像处理，一点头绪都没有。

注：这个图片实际就是进入vb后，自动存在剪贴板的那个图片，因为下载的文件大小会跟你的显示分辨率相同，可能会放大到无法分辨是什么东西，所以标注一下。
[解决办法]
lz是要把这个图片加载到哪里？窗体？picture？image？

我用画图另存可以加载，但是分辨率不好

[解决办法]
lz这样做

1。新打开vb

2。再打开画图（开始——〉程序——〉附件——〉画图），ctrl+v，看到图片了吧，

3。用放大镜放大，拖动画布到图的边

4。另存为 1.bmp

5。到vb加image控件，点picture属性，加载图片没有问题了
[解决办法]
测试

Private Sub Command1_Click()
Image2.Picture = LoadPicture("E:\test\3.bmp")
End Sub

成功
[解决办法]
该文件头没有BM标志,加上BM标志试一下。或者干脆用画图编辑程序，然后另存为BMP格式就是标准BMP文件了。
[解决办法]
LZ的图片用WINDOWS的画图板打开是如下图形:
有一个生成的图片，可以在windows上预览，但不能用loadpicture加载
[解决办法]
你这一大堆图片是怎么来的？都是相同情况吗？有可能对一个图片好用的方法对另一个图片不好用
[解决办法]
普通控件PictureBox、Image、PictureClip都不行，试试用高档控件：比如柯达专用控件等。
[解决办法]
主要原因是没有BMP文件头。
[解决办法]
原图文件头:
/uploadfile/jiaocheng/20140136/2723/2014012702231947420.jpg
[解决办法]
可以编写程序加上这个BMP文件头
[解决办法]
有一个生成的图片，可以在windows上预览，但不能用loadpicture加载
[解决办法]
搞错了原图文件头如下,18楼是画图板另存为*.BMP的文件头:

[解决办法]

[解决办法]
文件那么小，图片又那么‘炫’，也许是某种矢量图片格式的。

[解决办法]
我另存的不高也不宽，但是字节不差多少
[解决办法]
"因为下载的文件大小会跟你的显示分辨率相同，可能会放大到无法分辨是什么东西，所以标注一下。"

可能吗? 图片魔术 ? 下载下来就会变型 ?

既然你能看得到图片, 就把它保存为 .bmp .jpg 或 .gif 再LoadPicture不就好了吗？

[解决办法]

[解决办法]

引用:

引用:
KAO!
一直都不明白在 VB 启动前复制的文本，为什么老是在 VB 启动后就‘消失’了。

它这样做有何目的呢？

VB6利用剪贴板来加载的工具栏图标.

你把所有需要加载工具栏图标的插件取消,就不会动剪贴板了

嘿，研究得真透彻啊!

[解决办法]

引用:

引用:
KAO!
一直都不明白在 VB 启动前复制的文本，为什么老是在 VB 启动后就‘消失’了。

它这样做有何目的呢？

VB6利用剪贴板来加载的工具栏图标.

你把所有需要加载工具栏图标的插件取消,就不会动剪贴板了

......这样也可以啊
[解决办法]

引用:

别跑题，老马，给支个招啊。

你这问题.....应该很好解决啊,只要允许动剪贴板......

反正你也是从剪贴板得到的数据,那么就利用它还原一下呗....

先用个字节数组读入内容,再OpenClipboard打开剪贴板,再SetClipboardData设置进去,然后使用VB内部的Clipboard对象GETDATA到要显示的对象上去......

如果不能使用剪贴板又再说.......
[解决办法]

引用:

引用:
引用:
KAO!
一直都不明白在 VB 启动前复制的文本，为什么老是在 VB 启动后就‘消失’了。

它这样做有何目的呢？

VB6利用剪贴板来加载的工具栏图标.

你把所有需要加载工具栏图标的插件取消,就不会动剪贴板了

嘿，研究得真透彻啊!

不是......因为我发现那个图片与工具栏最后加载的按钮图片是一样的,所以就试了一下,原来....
[解决办法]

rtf中图片以两种方式存在,第一种方式是直接嵌入,第二种方式是作为ole对象嵌入

lz这些是哪一种，又是用什么方式获取，是否能从获取时下功夫？
[解决办法]
哦原来这张图片有 AutoSize 的属性领教了....^-^
[解决办法]
感觉这张图片象一张超级大的图标图片
[解决办法]
我昨天在VBGOOD将本贴转发,现在有大进展.VBGood的版主VBProFan给出了解析代码,我已经略做修改,除颜色有些差异,基本达目的,代码如下:

有一个生成的图片，可以在windows上预览，但不能用loadpicture加载

[解决办法]
我又改了一下，这回更加完美了：

Option Explicit

Private Type udtRGB
  R As Byte
  G As Byte
  B As Byte
End Type

Private Const c_Size As Long = 934
Private Const c_Redundant As Byte = 1

Private MyPixel(1 To (c_Size - c_Redundant) / 3) As udtRGB

Private Sub Form_Load()
  Open "C:\s.bmp" For Binary Access Read As #1 '奇异图片的路径
  Get #1, c_Redundant + 1, MyPixel
  Close #1
  
  Me.ScaleMode = vbPixels
End Sub

Private Sub Form_Paint()
  Dim i As Byte
  Dim j As Byte
  Const c_Width As Integer = 16
  Const c_Height As Integer = 16
  
  
  For i = 1 To c_Width
    For j = 1 To c_Height
      PSet (i, c_Height + 1 - j), RGB(MyPixel(j * c_Height + i).B, MyPixel(j * c_Height + i).G, MyPixel(j * c_Height + i).R) 
 
    Next j
  Next i
End Sub

至于为什么是16*16，我是用 ACDSee 逐步缩小看它的字节数是否接近934来猜的，更难猜的是：应该从第几个字节开始解析？我是用 HEdit 查看其16进制代码并观察图像的像素色来猜到的。和bmp不同，该文件没有4字节的对齐？
[解决办法]
越南的网速太慢，重复发帖了，请斑竹帮我删掉重复的帖子，谢谢！
[解决办法]
Ding yi xia ...........

[解决办法]
支持~~~~~~~
[解决办法]
这是一个有吸引力的问题,再次顶下!

有一个生成的图片，可以在windows上预览，但不能用loadpicture加载

[解决办法]
完善了一下，并且搞了个好玩的东东：可以在不知道图片的宽度的情况下动态调整，人眼观察来寻找。

核心代码：（完整工程请到 http://www.vbgood.com/viewthread.php?tid=89736&page=1#pid494362 下载）

  FileY = 0

  Do While True



    For x = 1 To HScroll1.Value

      ImageY = c_MaxHeight + 1 - FileY

      PSet (x, ImageY), RGB(MyPixel(FileY * HScroll1.Value + x).B, MyPixel(FileY * HScroll1.Value + x).G, MyPixel(FileY * HScroll1.Value + x).R)

      If FileY * HScroll1.Value + x = UBound(MyPixel) Then

        Exit Do

      End If

    Next x



    FileY = FileY + 1

  Loop
复制代码现在还有3个未解之谜：
1. 为什么最下边有几个彩色的点？
2. 画图是如何知道图片的宽度的？我的新版的程序对剩余字节也解不出什么有用信息，直接在图片文件里搜索 10H 也找不到。
3. 对59楼的图片，我的程序解出来的是灰度图，而画图确是彩色的，为什么？
[解决办法]
4. 为什么我解出来的最左边要补到最右边才和画图的一样？

热点排行