home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Begin VB.Form Form1
- AutoRedraw = -1 'True
- Caption = "Picture and Image Properties"
- ClientHeight = 6930
- ClientLeft = 60
- ClientTop = 345
- ClientWidth = 8565
- ForeColor = &H00FFFF00&
- LinkTopic = "Form1"
- PaletteMode = 1 'UseZOrder
- ScaleHeight = 6930
- ScaleWidth = 8565
- StartUpPosition = 3 'Windows Default
- Begin VB.CommandButton Command2
- Caption = "Copy Picture"
- BeginProperty Font
- Name = "Tahoma"
- Size = 9.75
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 420
- Left = 6270
- TabIndex = 4
- Top = 810
- Width = 2130
- End
- Begin VB.CommandButton Command1
- Caption = "Load Picture && Draw"
- BeginProperty Font
- Name = "Tahoma"
- Size = 9.75
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 420
- Left = 6255
- TabIndex = 3
- Top = 195
- Width = 2160
- End
- Begin VB.PictureBox Picture3
- Height = 2895
- Left = 4485
- ScaleHeight = 2835
- ScaleWidth = 3945
- TabIndex = 2
- Top = 3900
- Width = 4005
- End
- Begin VB.PictureBox Picture2
- Height = 2895
- Left = 240
- ScaleHeight = 2835
- ScaleWidth = 3945
- TabIndex = 1
- Top = 3900
- Width = 4005
- End
- Begin VB.PictureBox Picture1
- AutoRedraw = -1 'True
- BeginProperty Font
- Name = "Tahoma"
- Size = 9.75
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00FFFFFF&
- Height = 3315
- Left = 210
- ScaleHeight = 3255
- ScaleWidth = 3960
- TabIndex = 0
- Top = 105
- Width = 4020
- End
- Begin VB.Label Label2
- Caption = "Picture3.Picture = Picture1.Image"
- BeginProperty Font
- Name = "Tahoma"
- Size = 9.75
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 4485
- TabIndex = 6
- Top = 3630
- Width = 3240
- End
- Begin VB.Label Label1
- Caption = "Picture2.Picture = Picture1.Picture"
- BeginProperty Font
- Name = "Tahoma"
- Size = 9.75
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 270
- TabIndex = 5
- Top = 3615
- Width = 3195
- 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()
- Picture1.Picture = LoadPicture(App.Path + "\planets.bmp")
- Picture1.DrawWidth = 2
- Picture1.Line (100, 100)-(3200, 500), , B
- Picture1.DrawWidth = 1
- Picture1.Circle (1000, 1500), 750
- Picture1.Circle (1000, 1500), 800
- Picture1.CurrentX = 200
- Picture1.CurrentY = 200
- Picture1.Print "Picture and Image Properties"
- End Sub
- Private Sub Command2_Click()
- Picture2.Picture = Picture1.Picture
- Picture3.Picture = Picture1.Image
- End Sub
-