高分 请教各位VB高手一问题！！

来源：百度知道 编辑：UC知道 时间：2024/06/25 06:11:44
1.我做了个小程序，其中含有个图片。做好后我发给朋友看，但朋友那运行不了，问题是图片路径不对。（我放在D盘，他放在F盘）请教各位有没有办法不论这个程序发在哪，程序都有办法自动找到这张图。（图片和程序在同个文件夹里。）
2.请高手们帮忙做个小程序：我在VB视图上建立了个按钮，它的单击事件是启动Timer，5秒后计算机自动关机。（不用在视图上显示倒计时，只要点击后，5秒后计算机自动关机。） 程序尽量精短，尽量小。

1.答：
比如说你的image控件是image1，图片是1.jpg，那么就这么写：

Private Sub Form_Load()
Image1.Picture = LoadPicture(".\1.jpg")
End Sub

2.答：
工程包括一个按钮一个timer控件，代码如下

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 5000
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Shell ("c:\windows\system32\shutdown.exe /s /t 0")
Timer1.Enabled = False
End Sub

第一个问题，只需要将图片的路径设置为相对路径即可(将图片和程序文件放在同一目录里，设置图片时只要图片文件名，不需要前面的路径字符）