روش ساخته متنهاي سه‌بعدي در VB

Amin_vb · May 24, 2003

با استفاده از اين كد شما مي‌توانيد متنهاي خود را به صورت سه‌بعدي در ويژوال بيسيك نمايش دهيد.

كافيست كد زير ار اجرا نماييد و به جاي YOUR TEXT HERE متن خود را قرار دهيد.

کد:

' Add It To a ButtoN !
ForeColor = 0: x = CurrentX: y = CurrentY
For i = 1 To 100
        Print "YOUR TEXT HERE" ' Text Here
        x = x + 1: y = y + 1: CurrentX = x: CurrentY = y
Next
ForeColor = &HFFFF& 'Change Color Here
Print "YOUR TEXT HERE" ' Text Goes Here