可视化编程应用VisualBasic06 案例库 案例四 设置TEXTBOX为只读属性.docx

《可视化编程应用VisualBasic06 案例库 案例四 设置TEXTBOX为只读属性.docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、案例四设置TEXTBOX为只读属性设置TEXTBOX为只读属性PrivateDeclareFunctionSendMessageLibAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLongPrivateDeclareFunctionGetWindowLongLib_AsLong,ByValnIndexAsLong)AsLongPrivateConstGWL_STYLE=(-16)PrivateConstEM_SETREADONLY=&HCFPrivateSubComma

2、nd1_Click()DimlAsLongIf(GetWindowLong(Text1.hwnd,GWL_STYLE)And&H800)ThenText1.Text='文本窗口是只读窗口,设置为可读写窗口l=SendMessage(Text1.hwnd,EM_SETREADONLY,False,vbNull)Text1.BackColor=RGB(255,255,255)'将背景设置为白色Command1.Caption=ElseText1.Text='文本窗口是可读写窗口,设置为只读窗口l=SendMessage(Text1.h

3、wnd,EM_SETREADONLY,True,vbNull)Text1.BackColor=vbInactiveBorder'将背景设置为灰色Command1.Caption=EndIfEndSub