Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

3D-splash in Fenster???
Autor: Boris Huemer
Datum: 23.04.02 10:48
Hallo ! Ich hab einen code für eine kleine 3D animation, allerdings wird diese auf der gesamten form dargestellt! ist es irgendwie möglich diese animation nur in einer Picturebox darzustellen, oder sonst irgendwie einzugrenzen ? hier der code: -------------------------------------------------------------------------------------------------- 'Beispiel : Grafikanimation fuer Splash-Screen. Private Sub Form_Load() Me.Show f3DEffect Me, 0, 0, 255 End Sub Public Sub f3DEffect(objForm As Form, iRed As Integer, _ iGreen As Integer, iBlue As Integer) objForm.Scale (0, 100)-(100, 0) objForm.BackColor = vbBlack objForm.ForeColor = vbBlack For iCount% = 0 To 100 objForm.ForeColor = RGB(95, 95, 95) objForm.Line (iCount%, 0)-(100 - iCount%, 100) objForm.ForeColor = RGB(iRed%, iGreen%, iBlue%) objForm.Line (0, iCount%)-(100, 100 - iCount%) vActTime = Timer Do: DoEvents Loop Until Timer - vActTime > 0.000000000000001 Next iCount% For iCount% = 10 To 50 Me.Line (50 - iCount%, 50 + iCount%)-(50 + iCount%, 50 - iCount%), , BF vActTime = Timer Do: DoEvents Loop Until Timer - vActTime > 0.000000000000001 Next iCount% End Sub -------------------------------------------------------------------------------------------------------- danke, fg boris

3D-splash in Fenster???

51

Boris Huemer

23.04.02 10:48

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