63 lines
1.5 KiB
Plaintext
63 lines
1.5 KiB
Plaintext
VERSION 5.00
|
|
Begin VB.Form frmImageViewer
|
|
AutoRedraw = -1 'True
|
|
BorderStyle = 5 'Änderbares Werkzeugfenster
|
|
Caption = "Form2"
|
|
ClientHeight = 5085
|
|
ClientLeft = 60
|
|
ClientTop = 300
|
|
ClientWidth = 7320
|
|
LinkTopic = "Form2"
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
ScaleHeight = 5085
|
|
ScaleWidth = 7320
|
|
ShowInTaskbar = 0 'False
|
|
StartUpPosition = 3 'Windows-Standard
|
|
Begin VB.CommandButton cmdClose
|
|
Caption = "Schließen"
|
|
Height = 435
|
|
Left = 3060
|
|
TabIndex = 0
|
|
Top = 4590
|
|
Width = 1095
|
|
End
|
|
Begin VB.Image Picture1
|
|
Height = 3435
|
|
Left = 450
|
|
Top = 300
|
|
Width = 5415
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmImageViewer"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Private Sub cmdClose_Click()
|
|
Unload Me
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub Form_Activate()
|
|
|
|
Picture1.Stretch = True
|
|
|
|
Me.Width = Picture1.Width * 1.1
|
|
Me.Height = Picture1.Height * 1.1 + cmdClose.Height * 3
|
|
|
|
cmdClose.Left = (Me.ScaleWidth - cmdClose.Width) / 2
|
|
cmdClose.Top = Me.ScaleHeight - cmdClose.Height * 1.5
|
|
|
|
End Sub
|
|
|
|
Private Sub Form_Load()
|
|
Me.Top = 0
|
|
Me.Left = 0
|
|
Picture1.Left = 0
|
|
Picture1.Top = 0
|
|
|
|
End Sub
|
|
|