摘要载入中…　　　　请稍等…















内容载入中…　　　　请稍等…

如何使Text文本框的属性只读？

 2009-1-5 21:15:00　　　来源：互联网　　
   

　·如何做出跑馬燈效果的 TextBox　·如何在VB中制作不回显的文本框　·显示文件属性对话框 
如何使Text文本框的属性只读？
 

声明：

Private Declare Function SendMessage Lib "user32" Alias _
   "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Private Const EM_SETREADONLY = &HCF
程序：
Private Sub Form_Load()
    Call SendMessage(Text1.hwnd, EM_SETREADONLY, True, vbNull)
End Sub
　[1]