VB读写INI文件
'******************************************************************************************
'* 需要注意的问题 *
'******************************************************************************************
'1.INI文件的路径必须完整,文件名前面的各级目录必须存在,否则写入不成功,该函数返回 FALSE 值.
'2.文件名的路径中必须为 \\ ,因为在VC++中, \\ 才表示一个 \ .
'3.也可将INI文件放在程序所在目录,此时 lpFileName 参数为: ".\\student.ini".
'4.使用前请先初始化变量ProfileName
'******************************************************************************************
'* API 函数声明 *
'******************************************************************************************
'为初始化文件中指定的条目取得字串
Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String _
) As Long
'为初始化文件中指定的条目获取一个整数值
Declare Function GetPrivateProfileInt Lib "kernel32" Alias _
"GetPrivateProfileIntA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal nDefault As Long, _
ByVal lpFileName As String _
) As Long
'在初始化文件指定小节内设置一个字串
Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
相关文档：
一、NT服务程序
所谓NT服务，实际上就是一个可以在系统启动时自动在一定身份下启动的伴随系统长时间存在的进程。象FTP server、HTTP server、脱机打印等都是采用NT服务的形式提供的。这实际上类似Unix的root daemon进程。NT服务归纳起来，NT服务又以下几个特征：
1、可� ......
'大小写字母转换器vb
'界面包括 command、command1、command2、command3 和一个 text 文本框
'command 为“互转”按钮，command1 为“转大”按钮，command2 为“转小”按钮，command3 为“清除”按钮
Private Sub Command_Click()
Dim i As Integer, n As Integer
Dim x As S ......
Option Explicit
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pDisplayName As String
lpTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHGetPathfromIDList Lib "shell32.dll" Alias _
"SHGetPa ......
最近刚学会在VB2008 中使用参数化SQL语句，于是马上用到代码中，却碰到查不到任何数据的情况，纠结了好几天，还是没有搞明白，差点吐血。不得已还是先在代码中使用字符串拼接的SQL语句。
包含参数化SQL语句的代码如下：
Dim cmSl As N ......
