home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_4_94 / vbwin / sirds / ausgabe.txt < prev    next >
Text File  |  1995-02-26  |  842b  |  24 lines
  1. Sub mnuMaximum_Click ()
  2. ' Zielbild auf Maximalgr÷▀e vergr÷▀ern
  3. 'Form3.bldSirds.AutoRedraw = False
  4. Form3.Show
  5. StretchBlt Form3.bldSirds.hDC, 0, 0, 640, 480, Form3.bldSirds.hDC, 0, 0, Form2.bldBild.ScaleWidth, Form2.bldBild.ScaleHeight, &HCC0020
  6. Form3.bldSirds.AutoRedraw = False
  7. Form3.bldSirds.Picture = Form3.bldSirds.Image
  8. End Sub
  9.  
  10. Sub mnuZoom_Click ()
  11. ' Zielbild auf Maximalgr÷▀e vergr÷▀ern
  12. ' Vorbereiten der Skalierung.
  13. Form3.bldSirds.Left = 0
  14. Form3.bldSirds.Top = 0
  15. Form3.bldSirds.Width = Form3.Width
  16. Form3.bldSirds.Height = Form3.Height
  17. ' GDI-Funktion zum Skalieren von Bitmaps.
  18. StretchBlt Form3.bldSirds.hDC, 0, 0, 640, 480, Form3.bldSirds.hDC, 0, 0, Form2.bldBild.ScaleWidth, Form2.bldBild.ScaleHeight, &HCC0020
  19. Form3.bldSirds.AutoRedraw = False
  20. Form3.bldSirds.Picture = Form3.bldSirds.Image
  21. Form3.Show
  22. End Sub
  23.  
  24.