如何将一个图片赋给一个变量?

Question

'''首先知道图象文件的路径 StrPath
'''读取图象数据
  Dim hfilehandle
  Dim bytearray(FileLen(StrPath))
  hfilehandle = FreeFile
  Open StrPath For Binary Access Read As #hfilehandle
  Get #hfilehandle, , bytearray
  getfiledate = True
  Close #filehandle
'''  bytearray就保存了该图象了

Answer 1

变量不能保证图片，它只能保存数据，若你只想保存图片的数据，参照楼上的说法，若是想通过变量知道去获取图片，你可以保存如何取得此图片的信息，比如图片的路径或图片在ImageList控件中的位置等，因为VB中没有图片变量！

Answer 2

dim pic1 as picture
set pic1=picture1.picture

Answer 3

补充：
dim pic1 as pictureset pic1=loadpicture("d:\pic\a1.jpg")

Answer 4

Private stdpic As StdPicture
Set stdpic = LoadPicture("c:\zyf.bmp")用这种办法，你可以得到图片的一些属性，可以方便其他调用，例如stretchblt
  

Answer 5

是不是这样也可以？
dim a as long
a=pic1.hwnd

Answer 6

对呀，你取得图片的句柄就够了……就像这样
Private stdpic As StdPicture
Set stdpic = LoadPicture("c:\zyf.bmp")

Answer 7

to MonkeyLin(没有MSDN的猴):
但是你写的StdPicture是什么意思？vb中好像没有这种类型？？？

Answer 8

有这种类型，字体变量： StdFont

Answer 9

to BadCatw(坏猫):
那么dim pic1 as picture是不是错了？因为不能这样来创建一个 Picture 对象：Dim X As New Picture。如果需要创建一个 Picture 对象，就必须利用 StdPicture 对象

Answer 10

IPicture类就是图片的类
Dim ip As IPicture
Set ip = 你的图片
即可

Answer 11

Dim ip As IPicture
Set ip = Picture1.Picture '获得了图片
Set ip = Nothing '清除
Dim ip2 As IPicture
Set ip2 = ip '复制
Set Picture2.Picture = ip2 '显示
所有操作都明确了吧

Answer 12

关于这个问题，你可以把这个人民币符号做成资源，然后用LoadRes???函数取出即可
而且，你希望怎么放到变量里去呢？把你想写的代码写出吧（假设任何理想的语句都存在)

Answer 13

回Ninputer:
dim rmbfh as string
Text2(8) = rmbfh & Format(tmp, "0.00")

Answer 14

回Ninputer:
再来一次
Dim rmbfh  'rmbfh是人民币符号
如何调用c:\a.bmp使它等于rmbfh
text2(8)=rmbfg & format(tmp,"0.00") 'tmp是已得到的数字,即现金

Answer 15

啊？！原来是这样，你Copy DC吧。不过你干什么非要这样，是不是嫌“￥”不好看呀？用你的方法位置很难控制的！（复制DC的话）

Answer 16

Look:
Dim Image() As Byte
Dim ImgSize As Long   Open "e:\beany.bmp" For Binary As #1
   ImgSize = LOF(1)
   ReDim Image(ImgSize)
   Get #1, , Image()这样就把图片存导数组中去了，可以码，加分！

Answer 17

DC是什么,我的人民币符号是￥下多一横,所以我把它做成图片.你如有更先进的方法,请告诉我.
Thanks

Answer 18

我用msgbox image()得到'??',为什么?

Answer 19

漫步者先生，您的答案也……
人家只是要显示图片而已
To Kelly_Leecn：
没有什么好方法，在文本框中本来就不容易显示图片，况且你还要让图片和文字在一起
我有极其麻烦的替代方法，如果你非要使用您的￥符号的话，我给你编。不过可能要几百行

Answer 20

我可以把我的文本框改成Label

Answer 21

使用Stream对象好了。
Dim a as Variant
Dim dr as adodb.stream
set dr=createobject("adodb.stream")
dr.Mode=3
dr.Type=1
dr.open
dr.loadfromfile "D:\1.jpg"
a=dr.read
dr.close
set dr=nothing

Answer 22

反正很不好办啦，在Lebel中也一样，我原来编写显示化学式的时候也遇到过类似问题，你要不要试试看？不过我手头没有VB呀！

Answer 23

To Ninputer:
谢谢你,你方便的时候再回答我,我的E-Mail是[email protected]

Answer 24

Dim dr As ADODB.stream
要引用什么?

Answer 25

我明白你的意思了！你的要求在VB中是无法实现的，只有在VC中用视类才能实现！用VB解决这个问题永远也不会搞定！我再说明白一点，在不进行转换的情况下，字符串类型和长整型相加会是什么结果？即下面的语句你能保证不出错？
   Dim aa As Long
   Dim sz As String
   aa = 1000
   sz = "a;sdfj"
   MsgBox aa + sz