seltext问题 - 编程论坛

#2

lianyicq2015-04-01 15:29

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 编辑 ]

#3

zhangmingo2015-04-01 16:08

回复 2楼 lianyicq

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

#4

lianyicq2015-04-01 16:42

报什么样的错?

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

#5

zhangmingo2015-04-01 17:45

回复 4楼 lianyicq

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

#6

lianyicq2015-04-02 08:48

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

#7

zhangmingo2015-04-03 12:34

回复 6楼 lianyicq

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

#8

zhangmingo2015-04-03 12:41

回复 6楼 lianyicq

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

#9

yangfrancis2015-04-03 13:50

Dim a As String改成Dim a试一下

#10

yangfrancis2015-04-03 13:55

回复 3楼 zhangmingo

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

#11

zhangmingo2015-04-03 15:41

回复 10楼 yangfrancis

可能是我电脑问题吧我把这段代码复制进去。
Dim a As String
a = CDate(Text16.Text)
MsgBox "今年是" & Year(a)还是最后一句报错晕了

#12

lianyicq2015-04-03 16:00

回复 8楼 zhangmingo

估计是你系统设置的日期格式问题.你看看出错后a值到底是什么.很可能是分隔符不对.加上format就OK了