VB-Homepage Tipp 152
eine Form mit einer kleinen Grafik füllen
Sie kennen sicher die Möglichkeit unter HTML eine kleine Grafik so oft aneinander zureihen, das die gesammte Seite ausgefüllt ist.
(So wie mein VB-Homepage).
Diese Funktionalität ist eine nette Sache, spart man sich doch das Laden überdimensionaler Grafikdateien. Und auch dies geht unter VB zu verwirklichen.
Da ich Ihnen für ein Beispiel natürlich auch eine Grafik zur Verfügung stellen muß und ich dieses hier ganz schlecht als Text ablegen kann, gibt es diesen Tipp als File zum downloaden.

Modifizierung
Mitunter stellt man Fehler eben erst fest, wenn man die Tipps in umfangreichen Projekten nutzt. So erging es mir mit obigen Tipp, der zwar unter Windows 95 seinen Dienst ohne Probleme tut, aber unter Windows NT 4.0 eine Fehlermeldung erzeugt. Aus diesem Grund erfolgt nun die Modifizierung des Tipps, damit er auch unter NT einsetzbar ist. Sie benötigen für einen Test lediglich eine Form mit einem Pictureobjekt, dem Sie eine Grafik zuweisen.
Dazu definieren Sie nachfolgenden Sub

Allgemein/TileBitmapsProcessBar

Public Sub TileBitmapsProcessBar(ByRef ctl As Object, ByRef pic As PictureBox)
Dim lRet As Long
Dim nOuterCount As Integer
Dim nInnerCount As Integer

For nOuterCount = 0 To (Form1.Width / pic.Width) + 1
   For nInnerCount = 0 To (Form1.Height / pic.Height) + 1
      Form1.PaintPicture pic.Picture, 0 + nOuterCount * pic.ScaleWidth, 0 +    nInnerCount * pic.ScaleHeight, pic.ScaleWidth, pic.ScaleHeight
   Next
Next
End Sub

Der Aufruf erfolgt dann in der Form_Load Aktion und übergibt lediglich die zu füllende Form und den Ort der zu nutzenden Grafik
TileBitmapsProcessBar Form1, Picture1
Tipp-Download
Quelle :
Zurück zur Übersichtsseite