dbcontrols的问题,很急,不会的朋友说两句废话也可以.

[dbcontrols]

怎么用代码切换Insert键的状态?

[lihonggen0]

StatusBar 控件常数


StatusBar 样式常数

常数 值 描述
sbrNormal 0 正常。StatusBar 被分成面板。
sbrSimple 1 简化。StatusBar 只有一个大面板和简化文本。


面板对齐常数

常数 值 描述
sbrLeft 0 文本靠左。
sbrCenter 1 文本居中。
sbrRight 2 文本靠右。


面板自动调整大小常数

常数 值 描述
sbrNoAutoSize 0 非自动调整大小。
sbrSpring 1 在面板中划分附加空间。
sbrContents 2 符合于目录。


面板斜面常数

常数 值 描述
sbrNoBevel 0 无斜面。
sbrInset 1 斜面插入。
sbrRaised 2 斜面凸起。


面板样式常数

常数 值 描述
sbrText 0 显示文本和/或位图。
sbrCaps 1 显示 Caps Lock 状态。
sbrNum 2 显示 Number Lock 状态。
sbrIns 3 显示 Insert 键状态。
sbrScrl 4 显示 Scroll Lock 状态。
sbrTime 5 以 System 格式显示时间。
sbrDate 6 以 System 格式显示日期。
sbrKana 7 Kana。当激活滚动锁定时，显示黑体字母 KANA，反之当停用滚动锁定时，则显示暗淡的字母 KANA。


'**************sbrIns 3 显示 Insert 键状态。 *********
'**************让需要按Insert 键时,发送一个sendkeys***
Private Sub Command1_Click()
SendKeys "vbKeyInsert"
End Sub

[sxmzmxh]

同意楼上的说法，up

[dbcontrols]

对不起,我是在Form1中控制Form2中的Text1,尽管您提供的代码不能用,我仍然谢谢您!

[whose]

不知有沒有這樣的寫法
sendkey "{insert}"

[yangzhaoyu]

通过CHECK1模拟INSERT状态
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Check1.Value And Text1.SelLength = 0 Then
Text1.SelLength = 1
End If
End Sub

[dbcontrols]

Text1是只读的,得不到焦点,我想使用SendMessage,哪位大侠再出手?.
谢谢!

[dbcontrols]

Text1是只读的,得不到焦点,我想使用SendMessage,哪位大侠再出手?.
谢谢!

[yangzhaoyu]

只读还需要insert??

[dbcontrols]

是啊

[dbcontrols]

up and up