Private Sub Command1_Click()
Text1.Text = "可以吗"
Clipboard.SetText Text1.SelText
End Sub

Private Sub Command2_Click()
Text2.SelText = Clipboard.GetText
End Sub
我就想把第一个文本框内容黏贴到文本框2中的，有什么错误吗？为什么老是不行啊

Private Sub Command1_Click()
Text1.Text = "可以吗"
Clipboard.SetText Text1.Text
End Sub

Private Sub Command2_Click()
Text2.Text = Clipboard.GetText
End Sub
...
点按钮1,text1.text="可以吗",然后将text1.text中选中的字符复制到剪贴板中,但这两行连续执行,根本没有选中字符,当然剪贴板为空.
注意seltext和text属性的区别.

[ 本帖最后由 lianyicq 于 2015-4-1 15:52 编辑 ]

谢谢上面解决了，请问
Private Sub Command32_Click()
Dim a As String
a = CDate(Text16.Text)
MsgBox "今年是" & Year(a)
End Sub
这个我发帖问过了，早上也是这样的  我输入2010/1/12 显示2010 单是后来保存打开在输入老是报错你  输入框和按钮都没错

报什么样的错?

Private Sub Command1_Click()
Dim a As String
a = Format(CDate(Text1.Text), "YYYY-MM-DD HH:MM:SS")
MsgBox "今年是" & Year(a)
End Sub

报错显示 类型匹配错误，我点击调试，箭头指向  MsgBox "今年是" & Year(a) 符号什么我都检查过了 没错啊  但是运行 我输入日期格式就是2010/12/10 就这样格式 总是报错

仔细看了你上一贴代码，注意这句
MsgBox "今年：" & year（a）
year竟然y是小写，是不是前面把year作为变量名定义了？

六楼误会了，我是输入的时候是小写 但是已返回在查看代码就是Year了  

按照你的代码a=format(cdate(text1.text)"yyyy-mm-dd") 却可以，但是为什么不能这样赋值 a=cdate(text1.text)

Dim a As String改成Dim a试一下

不对头。你本来的那段代码我已试过了。就是
Private Sub Command32_Click()
Dim a As String
a = CDate(Text16.Text)
MsgBox "今年是" & Year(a)
End Sub
无论a定义为string还是date都没有报错。不知道你的电脑上为什么有问题