CHARFORMAT صرفا جهت فرمت کاراکتر

EM_SETCHARFORMAT message

wParam : SCF_ALL

lParam

Pointer to a CHARFORMAT structure specifying the character formatting to use. Only the formatting attributes specified by the dwMask member are changed.

Type LOGFONTA 

lfHeight As Long

lfWidth As Long

lfItalic As Long 

lfCharSet As Long 

lfFaceName As String

End Type

The character set. The following values are predefined

ANSI_CHARSET=&H0

BALTIC_CHARSET=&BA

CHINESEBIG5_CHARSET

DEFAULT_CHARSET=&H1

EASTEUROPE_CHARSET=&HEE

GB2312_CHARSET=&H86

GREEK_CHARSET=&A1

HANGUL_CHARSET=&H81

MAC_CHARSET=&H4D

OEM_CHARSET=&HFF

RUSSIAN_CHARSET=&HCC

SHIFTJIS_CHARSET=&H80

SYMBOL_CHARSET=&H2

TURKISH_CHARSET=&HA2

VIETNAMESE_CHARSET=&HA3

JOHAB_CHARSET=&H82

ARABIC_CHARSET=&HB2

HEBREW_CHARSET=&HB1

THAI_CHARSET=&HDE

Type CHARFORMATA

 cbSize

dwMask  : CFM_ALL

dwEffects : CFE_BOLD

yHeight

yOffset

crTextColor

(bCharSet  : See LOGFONT Structure (lfCharSet

bPitchAndFamily : See LOGFONT Structure 

(lfPitchAndFamily)

szFaceName

End Type 

SCF_DEFAULT=&H0

SCF_SELECTION=&H1

SCF_ALL=&H4

'Char Format Effect

CFE_BOLD=&H0

CFE_ITALIC=&H1

CFE_UNDERLINE=&H4

CFE_LINK=&H20

'Char Format Mask

CFM_BOLD=&H0

CFM_ITALIC=&H2

CFM_UNDERLINE=&H4

CFM_COLOR=&H40000000

CFM_CHARSET=&H8000000

InitCommonControls

Case WM_Command       wm-command

if lparam=hRichEdit Then
 SendMessage(hRichEdit,EM_setBkgndColor,False,Green)


Dim P As CharRange
P.cpmin = 0 : P.cpmax = -1 

SendMessage(hRichEdit,EM_EXSetSel, 0, VarPtr(p))
'0,-1 selects all 'make selection red Local

Dim cf As CHARFORMAT
cf.cbSize=Len(cf)
cf.dwMask=CFM_COLOR
cf.crTextColor=vbRed

SendMessage(hRichEdit,EM_SETCHARFORMAT,SCF_SELECTION,VarPtr(cf))

P.cpmin = 0:P.cpmax = 0

SendMessage(hRichEdit,EM_EXSetSel,0, VarPtr(p))

End If


Type CHARRANGE
cpMin As Long
cpMax As Long
End Type

CHARRANGE structure


Specifies a range of characters in a rich edit control.

If the cpMin and cpMax members are equal, the range is empty. The range includes everything if cpMin is 0 and cpMax is –1

برای تغییر Font ارسال پیام WM_SETFONT که wparam همان hfont است و lparam هم NonZero

Dim lf As LOGFONT

lf.lfUnderline = 1

lf.lfCharSet = &HB1

(x = CreateFontIndirect(lf

SendMessageA Et, WM_SETFONT, x, 1

TabOrder .... KeyBoard Focus در InputBox

KEYBOARD FOCUS

تماما طبق داکیومنت آفیس و فروم خارجی انجام شده ماجیک نیست و بنده هم خالقش نیستم تجربه ای بود که شما را هم سهیم کردم هر چند خود شما استاد بنده هستید.

در پیام ShowWindow در WndProc 

تب اوردر یا ترتیب فوکس کنترل ها در Inputbox اول Edit است و بعد Ok و نهایتا Cancel 

درhbtn که JK است در EXSTYLE آن از CLIENTEDGE و STATICEDGE استفاده شده 

در تابع زیر فوکس بعد از ٍ Edit به باتن JK داده شده طبق تصویر و بعد به باتن Cancel طبق تصویر پایین ترش 

Et: Edit Control Handle

اگر NOSIZE را بکار نبریم سایز باتن صفر میشود پس حتما بگذارید مگر اینکه بخواهید سایز طبق آرگومانها تغییرکند همچنین جابجایی اش .

SetWindowPos hbtn, Et, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

SetWindowPos GetDlgItem(hwnd, 2), hbtn, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE