VBcoders Browse New Submit Contact Sign In

No account? Register free

Forgot password?

A1 Gradient Form and Picture with Gradient and Emboss Text

Lutfur Rahman Bhuiyan  (7 Submissions)   Graphics   VB Script   Intermediate   Wed 3rd February 2021

A perfect Gradient Form and Picture with Emboss and Gradient Text Effect. Enter your text with a text box than save it a Bitmap file format.

Assumes
A perfect Gradient Form and Picture with Emboss and Gradient Text Effect. Enter your text with a text box than save it a Bitmap file format.

Returns
Graphics

API Declarations
Private Declare Function CreateFontIndirect Lib "gdi32" Alias _
"CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFaceName As String * 33
End Type
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, _
ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SetGraphicsMode Lib "gdi32" (ByVal hdc As Long, ByVal iMode As Long) As Long
Const GM_ADVANCED = 2

Rate A1 Gradient Form and Picture with Gradient and Emboss Text (5(5 Vote))

Download A1 Gradient Form and Picture with Gradient and Emboss Text

A1 Gradient Form and Picture with Gradient and Emboss Text Comments

No comments yet — be the first to post one!

Post a Comment

0/1000 characters