VB不使用 API，将 Utf8 转换为 Unicode
Private Function Utf8ToUni(B() As Byte) As String
'不使用 API，将 Utf8 转换为 Unicode
Dim BU As Long
On Error Resume Next
BU = -1: BU = UBound(B)
If BU = -1 Then Exit Function
On Error GoTo 0
Dim I As Long, K As Long, N As Long
Dim B1 As Byte, cnt As Byte
I = LBound(B)
If BU > I + 1 Then
If B(I) = 239 And B(I + 1) = 187 And B(I + 2) = 191 Then I = I + 3 '去掉前三个字符
End If
Do
If I > BU Then Exit Do
B1 = B(I)
If (B1 And &HFC) = &HFC Then
cnt = 6
ElseIf (B1 And &HF8) = &HF8 Then
cnt = 5
ElseIf (B1 And &HF0) = &HF0 Then
cnt = 4
ElseIf (B1 And &HE0) = &HE0 Then
cnt = 3
ElseIf (B1 And &HC0) = &HC0 Then
cnt = 2
Else
cnt = 1
End If
If I + cnt - 1 > BU Then Utf8ToUni = Utf8ToUni & "?": Exit Do
Select Case cnt
Case 2: N = B1 And &H1F
Case 3: N = B1 And &HF
Case 4: N = B1 And &
相关文档：
做个mp3播放器，用realplay和WMP做出来的程序内存占用太大。
如果你仅仅是播放MP3，建议使用API函数mciSendString。
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal
lpstrReturnString As String, ByVal uReturnLength As Lo ......
一般会使用WINDOW API的情况，实在是因为VB本身不提供某些功能，但是，程式所
需又不得不然，例如：读取Registry内的资
料，VB只提供SaveSetting、Getsetting 等
系列的指令，但是它只能读取特定地区的值，要读、删、更动其他区域的值时，就无
法
使用。再如：仔细看一看Combo Box的Events，其中 ......
这几天一直在做一个小的工程,做一个文本阅读器,现在做的已经有三分之二了,从中学习到了很多,对我们以前学习的成果有了更深刻的理解.
VB是一门面向对象的程序设计,我就从面性对象的角度对他做一次总结
把VB中所有的数据,变量,控件都看做一个对象
我们所有的操作都是对对象的操作,让对象去执行某一个功能
大家先看一个例� ......
'工程-->引用 添加 Microsoft activex data objects 2.5 library
'工程-->部件 添加 Microsoft flexgrid control 6.0
Dim Cnn As New ADODB.Connection
Cnn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:\Access ......
1、大道至简
米老师先呈现了一个函数的图像，然后问问大家想到了什么。
看到这张图，我先发现这是一个周期函数，再往深了就感觉自己应该不会了，寄希望于书信的几个同学，感觉应该是高数里的东西。但事实证明是初中的知识：
他是以下三个函数的复合函数：
y=sin(x)+sin(2x)+sin(3x)
& ......
