Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Mein momentaner Quellcode sieht so aus-->
Autor: Martin
Datum: 10.12.01 20:37
Nun, Mein momentaner Quellcode sieht so aus--> If optNebeneinander.Value = True Then Dim i As Integer Dim j As Integer Desktop = RegGetResolution 'In die "Desktop" Variable wird die aktuelle Windows 'Auflösung aus der Registry aus gelesen 'Diese Berechnung ist dazu da die Verhältnisse in meiner PicBox im Gegensatz zur 'Bildschirmauflösung zu ermitteln. nl = (Desktop.Width - Bitmap.bmWidth) * (PicBox.ScaleWidth / Desktop.Width) nt = (Desktop.Height - Bitmap.bmHeight) * (PicBox.ScaleHeight / Desktop.Height) Do PicBox.PaintPicture CurPicture, i, j, (Display.ScaleWidth - nl), (Display.ScaleHeight - nt) i = i + (PicBox.ScaleWidth - nl) If i > PicBox.ScaleWidth Then i = 0 j = j + (PicBox.ScaleHeight - nt) If j > PicBox.ScaleHeight Then Exit Do End If Loop Es dauert zu lange!!!

PicBox - Vorschau für den "Nebeneinander"-AnzeigeM...	53	Martin	10.12.01 20:23
Mein momentaner Quellcode sieht so aus-->	39	Martin	10.12.01 20:37

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen