如何使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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货