把TEXT1内字符串的前6位赋值给TEXT2这个语句怎么写？急呀！！

xiejimin 2004-11-16 12:02:56

...全文

112 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

supertarzan 2004-11-16

打赏
举报

来晚一步！一楼的，下回记得给楼下的留一些

tztz520 2004-11-16

打赏
举报

运气好 :P

asde00 2004-11-16

打赏
举报

我问个问题怎么才能发表帖子呀

GGL123 2004-11-16

打赏
举报

哈哈~~ 来晚了

cosio 2004-11-16

打赏
举报

接分题！

江语 2004-11-16

打赏
举报

哈哈~~

zgvslch 2004-11-16

打赏
举报

80分啊，我不该去吃饭。

creazyfish 2004-11-16

打赏
举报

呵呵，楼上都说了！
我就没的补充了

zuoxingyu 2004-11-16

打赏
举报

Private Sub Command1_Click()
Text2.Text = Left(Text1.Text, 6)
End Sub

True1024 2004-11-16

打赏
举报

都让楼上说了.

tztz520 2004-11-16

打赏
举报

或者用mid函数也可以.

Private Sub Command1_Click()
Text2.Text = Mid(Text1.Text, 1, 6)
End Sub

tztz520 2004-11-16

打赏
举报

Private Sub Command1_Click()
Text2.Text = Left(Text1.Text, 6)
End Sub

wenhongL 2004-11-16

打赏
举报

同意楼上的

andylxd 2004-11-16

打赏
举报

哎沒什麽好説的了
能不能給點感情分啊嘿嘿

uuupdddown 2004-11-16

打赏
举报

left right z这些问题看看 msdn就行了

Abyss-Xu 2004-11-16

打赏
举报

Text2.Text = Left(Text1.Text, 6)

韩誉 2004-11-16

打赏
举报

楼上的说了但容易出错！呵呵
如果碰到text1里面的字符少于6个的话，出现错误！软件退出？

Private Sub Command1_Click()
if len(text1.text)>=6 then
Text2.Text = Left(Text1.Text, 6)
else
Text2.Text = Text1.Text
end if
End Sub