拼图(2).frm
上传用户:lt27857608
上传日期:2022-03-06
资源大小:666k
文件大小:1k
- VERSION 5.00
- Begin VB.Form Form2
- Caption = "图片"
- ClientHeight = 9000
- ClientLeft = 2835
- ClientTop = 1380
- ClientWidth = 12000
- LinkTopic = "Form2"
- ScaleHeight = 9000
- ScaleWidth = 12000
- Begin VB.Image Image1
- Height = 9000
- Left = 0
- Picture = "拼图(2).frx":0000
- Stretch = -1 'True
- Top = 0
- Width = 12000
- End
- End
- Attribute VB_Name = "Form2"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub Form_Load()
- If Form1.s = "" Then
- Image1.Picture = LoadPicture(App.Path & "风景1.jpg")
- Else
- Image1.Picture = LoadPicture(Form1.s)
- End If
- End Sub