VB界面问题

Question

当需要不一样的FORM的背景图片时,我们怎么在菜单栏上导入?比如今天我的FORM1需要1.JPG图片,明天我要换成2.JPG图片.怎么控制?

Answer 1

form1.picture = loadpicture("文件全路径")

Answer 2

我们怎么在菜单栏上导入? 
什么叫菜单栏上导入??换form1的背景用Form1.Picture = LoadPicture("c:\1.jpg")
菜单栏上导入,把这句放到菜单事件里就行了.

Answer 3

我要的效果是在菜单栏上可以导入FORM图片,而不是固定的路径.

Answer 4

你用菜单命令打开一个公共对话框：
Private Sub munbackImage_Click()
CommonDialog1.ShowOpenForm1.Picture = LoadPicture(CommonDialog1.FileName)End Sub

Answer 5

Private Sub mnuFormPicture_Click()     'CancelError 为 True。
     On Error GoTo ErrHandler
     
     '设置过滤器。
     CommonDialog1.Filter = "All Files (*.*)|*.*|Picture Files (*.jpg)|*.jpg (*.bmp)|*.bmp"
     
     '指定缺省过滤器。
     CommonDialog1.FilterIndex = 2
     
     '显示“打开”对话框。
     CommonDialog1.ShowOpen
     
     '调用打开文件的过程。
     Form1.Picture = LoadPicture(CommonDialog1.FileName)
     
     Exit Sub
ErrHandler:
     '用户按“取消”按钮。
     Exit Sub
     
End Sub

Answer 6

Private Sub munbackImage_Click()
CommonDialog1.ShowOpenForm1.Picture = LoadPicture(CommonDialog1.FileName)End Sub

Answer 7

7楼贴错了，修改一下Private Sub mnuFormPicture_Click()     'CancelError 为 True。
     On Error GoTo ErrHandler
     
     '设置过滤器。
     CommonDialog1.Filter = "All Files (*.*)|*.*|Picture Files (*.jpg,*.bmp,*.gif)|*.jpg;*.bmp;*.gif|Jpg Files (*.jpg)|*.jpg"
     
     '指定缺省过滤器。
     CommonDialog1.FilterIndex = 3
     
     '显示“打开”对话框。
     CommonDialog1.ShowOpen
     
     '调用打开文件的过程。
     Form1.Picture = LoadPicture(CommonDialog1.FileName)
     
     Exit Sub
ErrHandler:
     '用户按“取消”按钮。
     Exit Sub
     End Sub

Answer 8

我原来做过这样的东西。将两幅图片放入 ImageList 控件。程序启动时，根据日期整数（Int(Date)) 的奇偶来确定载入哪一幅。

Answer 9

10楼,手动
13楼,自动,不过要确定某个日期就是要的那幅图.
按照13楼的思路,我也想到一个小方法:把你要作为背景图的那些图片放到同一个文件夹里,命名为
20090904.jpg,20090905.jpg……(gif,bmp同),这样有规律的form_load里面加一句
Form1.Picture = LoadPicture("c:\" & "200909" & Format(Day(Date), "00") & ".jpg")

Answer 10

年月也可以变换一下
Form1.Picture = LoadPicture("c:\" & Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00") & ".jpg")

Answer 11

form1.picture = loadpicture("文件全路径")
简单才是硬道理。

Answer 12

将图片放入资源文件中，使用LoadResPicture函数读取即可。