VB6
文章平均质量分 84
三楼の郎
这个作者很懒,什么都没留下…
展开
-
VB截获Windows消息的钩子
VB截获Windows消息的钩子——作者:钟声博客地址:http://useway.blog.51cto.com VB一直被认为是一个可以通过简单的方法,完成Windows界面应用程序的一个语言。对Windows系统方面的编程似乎首先想到的绝对不是VB,而大部分程序员想到的一定是VC。我们今天就介绍一种用VB截获Windows全局消息的方法。 一、Wi转载 2009-10-03 13:56:00 · 1085 阅读 · 0 评论 -
VB人民币大写转换
<br />Public Function MoneyToUpper(ByVal money As Double) As String If money = 0 Then MoneyToUpper = "零元整" Exit Function End If Dim DataUpper() As String Dim DataUpper1() As String DataUpper = Split("零,壹,贰原创 2010-11-02 13:59:00 · 2417 阅读 · 0 评论 -
VB6 RecordSet与XML转换
Public Function SaveRSToXML(ByVal ConnectionString As String, ByVal strSQL As String) As String Dim oCn As New ADODB.Connection Dim oRs As New ADODB.Recordset Dim oStream As New ADODB.Stre原创 2013-08-09 12:50:19 · 3464 阅读 · 0 评论 -
如何取得当前插入记录的ID
我们在设计数据库时一般都会设计一个自增长型的或GUID型的字段作为记录的唯一性标志,这样的字段在执行插入操作时其值一般都由数据库自行分配,不需要我们为其赋值,但是在实际使用过程中我们常常需要在完成插入操作以后立刻就返回新记录的ID,那么新记录的ID该如何取得呢,一般常用的有以下几种方法,其一是不使用自增长型字段,在插入前先计算出下一ID的值,由于ID值是计算出来的并不是由数据库分配的,所以自然可以原创 2009-07-01 11:14:00 · 3273 阅读 · 0 评论 -
VB指针
VB指针——作者:钟声博客地址:http://useway.blog.51cto.com 卷首语: 无数次的见到有人一谈到VB都会显露出不屑的神情。 VB一个软件开发领域的老朋友,它曾经以开发便捷与简单著称,它在一定时间内成为一个非常常用的开发语言。 然而,当很多人享受这VB带来的便捷的同时,还在嘲讽这个VB,总是用VC的种种所谓的优势来和VB转载 2009-10-03 13:53:00 · 1456 阅读 · 0 评论 -
VB UTF-8编码与解码
Option ExplicitPrivate Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByte转载 2009-09-26 13:48:00 · 10471 阅读 · 0 评论 -
VB读写注册表
Option ExplicitPublic Enum ERROR ERROR_SUCCESS = 0& ERROR_BADDB = 1009& ERROR_BADKEY = 1010& ERROR_CANTOPEN = 1011& ERROR_CANTREAD = 1012& ERROR_CANTWRITE = 1013&转载 2009-09-26 13:55:00 · 2899 阅读 · 0 评论 -
Visual Basic内嵌汇编语言解决方案
Visual Basic内嵌汇编语言解决方案时间:2008-04-09 04:44来源:互联网VB简单易用,但功能有时候受限制。VC、Delphi都可以直接在程序中写汇编代码,可恼的是,VB不行。我在网上也看过许多有关于VB嵌入汇编的方法,不过有些方法,过于复杂,而且也没相应的介绍。我这里提供一种方法,也许大家以后可能有用! 基本思路:汇编代码,可以存在一 VB转载 2009-10-19 23:09:00 · 1029 阅读 · 0 评论 -
VB里Base64编码与解码算法
Option ExplicitDim sBASE_64_CHARACTERS As StringPublic Function strUnicodeLen(ByVal asContents As String) As LongDim len1, k, i, asc1 As Long计算unicode字符串的Ansi编码的长度Dim ascontents1 As Str转载 2009-09-26 13:24:00 · 3690 阅读 · 0 评论