uself的专栏

Function StrConvFromUTF8(aBytes() As Byte) As String    Dim cStream As ADODB.Stream    Set cStream = New ADODB.Stream    cStream.Open        cStream.Type = adTypeBinary    cStream.Write aBytes       

Private Sub MSHFlexGrid1_Click()  Call SetFlexTxtBoxEnd Sub-------------------------------------------Private Sub FlexTxtBox_GotFocus()    FlexTxtBox.SelStart = 0    FlexTxtBox.SelLength = Len(Fl

Const VS_FFI_SIGNATURE = &HFEEF04BDConst VS_FFI_STRUCVERSION = &H10000Const VS_FFI_FILEFLAGSMASK = &H3F&Const VS_FF_DEBUG = &H1Const VS_FF_PRERELEASE = &H2Const VS_FF_PATCHED = &H4Const VS_FF_PRIVATEB

VB常用代码总结（二）【转】2008-07-10 00:04使用API调用Winodws各种通用对话框(Common Diaglog)的方法（二）1.选择目录/文件夹对话框将以下代码置于一模块中Option Explicit 调用方式:: string = BrowseForFolders(Hwnd,TitleOfDialog) 例如:String1 = Bro

  VB常用代码总结（一）【转】 移动无标题栏的窗体(borderstyle=none)dim mouseX as integerdim mouseY as integerdim moveX as integerdim moveY as integerdim down as booleanform_mousedown: mousedown事件down=

将Recordset作为XML保存微软使得将ActiveX数据对象（ADO）的Recordset作为XML在ADO 2.1里保存成为可能。这对于将Recordset保存在客户计算机上用于脱机使用很有用处。如果你希望通过可扩展样式表语言转换（XSLT）来操控Recordset的数据，那么这一能力也是很有用的。