Cara Membuat Text Berjalan Di Layar Desktop

Kode berikut ini akan membuat atau memunculkan teks di area layar secara terus-menerus.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=300) ke dalam Form tersebut.


PADA VB 6.0
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetDesktopWindow Lib "user32" () As LongPrivate Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long Const s = " Contoh Project Baru "

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False Me.Hide

Lalu di bagian 'Timer1_Timer' ketikkan :

Dim l As Long l = GetWindowDC(GetDesktopWindow)
Randomize TextOut l, Rnd * (Screen.Width / Screen.TwipsPerPixelX), Rnd * (Screen.Height / Screen.TwipsPerPixelY), s, Len(s)

PADA VB.NET
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Integer) As Integer Private Declare Function GetDesktopWindow Lib "user32" () As Integer Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer, ByVal lpString As String, ByVal nCount As Integer) As Integer Const s = "Contoh Project Baru"

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

Dim i As Integer = GetWindowDC(GetDesktopWindow)

Randomize()
TextOut(i, Rnd() * Screen.PrimaryScreen.Bounds.Width, Rnd() * Screen.PrimaryScreen.Bounds.Height, s, Len(s))

CATATAN : Isi teks yang muncul dapat dirubah dengan mengganti kode yang berwarna Hijau

Semoga dapat membantu :)