需要实现一个访问计数器,我原先是这样实现的:
Static i As Long
If nflag = 0 Then
i = 1000
End If
i = i + 1
If i = 100000000 Then
i = 90000000
End If
Label2.Caption = i
但是这样看起来很不美观,因为10000和100000000差很多位,我想能每次显示8位,不足的用0补,这样就会美观了:如上所示,开机应是00001000,一直累加。想请教大家具体如何实现呢?谢谢!
Static i As Long
If nflag = 0 Then
i = 1000
End If
i = i + 1
If i = 100000000 Then
i = 90000000
End If
Label2.Caption = i
但是这样看起来很不美观,因为10000和100000000差很多位,我想能每次显示8位,不足的用0补,这样就会美观了:如上所示,开机应是00001000,一直累加。想请教大家具体如何实现呢?谢谢!
解决方案 »
- 使用什么控件可以直接在表格中算出合计
- 在VB中调用timesetevent时,生成exe运行时总提示该内存不能读
- 请问用什么方法或属性控制DataGrid中每个小格的宽度???
- 急问!!!如何在源程序中加入代码,使程序能开机自动运行(XP系统)! 100分!!
- 在一个网中,从一台机上定时获取另一台机上某目录的.txt文件,在VB怎样实现?
- 如何将输入的中文自动转为拼音?@@高手请进!@@
- 问一个vb从文件读数据插入数据库的效率问题,郁闷ing,请大家给我点意见
- vb和odbc的连接问题!!!!!!
- 100分的问题,如果解决了则另送200,否则参加讨论者就给分!!!!!!
- 关于dbgrid控件打包的问题(急)
- 求中科院-谢新华老师的各种视频或MP3
- vb 用户控件问题
Static i As Long
If nflag = 0 Then
i = 1000
End If
i = i + 1
If i = 100000000 Then
i = 90000000
End If
n=len(trim(str(i)))
t="00000000"
Label2.Caption = mid(t,1,8-n) & trim(str(i))
本示例显示用 Format 函数做格式化输出的不同用法。对于日期分隔号(/),时间分隔号(:),以及 AM/ PM 等文本而言,其真正的显示格式会因计算机上的国际标准不同而有所差异。在开发阶段,日期与时间是以短日期的格式,配合代码的国际标准来显示的。而在运行时,短日期则是根据系统的国际标准而定,而系统的国际标准和代码的国际标准可能并不相同。本示例中是假设国际标准为 English/United States。MyTime 及 MyDate 在开发环境下,使用系统的短日期设置显示出来的。Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#' 以系统设置的长时间格式返回当前系统时间。
MyStr = Format(Time, "Long Time")' 以系统设置的长日期格式返回当前系统日期。
MyStr = Format(Date, "Long Date")MyStr = Format(MyTime, "h:m:s") ' 返回 "17:4:23"。
MyStr = Format(MyTime, "hh:mm:ss AMPM") ' 返回 "05:04:23 PM"。
MyStr = Format(MyDate, "dddd, mmm d yyyy") ' 返回 "Wednesday, Jan 27 1993"。
' 如果没有指定格式,则返回字符串。
MyStr = Format(23) ' 返回 "23"。' 用户自定义的格式。
MyStr = Format(5459.4, "##,##0。00") ' 返回 "5,459.40"。
MyStr = Format(334。9, "###0。00") ' 返回 "334.90"。
MyStr = Format(5, "0。00%") ' 返回 "500.00%"。
MyStr = Format("HELLO", "<") ' 返回 "hello"。
MyStr = Format("This is it", ">") ' 返回 "THIS IS IT"。
format函数给力。。呵呵