Question

vb 中怎么实现背景图片更换（新手学习中）

就是点击一个按钮后出现选择图片的窗口，选择并确定后所选的图片成为背景图片，最好有源代码。
我的意思是，图片可以随机任选，不一定是某个固定文件夹里的图片

Answer 1

用代码 更改一下对象名称及路径 mdiform1.Picture = LoadPicture("f:\cnnsf.jpg")

Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

Answer 2

Private Sub CmdExit_Click()
End
End Sub
Private Sub CmdSel_Click()
Cdl1.ShowOpen
BackPicture = Cdl1.FileName
ShowBackGround Frmmain '窗体名为frmmain

End Sub
Private Sub Form_Load()
BackPicture = App.Path + "\default.JPG"
ShowBackGround Frmmain
End Sub
-----------------------------
以下是模块源码
Global BackPicture As String

Sub ShowBackGround(Frm As Form)

Dim Pic As StdPicture

If BackPicture = "" Then Exit Sub

Frm.Cls

On Error GoTo ErrorPic

Set Pic = LoadPicture(BackPicture)
W = 0
H1 = Pic.Height / 27
W1 = Pic.Width / 27
While W < Frm.ScaleWidth
H = 0
While H < Frm.ScaleHeight
Frm.PaintPicture Pic, W, H
H = H + H1
Wend
W = W + W1
Wend
'ShowBorder Frm
Exit Sub

ErrorPic:
If Err.Number = 481 Then
MsgBox " Picture File Error!"
End If
If BackPicture <> App.Path + "\default.JPG" Then
BackPicture = App.Path + "\default.JPG"
Set Pic = LoadPicture(BackPicture)
Resume Next
Else
'ShowBorder Frm
End If
End Sub

Answer 3

用记事本保存下面的代码,文件名以.frm结尾
=========================
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 495
Left = 1800
TabIndex = 0
Top = 1320
Width = 1215
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 1560
Top = 840
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
Filter = "图片文件|*.bmp;*.jpg;*.gif"
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error GoTo e
CommonDialog1.ShowOpen
Picture = LoadPicture(CommonDialog1.FileName)
e:
End Sub

Answer 4

用VB编程实现窗体中更换背景图，载入指定文件夹中的图片作为背景。

Answer 5

Me.Picture="图象文件名"（不在当前路径的文件要指定路径）