关于VB，帮忙高手解释下，不懂啊

来源：百度知道 编辑：UC知道 时间：2024/09/24 12:07:25
Private Sub Form_Resize()
On Error GoTo Err
Picture1.Top = 0
Picture1.Left = 0
Picture1.Height = Me.ScaleHeight - StatusBar1.Height
Picture1.Width = Me.ScaleWidth
StatusBar1.Panels(1).Text = "欢迎使用浙安公司信息管理系统"
Label9.Left = (Picture1.ScaleWidth - Label9.Width) / 2
Label9.Top = Picture1.ScaleHeight / 2 - Label9.Height / 2
Label1.Top = Label9.Top + 50
Label1.Left = Label9.Left + 50

Dim strS As String
strS = GetSetting(App.Title, "Settings", "BackPic", "")

If strS <> "" Then ''图片
Image1.Picture = LoadPicture(strS)
Picture1.Refresh
Picture1.PaintPicture Image1.Picture, Picture1.ScaleTop, Picture1.ScaleLeft, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Image1.Width, Image1.Height
Else ''颜色
strS = GetSetting(App.Title, "Settings", "BackColor", "")
If strS <>

Private Sub Form_Resize()
On Error GoTo Err
Picture1.Top = 0'设置图片框picture1的位置(x,y)、高度、宽度
Picture1.Left = 0
Picture1.Height = Me.ScaleHeight - StatusBar1.Height
Picture1.Width = Me.ScaleWidth
StatusBar1.Panels(1).Text = "欢迎使用浙安公司信息管理系统"'设置状态栏文字
Label9.Left = (Picture1.ScaleWidth - Label9.Width) / 2
Label9.Top = Picture1.ScaleHeight / 2 - Label9.Height / 2
Label1.Top = Label9.Top + 50
Label1.Left = Label9.Left + 50'设置Label1文本

Dim strS As String
strS = GetSetting(App.Title, "Settings", "BackPic", "")'从注册表中读背景图片文件

If strS <> "" Then ''图片 '如果注册表中读到背景图片文件名
Image1.Picture = LoadPicture(strS)'用image1装入背景图片
Picture1.Refresh
Picture1.PaintPicture Image1.Picture, Picture1.ScaleTop, Picture1.ScaleLeft, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Image1.Width, Image1.Height '在Picture1上绘制image1装入的背景