Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Flimmern
Autor: Silver
Datum: 14.03.04 18:00
Hallo Ihr, Programmieren wir mal eine Laufschrift, ganz billig! Man benötigt hierzu nur eine Picture-Box (Picture1) und einen Timer (Timer1). Und folgenden Code: Private text As String Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Sub Form_Load() text = "ggfggggggcxjkxchjxvchjyhxvchxvchkxychxchcxhlkxlchxchvhvcxyhuidauhdouIÖXVHCPSR(FHUCVHUDVHSUDHUD<HUDHU<HIDVVHDLSVDHIUIVSÖVG<SDV<DPSVUGPSD2" Picture1.AutoRedraw = True Picture1.ScaleMode = vbPixels Picture1.Visible = False Me.ScaleMode = vbPixels Me.Width = Screen.Width / 2 Picture1.Width = Picture1.TextWidth(text) * 1.5 Picture1.Height = Picture1.TextHeight(text) * 1.5 Picture1.Print text Timer1.Interval = 10 End Sub Private Sub Timer1_Timer() Static x As Long Dim ti As Double x = x + 1 If x = Picture1.TextWidth(text) Then x = 0 BitBlt Me.hDC, 0, 0, Me.ScaleWidth, Picture1.ScaleHeight, Picture1.hDC, x, 0, vbSrcCopy End Sub So, das wars, F5 drücken - läuft! Und flimmert wie die Sau!!!!! Gehts auch ohne flimmern?!? Gruß Silver

Flimmern	1.470	Silver	14.03.04 18:00
Re: Flimmern	1.143	E7	14.03.04 19:34
Re: Flimmern	1.168	Silver	14.03.04 23:24
Re: Flimmern	1.090	Zardoz	15.03.04 07:14
Re: Flimmern	1.067	SailSteam	14.03.04 20:44
Re: Flimmern	1.001	Silver	14.03.04 23:19
Re: Flimmern	1.353	Zardoz	14.03.04 22:00
Re: Flimmern	1.124	GuidoE	20.03.04 03:20
Re: Flimmern	1.065	ApfelBaum	20.03.04 10:55
Re: Flimmern	1.022	Zardoz	20.03.04 16:25
Re: Flimmern	1.095	GuidoE	20.03.04 18:46
Re: Flimmern	1.077	Zardoz	23.03.04 17:48
Re: Flimmern	1.040	GuidoE	23.03.04 18:25
Re: Flimmern	1.184	Killerkeule	15.03.04 08:53
Re: Flimmern	994	Silver	15.03.04 11:51
Re: Flimmern	1.342	Silver	15.03.04 12:15
Re: Flimmern	972	Killerkeule	15.03.04 12:53
Re: Flimmern	1.046	TheNukeduke	15.03.04 21:17
Re: Flimmern	988	Silver	15.03.04 21:25
Re: Flimmern	1.028	Noti	16.03.04 05:04
Re: Flimmern	977	ApfelBaum	16.03.04 12:51
Re: Flimmern	974	Silver	16.03.04 22:15
Re: Flimmern	1.041	Silver	16.03.04 22:18

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