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 count As Integer) As String()
Dim myConnection As OleDbConnection
Dim myCommand As OleDbCommand
Dim dbname As String
dbname = Server.MapPath("location.accdb")
myConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;DATA Source=" & dbname)
myConnection.Open()
Dim list As New List(Of String)
myCommand = New OleDbCommand("SELECT DISTINCT(columnName) from tableName WHERE columnName LIKE '" + prefixText & "%" + "'", myConnection)
Dim reader As OleDbDataReader = myCommand.ExecuteReader()
Do While reader.Read
list.Add(reader.GetString(0))
Loop
Return list.ToArr ......

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 count As Integer) As String()
Dim myConnection As OleDbConnection
Dim myCommand As OleDbCommand
Dim dbname As String
dbname = Server.MapPath("location.accdb")
myConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;DATA Source=" & dbname)
myConnection.Open()
Dim list As New List(Of String)
myCommand = New OleDbCommand("SELECT DISTINCT(columnName) from tableName WHERE columnName LIKE '" + prefixText & "%" + "'", myConnection)
Dim reader As OleDbDataReader = myCommand.ExecuteReader()
Do While reader.Read
list.Add(reader.GetString(0))
Loop
Return list.ToArr ......

http://zhidao.baidu.com/question/33440250.html
在模块中输入以下代码
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
' flag uitzetten
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10
Public Sub PlaySound(strSound As String)
sndPlaySound strSound, SND_ASYNC Or SND_NODEFAULT
End Sub
在窗体中输入以下代码
Private Sub Form_Load()
PlaySound "D:\sound.wav"
End Sub
VB中播放WAV文件
作者：赵鹏
在多媒体软件的开发设计中，声音是一个相当重要的多媒体元素，优秀的声音设计会为多媒体软件增色不少。而WAV格式的声音文件是一种最常用的声音文件格式，也最容易得到，比如通过Win 95中的“录音机”程序，利用麦克风就可以非常简单地录制WAV文件。VB是一个相当经典的多媒体开发的工具，在VB中播放WAV文件的方法主要有这样几种。
  & ......

                                       
VB Treeview控件详细使用方法
1、属性
这里只给大家介绍Treeview控件的几个常用基本属性
appearance属性：设置空间是否以3D效果显示
详细的外观设置可以转到此控件的“自定义”页面进行设置
checkboxes属性：在树的每一项的旁边，是否显示一个复选框，类似checkbox控件的作用
hottracking属性：当鼠标指针经过某个条目时，这些条目是否突出显示，类似网页的超链接效果
labeledit属性：决定用户是否能编辑控件中列出的项目，此项如果不想被改变，可将属性值设置为1
linestyle属性：设置列出的每项之间的行样式，即，如果为1，则当前项下还有子项的时候，它的前面会显示“+”号，如果值为2，则不显示“+”
singlesel属性：设置在树中选择新的条目时，是否展开此条目并收拢前一个条目，即，设置为True时，并且当前选中的条目有子项的时候，会把子项展开，并将原来你选中的条目收拢， ......

    近日分析一VB做的报表，由于对VB只是了解，谈不上熟练，不过对其水晶报表倒有点认识，之前也做过三两个小的报表 ，加之对PB中的报表了解非常熟悉，当时信心蛮大的。
    先是看了DataReport，用于绘制报表格式。再来看DataEnvironment，用于定义获取的数据列。将DataReport与DataEnvironment绑定后就可获取数据了。
    基于这个思路还算是简单，做个简单的不带参数条件的SQL通过了。不过打开报表的界面无法自定义，如加个查询的按钮，让查询的条件与报表显示在同一个界面中，(PB实现就太简单了)。想到一个与DataReport差不多同名的ActiveX-DataRepeat，(想通过ActiveX加载该DataReport，这样就可在自定义界面上显示这个Report)先看看再说，结论是两码事。DataReport用于设计报表，Datarepeat与DataGrid类似数据底层转换处理的。(只怪英文差，应该从字面上可以理解这个DataRepeat与Report是两码事，不过这种精神值得提倡，没有调查就没发言权。)
    无参数的SQL是没问题，下面就是有参数的了。分析别人的程序是件可怕的事，特别是对VB不熟，加上别人使用的另类方法，更是一头雾水。这回我就遇上了。
&n ......

   最近由于工作项目原因，临时要求做一个局域网扫描软件。功能要求，扫描出IP地址以及对应的MAC地址。功能比较简单。于是很快就做了。采用的开发工具是 VB6.0
     使用方法是通过发送 ARP包，广播 IP地址的方式来获得 对应的 MAC地址，SendARP（）。
有一些细节要注意，就是 输出MAC地址的时候 如果不进行设置的话，就是002170A560F2。
如果要想输出为00-21-70-A5-60-F2这样的形式，可以
For i = 0 To length - 2
GetMac = GetMac & Right("00" & Hex(Mac(i)), 2) & "-"
Next i
GetMac = GetMac & Right("00" & Hex(Mac(5)), 2)
这样就可以可以了
还有一些其他功能就不做介绍了。 ......

'读数据到二进制字段
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
Dim lngTotalSize As Long
Dim strChunk As String
Dim MediaID As Long
On Error Resume Next
DataFile = FreeFile
Open Filen For Binary Access Write As DataFile
lngTotalSize = filed.ActualSize
Chunks = lngTotalSize \ ChunkSize
Fragment = lngTotalSize Mod ChunkSize
'ReDim Chunk(ChunkSize)
ReDim Chunk(Fragment)
Chunk() = filed.GetChunk(ChunkSize)
Put DataFile, , Chunk()
lngOffset = lngOffset + ChunkSize
Do While lngOffset < lngTotalSize
   Chunk() = filed.GetChunk(ChunkSize)
   Put DataFile, , Chunk()
   lngOffset = lngOffset + ChunkSize
Loop
Close DataFile
End Sub
'写数据到二进制字段
Public Sub SaveToBLOB(fieldBLOB As ADODB.Field, filename As St ......