VB 取得指定exe文件版本号
【函数】
GetFileVersionInfo
【操作系统】
Win9X:Yes
WinNT:Yes
【声明】
GetFileVersionInfo Lib "version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal dwHandle As Long, ByVal dwLen As Long, lpData As Any) As Long
【说明】
从支持版本标记的一个模块里获取文件版本信息
【返回值】
Long，非零表示成功，零表示失败。会设置GetLastError
【其它】
请看vb的api文本查看器中的声明：Declare Function
GetFileVersionInfo Lib "version.dll" Alias "GetFileVersionInfoA"
(ByVal lptstrFilename As String, ByVal dwHandle As Long, ByVal dwLen As Long, lpData As
Any) As Long
【参数表】
lptstrFilename - String，欲从中载入版本信息的一个文件的名字
dwHandle ------- Long，win32中未用
dwLen ---------- Long，由lpData参数指定的字节数组或缓冲区的大小。用GetFileVersionInfoSize函数判断要求的缓冲区长度有多大
lpData --------- Byte，指定一个字节缓冲区的第一个字节。该缓冲区用于装载文件的版本信息
相关文档：
'读数据到二进制字段
Public Sub ReadfromBLOB(filed As ADODB.Field, Filen As String)
Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, i As Integer
'传送块单位大小
Const ChunkSize As Integer = 16384
Dim MediaTemp As String
Dim lngOffset As Long
Di ......
Private Sub Cmd_OK_Click()
Dim ExcelAppX As Excel.Application
Dim ExcelBookX As Excel.Workbook
Dim ExcelSheetX As Excel.Worksheet
Dim a(1 To 3) As Single
Dim strFormat As Variant
......
很多年前就想做一个远程控制的软件，只是一直以来图片的压缩速度总是提升不上去，而我也参考过很多网上的关于图片压缩的例子，比如zyl910的GIF_LZW压缩方法，Huffman压缩方法，以至到GDI+的直接生成JPG、PNG的方法（这种方法无论从压缩率和速度上都是最佳的，可惜这种方法网上一直没找到直接保存为Byte()的例子，见得最多的 ......
重拾VB之二，毫秒篇
PMP 关劲松
鬼使神差，09年12月入职的公司仍使用VB开发软件，虽然并非专职开发，但也不得不在事隔4年之后，重新使用VB。
在vb中如何获得毫秒精度级别的时间？vb的时间函数不支持毫秒，需要利用windows的基本API，编写程序才能获取毫秒级 ......
引言:
做一个控件, 用于 数据采样如示波器, 可以添加,删除曲线, 设置曲线的相关属性: 线型,颜色,等...
过程:
先创建 线 类, 在用户控件里实现 线 对象创建, 并声明一个 集合, 用于 存放建立的线对象.
问题 ......
