UC知道让vb打开图片文件出错
来源：百度知道 编辑：UC知道 时间：2024/05/31 00:50:33
Private Sub Form_Load()
Dim Str As String
Str = Command()
If Str <> "" Then
Me.Caption = Str + "-科凯急速图片浏览"
Ima.Picture = VB.LoadPicture(Str)
Else
Me.Caption = "没有图片-科凯急速图片浏览"
End If
End Sub
编译出来他提示无法访问？
Dim Str As String
Str = Command()
If Str <> "" Then
Me.Caption = Str + "-科凯急速图片浏览"
Ima.Picture = VB.LoadPicture(Str)
Else
Me.Caption = "没有图片-科凯急速图片浏览"
End If
End Sub
编译出来他提示无法访问？
'调用
Private Sub Form_Load()
Shell "z:\工程1.exe d:\1.jpg", 1
End Sub
'工程1代码如下
Private Sub Form_Load()
Dim Str As String
Str = Command()
If Str <> "" Then
Me.Caption = Str + "-科凯急速图片浏览"
Ima.Picture = LoadPicture(Str)
Else
Me.Caption = "没有图片-科凯急速图片浏览"
End If
End Sub