vb语言中怎样编码窗体中所有字体加粗_如何用CreateFont函数创建加粗的字体

VB codeOption Explicit

'Example Name:Create Font

'used with fnWeight

Const FW_DONTCARE = 0

Const FW_THIN = 100

Const FW_EXTRALIGHT = 200

Const FW_LIGHT = 300

Const FW_NORMAL = 400

Const FW_MEDIUM = 500

Const FW_SEMIBOLD = 600

Const FW_BOLD = 700

Const FW_EXTRABOLD = 800

Const FW_HEAVY = 900

Const FW_BLACK = FW_HEAVY

Const FW_DEMIBOLD = FW_SEMIBOLD

Const FW_REGULAR = FW_NORMAL

Const FW_ULTRABOLD = FW_EXTRABOLD

Const FW_ULTRALIGHT = FW_EXTRALIGHT

'used with fdwCharSet

Const ANSI_CHARSET = 0

Const DEFAULT_CHARSET = 1

Const SYMBOL_CHARSET = 2

Const SHIFTJIS_CHARSET = 128

Const HANGEUL_CHARSET = 129

Const CHINESEBIG5_CHARSET = 136

Const OEM_CHARSET = 255

'used with fdwOutputPrecision

Const OUT_CHARACTER_PRECIS = 2

Const OUT_DEFAULT_PRECIS = 0

Const OUT_DEVICE_PRECIS = 5

'used with fdwClipPrecision

Const CLIP_DEFAULT_PRECIS = 0

Const CLIP_CHARACTER_PRECIS = 1

Const CLIP_STROKE_PRECIS = 2

'used with fdwQuality

Const DEFAULT_QUALITY = 0