Dim S As String,b
Private Sub Form_Load()
    Picture1.Picture = LoadPicture("E:\abc.jpg")
    Set S = Picture1.Picture
    Set b = S
    Picture2.Picture = b
End Sub
上述过程运行时出现："Set S = Picture1.Picture"中的"S="要求是对象的错误。如果把"Dim S As String"改为"Dim S As  Object"。就正常了。请求高手指教，怎样才能把数字型字符串转换为长整型变量，用Val是绝对不行的。

[ 本帖最后由 中南红叶 于 2015-6-15 17:42 编辑 ]

如某图片：s=picture1.picture的变量是:76854398,通过Dim s  As String，换成字符串:s="76854398"。再把数字型字符串"s"转换成长整数型"b"，最终换回为图片:picture1.picture=b。既字符串与长整数型的转换。从表面看这过程无聊，实际上作用很大。求板主指教！

[ 本帖最后由 中南红叶 于 2015-6-15 17:38 编辑 ]

Dim S As String c As Object,b
 Private Sub Form_Load()
    Picture1.Picture = LoadPicture("E:\abc.jpg")
    S = Picture1.Picture  
    b = Val(s)
    Set c = CLng(b)        'CLng(b)把b的小数部分四舍五入转换为长整数型数
    Picture2.Picture = c
  Rnd Sub
用此CLng(b)函数来转换，会提CLng类型不匹配的错误。请教各位，多多帮忙，先在此谢谢！

[ 本帖最后由 中南红叶 于 2015-6-15 21:20 编辑 ]