重拾VB之二，毫秒篇
重拾VB之二，毫秒篇
PMP 关劲松
鬼使神差，09年12月入职的公司仍使用VB开发软件，虽然并非专职开发，但也不得不在事隔4年之后，重新使用VB。
在vb中如何获得毫秒精度级别的时间？vb的时间函数不支持毫秒，需要利用windows的基本API，编写程序才能获取毫秒级别的时间精度。过程如下：
1 首先引入取系统时间方法，GetLocalTime，在"kernel32"中。
2 然后定义一个结构，用于按年、月、日、小时、分钟、秒、毫秒保存时间。
3 调用GetLocalTime，获取当前时间，保存到结构中。
4 使用Format函数，生成时间的输出格式显示毫秒。
'代码如下：
'*-----------------------------------------------------------------------------*
'* 注释内容,建立结构体，用于按时间单位保存获取的系统时间。
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
'引入取系统时间方法，GetLocalTime
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
'*-----------------------------------------------------------------------------*
'*-----------------------------------------------------------------------------*
'* 注释内容,用于获取系统时间毫秒的函数。使用中
Public Function getdatetime() As String
Dim LCT As SYSTEMTIME
Dim ymd As String, hms As String
GetLocalTime LCT
ymd = Format(LCT.wYear & "-" & LCT.wMonth & "-" & LCT.wDay, "yyyy-MM-dd")
hms = Format(LCT.wHour, "00") & ":" & Format(LCT.wMinute, "00") & ":" & Format(LCT.wSecond, "00") & "." & Format
(LCT.wMilliseconds, "00
相关文档：
前阵子写了一个目录名/文件名的获取小程序，这两天居然又被名称批量修改麻烦了一下，所以再写一个吧。
注意：你要是只想写一次的话，用批处理更方便。只有多次使用的情况下，自己写程序才有意义。
VB中进行名称修改很容易,用到的就是Name这个函数，用法如下：
Name OldName As NewName，它不仅可以改写名称，而且可以更� ......
IDE：Visual Web Developer 2008 Express Edition
数据库：Access 2007
到http://www.asp.net/ajax/downloads/下载AJAX Control Toolkit，将AjaxControlToolkit.dll拷贝到项目的bin目录下，在工具栏中引入。
WebService的代码：（aaa.asmx）
Public Function GetCompletionList(ByVal prefixText As String, ByVal coun ......
VB Treeview控件详细使用方法
1、属性
这里只给大家介绍Treeview� ......
近日分析一VB做的报表，由于对VB只是了解，谈不上熟练，不过对其水晶报表倒有点认识，之前也做过三两个小的报表 ，加之对PB中的报表了解非常熟悉，当时信心蛮大的。
先是看了DataReport，用于绘制报表格式。再来看DataEnvironment，用于定义获取的数据列。将DataReport与DataEnviro ......
使用VB把Excel导入到Sql数据库中，其实有几种方法。
下面我介绍的这种方法，较为简单。
其实这种方法的话，是直接使用T-SQL操作的，因此，到了VB里面，直接eccute这个代码就OK了的。
-----------------------------------------------------下面是在T-sql中的语句
if object_id('NewTable') is not null/*判断表NewTabl ......
