home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_2_94 / plus1 / vorschau / vorschau.frm < prev    next >
Text File  |  1994-02-22  |  3KB  |  107 lines
  1. VERSION 2.00
  2. Begin Form Vorschau 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Nicht Σnderbar, einfach
  5.    Caption         =   "Vorschau (Demo)"
  6.    ClientHeight    =   4515
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   5475
  10.    Height          =   4920
  11.    Icon            =   VORSCHAU.FRX:0000
  12.    Left            =   1035
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   4515
  16.    ScaleWidth      =   5475
  17.    Top             =   1140
  18.    Width           =   5595
  19.    Begin TextBox Text1 
  20.       Height          =   315
  21.       Left            =   120
  22.       TabIndex        =   0
  23.       Text            =   "c:\windows\system\vgalogo.rle"
  24.       Top             =   4080
  25.       Width           =   5235
  26.    End
  27.    Begin PictureBox Bild1 
  28.       Height          =   3075
  29.       Left            =   120
  30.       ScaleHeight     =   3045
  31.       ScaleWidth      =   5205
  32.       TabIndex        =   1
  33.       Top             =   120
  34.       Width           =   5235
  35.       Begin Image Anzeige1 
  36.          Height          =   975
  37.          Left            =   240
  38.          Top             =   360
  39.          Width           =   1155
  40.       End
  41.    End
  42. End
  43.  
  44. Sub Form_Load ()
  45.     
  46.     Vorschau.Bild1.Height = Vorschau.Bild1.Width * 3 / 4
  47.     
  48.     Vorschau_zeigen "c:\windows\system\vgalogo.rle"
  49.     
  50. End Sub
  51.  
  52. Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer)
  53.  
  54.     If KeyCode = 13 Then Vorschau_zeigen (Text1.Text)
  55.  
  56. End Sub
  57.  
  58. Sub Vorschau_zeigen (BildDateiName$)
  59.  
  60. ' Aktiviert Fehlerbehandler
  61.     On Error GoTo Fehler
  62.     
  63. ' Anzeige unsichtbar, Mouse-Zeiger Sanduhr
  64.     Vorschau.Anzeige1.Visible = False
  65.     Screen.MousePointer = 11
  66.     
  67. ' In die Anzeige wird das Bild geladen, das SeitenverhΣltnis
  68. ' ermittelt und die Anzeige in den "Stretch"-Modus geschaltet
  69.     Vorschau.Anzeige1.Stretch = False
  70.     Vorschau.Anzeige1.Picture = LoadPicture(BildDateiName$)
  71.     Faktor = Vorschau.Anzeige1.Width / Vorschau.Anzeige1.Height
  72.     Vorschau.Anzeige1.Stretch = True
  73.     
  74. ' Die Anzeige wird in das Bildfeld seitenproportional eingepa▀t
  75. ' und zentriert
  76.     If Vorschau.Bild1.Height * Faktor <= Vorschau.Bild1.Width Then
  77.         Vorschau.Anzeige1.Width = Vorschau.Bild1.Height * Faktor
  78.         Vorschau.Anzeige1.Height = Vorschau.Bild1.Height
  79.     Else
  80.         Vorschau.Anzeige1.Width = Vorschau.Bild1.Width
  81.         Vorschau.Anzeige1.Height = Vorschau.Bild1.Width / Faktor
  82.     End If
  83.     Vorschau.Anzeige1.Left = (Vorschau.Bild1.Width - Vorschau.Anzeige1.Width) / 2
  84.     Vorschau.Anzeige1.Top = (Vorschau.Bild1.Height - Vorschau.Anzeige1.Height) / 2
  85.     
  86. ' Alternative zur Zentrierung bei Verwendung einer Figur anstelle
  87. ' des Bildfeldes als Rahmen (spart Resourcen)
  88. ' Vorschau.Anzeige1.Left = Vorschau.Figur1.Left + (Vorschau.Figur1.Width - Vorschau.Anzeige1.Width) / 2
  89. ' Vorschau.Anzeige1.Top = Vorschau.Figur1.Top + (Vorschau.Figur1.Height - Vorschau.Anzeige1.Height) / 2
  90.     
  91. Fehler:
  92.     
  93. ' Anzeige sichtbar, Mouse-Zeiger wieder normal
  94.     Vorschau.Anzeige1.Visible = True
  95.     Screen.MousePointer = 0
  96.     
  97. ' Fehlerroutine
  98.     If Err Then
  99.         Vorschau.Anzeige1.Picture = LoadPicture("")
  100.         MsgBox "Das Bild """ + BildDateiName$ + """ kann nicht angezeigt werden!", 16
  101.     End If
  102.     
  103.     Exit Sub
  104.     
  105. End Sub
  106.  
  107.