一个很菜的数据转换的问题,大家快来抢分啊! 在text1的Change事件中写Select Case Indexcase 0 text1(1).text=Format(text1(0).text,"0000")end select 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Text1(1).Text = String((4 - Len(Text1(0).Text)), "0") & Text1(0).Text Private Sub Text1_Change(Index as Integer)if Index = 0 then Text1(1).Text = String((4 - Len(Text1(0).Text)), "0") & Text1(0).Text end ifend sub 谁能用代码解释一下下面的For Each...In...语句? coolbar 控件picture属性的奇怪问题,无法使用loadpicture动态加载? 如何用VB对text文件操作,在线等待(答者有分) 失去的链接???? 关于sqlserver数据库的加锁(急) 用什么函数可以取出win2000下的组和组里的用户?急急 cl2002兄弟请进来结帖 紧急求助!!!!!! 請教:VB里ADO數據集中有沒有Delphi里的查找字段?如何不用sql語句實現該功能? 小問題??大問題??? 請高手快來救我 吐:unruledboy(燃烧自己,点亮他人,南海佬是也!) ( enmity,进来看看
if Index = 0 then
Text1(1).Text = String((4 - Len(Text1(0).Text)), "0") & Text1(0).Text
end if
end sub