怎么两种锁住文本框禁止输入的办法，对于连接数据库的文本框都不怎么好用啊！
我有一组文本框与数据库连接。我想控制在没注册时，禁止输入。但是我用两种办法禁止输入，可是总是有时管用，有时就不管用了。怎么办！求大虾们指教
第一种办法是调用api函数
使文本框只读
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
Call SendMessage(Form3.text1.hwnd, EM_SETREADONLY, True, vbNull)
Call SendMessage(Form3.text2.hwnd, EM_SETREADONLY, True, vbNull)
Call SendMessage(Form3.text3.hwnd, EM_SETREADONLY, True, vbNull)
.
.
.
第二种方法是：
Form3.text1.Locked = True
Form3.text2.Locked = True
Form3.text3.Locked = True
.
.
.
大虾们帮着看看。。。
[解决办法]
第一种我没测试过，第二种绝对奏效
[解决办法]
//我有一组文本框与数据库连接
代码没有问题
你连接的时机是什么?
建议你在判断是否注册之后再和数据库连接,或者,决定这几个textbox是否和数据库连接
[解决办法]
Text1.Enabled = False
[解决办法]
to 楼主
连接数据库编程,最好不要使用控件绑定,因为控件处理局限性比较明显,不是很灵活.
强烈建议使用手工代码实现逻辑上的绑定.
比如: TEXT1.TEXT=RECORD1.FIELD(0).VALUE
速度上并没有区别,而代码/功能的灵活性则增加很多.
如果楼主对于如何用代码实现不熟悉,可以将具体问题放上来讨论
[解决办法]
同意楼上所述
[解决办法]
提供一种另类做法:
在未注册时使用标签控件,将文本框隐藏.这两种控件都可绑定数据库.当完成注册则标签控件隐藏,文本框控件显示.两控件放窗体同一位置:
Private Sub Form_Load()
Text1.Visible = False
Label1.BorderStyle = 1
Label1.BackColor = &HFFFFFF
End Sub
