[TestComplete 系列]VB检查编码类型
Sub CheckTextCodingType(Textfile)
Set fl = aqFile.OpenBinaryFile(Textfile, aqFile.faRead)
Binary1 = fl.ReadByte()
Binary2 = fl.ReadByte()
fl.Close
select case CStr(Binary1)& CStr(Binary2)
case 255254: '*Unicode (UTF-16) 前两个字节为FFFE
Log.Message("file is ctUnicode type")
TextCodingType = 21
case 239187: '*UTF8 前两字节为EFBB
Log.Message("file is ctUTF8 type")
TextCodingType = 22
case else
Log.Message("file will open via ANSI type")
TextCodingType = 20
end select
End Sub
相关文档：
Option Explicit
Private Const ERROR_CACHE_FIND_FAIL As Long = 0
Private Const ERROR_CACHE_FIND_SUCCESS As Long = 1
Private Const ERROR_FILE_NOT_FOUND As Long = 2
Private Const ERROR_ACCESS_DENIED As Long = 5
Private Const ERROR_INSUFFICIENT_BUFFER As Long = 122
Private Const MAX_PATH As Long ......
LOF函数：LOF（文件号）--返回文件号所代表文件的长度，长度以字节为单位。
LOC函数：LOC（文件号）--返回文件号所代表文件的读写位置，LOC函数的返回值为long数据类型。对于随机文件，返回的为上一次对文件进行读出或写入的记录号；对于二进制文件，返回的为上一次读出或写入的字节位置；对于顺序文件，返回的是文件的� ......
上一篇中我已经说了下如何操作ACCESS数据库，下面来说说存取图片，声音之类的问题。
由于图片，声音不能直接存储，这里就要用到数据流方式了。对于.NET中的一些术语概念我仍然很迷糊，在学习中。主要我不是专业的，
只是开始学了点VB6代码，然后就用VB.NET了，所以目前只是会写点代码，却不知� ......
'这里是启动过程[事件互斥就不写了]
Dim f as frmMain
Sub Main
Set f=New frmMain
f.Show
End Sub
'这里是一个线程类。。。随便写啥。。。
类名:BT
'这里是主窗口
Dim cBT as BT
Sub form_Load
'奇怪的问题就在这里...
Set cBT=CreateObject("工程名.BT")
'在L ......
SQLDMO在VB中的应用
http://blog.csdn.net/cncco/archive/2010/03/09/5362111.aspx
SQLDMO（SQL Distributed Management Objects，SQL分布式管理对象）封装 Microsoft SQL Server 2000 数据库中的对象。SQL-DMO 允许用支持自动化或 COM 的语言编写应用程序，以管理 SQL Server 安装的所有部分。 SQL-DMO 是 SQL Server 20 ......
