简单的方法是使用资源(文件),
在VB6的菜单,[外接程序] -- [外接工序管理器] ;选中 VB6 资源编辑器,勾选 “加载/卸载”,[确定]
见下图:
在菜单[工具] -- [资源编辑器],单击[添加位图],见下图
把需要的位图文件添加到资源里。然后单击保存,完成资源文件保存。
这样,在使用框的加载的函数的时候使用语句:
Image1Picture = LoadResPicture(101, 0)
其中101是你刚才添加到资源里的资源的Id号,
这样的方法,资源文件是包含在 EXE里了,所以改变计算机或者路径,不会有问题。
当然,如果用你原来的方法,那么你在编辑代码状态使用的加载的路径是怎样的,在其他计算机里也必须在相同路径里要有该文件。
有个控件叫 Imagelist 的,可一次添加多张。
Private Sub Command1_Click()
Image1Picture = ImageList1ListImages(1)Picture
Picture1Picture = ImageList1ListImages(2)Picture
End Sub
Private Sub Form_Load()
MePicture = ImageList1ListImages(3)Picture
End Sub
1)在窗体添加一个Image图像框控件。在它得属性页设置Stretch属性为True。
Stretch 属性,返回或设置一个值,该值用来指定一个图形是否要调整大小,以适应与 Image 控件的大小。如果 Stretch 被设置为 True,那么,控件大小的调整使得它所包含的图形的大小也要调整。
2)在代码中加入如下语句:
Private Sub Form_Resize()Image1Height = MeHeight
Image1Width = MeWidth
End Sub
Resize事件,当一个对象第一次显示或当一个对象的窗口状态改变时该事件发生。(例如,一个窗体被最大化、最小化或被还原。)
3)在Image控件的Picture属性连接需要或在程序代码中使用LoadPicture 函数将图形载入到Image控件的 Picture 属性。
使用Shell函数来调用外部的应用程序。
Shell 函数
执行一个可执行文件,返回一个 Variant
(Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。
Shell 函数示例
本示例使用 Shell 函数来完成一个用户指定的应用程序。
' 将第二个参数值设成 1,可让该程序以正常大小的窗口完成,并且拥有焦点。
Dim RetValRetVal = Shell("C:\WINDOWS\system32\CALCEXE", 1) ' 完成Calculator。
以上就是关于用VB制作一个小程序,程序打开后载入电脑里的图片,但是把程序发到其他电脑打开无法找到图像文件全部的内容,包括:用VB制作一个小程序,程序打开后载入电脑里的图片,但是把程序发到其他电脑打开无法找到图像文件、VB 中如何把图片直接保存在程序中而不是去电脑中调用(寻找传说中的高手)、vb的窗体背景如何设成图片等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)