剪切板问题

[retifax]

Private Sub mnuecopy_Click()
' On Error Resume Next
' Clipboard.Clear
' Clipboard.SetText Screen.ActiveControl.SelText
SendKeys "^C"
End Sub

Private Sub mnuecut_Click()
SendKeys "^X"
' On Error Resume Next
' Clipboard.Clear
' Clipboard.SetText Screen.ActiveControl.SelText
' Screen.ActiveControl.SelText = vbNullString
End Sub
Private Sub mnuepaste_Click()
' On Error Resume Next
' Screen.ActiveControl.SelText = Clipboard.GetText（）
SendKeys "^V"
End Sub
引号部分是运行不正确的代码，翻了MSDN，看不出来哪错了，只好用SENDKEYS
请告诉我哪错了？

[retifax]

整个窗体里有多种控件，MSDN里确实有说根据控件判断该怎么写语句，但很多控件的相关属性没有给出（我用的简化版的，全的NET里的，装在另一个系统），嘿嘿，实际上我试过在里面打Screen.ActiveControl. 没反应，这我知道，呵，主要用在图形框和DATAGRID里，定死在文本框架里基本不可能呢，不过还是很谢谢两位

[retifax]

四位，呵呵,并没有错误提示呢，只是没效果而已

[leolan]

錯誤提示是什麼?

[flyingZFX]

大哥，

你什么时候听说，Screen.ActiveControl 有.SelText属性了，，，服了，

你在Screen.ActiveControl的后面打一个点试试看，

[kinlin]

如果激活的控件是有SelText属性的如：文本框text，那么Screen.ActiveControl.SelText是可用的 ，如果你用三个Command来做实验，那Private Sub mnuecut_Click()事件中Screen.ActiveControl是Command控件，自然无SelText属性

[flyingZFX]

向楼上学习，

[flyingZFX]

Private Sub Command1_Click()
Dim a As Control

Clipboard.Clear
'Clipboard.SetText Screen.ActiveControl.SelText
'Clipboard.SetText Screen.ActiveControl
Debug.Print TypeName(Screen.ActiveControl)
'SendKeys "^C"


Set a = Screen.ActiveControl

Debug.Print TypeName(a)

If TypeName = "Text" Then
Clipboard.SetText a.SelText
End If
End Sub

[flyingZFX]

Option Explicit


Private Sub Command1_Click()
Dim a As Control

Clipboard.Clear
'Clipboard.SetText Screen.ActiveControl.SelText
'Clipboard.SetText Screen.ActiveControl
Debug.Print TypeName(Screen.ActiveControl)
'SendKeys "^C"


Set a = Screen.ActiveControl

Debug.Print TypeName(a)

If TypeName(a) = "Text" Then
Clipboard.SetText a.SelText
End If
End Sub

呵呵，不好意思，，刚才发错了，

[ryuginka]

就是啊,如果是非文本控件,则没有Screen.ActiveControl .SelText属性了.或者你可以判断一下,也可以定死在哪个文本框架中

[BlueBeer]

没效果是因为焦点跑掉了吧

[happyrui]

高高手呀都是