![](https://img-blog.csdnimg.cn/20201014180756780.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB6.0
文章平均质量分 79
simliving
这个作者很懒,什么都没留下…
展开
-
通过PC发送手机短信
手机短信发送² 中文转换成Unicode码函数 因为手机短消息的发送是以PDU串的形式发送出去的,中文字符以Unicode码来表示,所以在发送中文短消息之前必须首先将中文字符转换为Unicode码,下面的函数将实现这个功能。这个函数主要应用到VB自带的一个格式转换函数:ChrW()将中文转换为Unicode码。 Public Function chg(rmsg As String)转载 2005-03-07 23:41:00 · 2651 阅读 · 0 评论 -
查找数据库中指定字段按拼音首字母的记录
查找数据库中指定字段按拼音首字母的记录用的: Function GetSQLString(ByVal Index)Dim Ascii(27)Dim Line,Row,Char,strTempDim i,jAscii(1) = "45217,45252"Ascii(2) = "45253,45310;45485,45566;45731,45760"Ascii(3) = "45761,45822;45转载 2005-03-08 00:08:00 · 1369 阅读 · 0 评论 -
FSO对象模型在VB中的应用
从 Visual Basic 的第一版至今,VB中有关文件的处理都是通过使用 Open 、Write以及其它一些相关的语句和函数来实现的。随着软件技术的不断发展,加上面向对象编程概念的日臻成熟,这些文件操作语句已经不能适应软件不断增加的复杂程度的需要了。因此,从VB6.0开始,微软提出了一个全新的文件系统对象FSO。 一、简介 文件系统对象FSO的英文全称是File System Object转载 2005-03-09 02:03:00 · 1111 阅读 · 0 评论 -
根据汉字取首字母
Public Function getpychar(ByVal str As String) As String tmp = 65536 + Asc(str) If (tmp >= 45217 And tmp getpychar = "A" ElseIf (tmp >= 45253 And tmp getpychar = "B" ElseIf (tmp >= 45761 And tmp getpy转载 2005-03-07 23:23:00 · 937 阅读 · 1 评论 -
VB中的ADO对象编程
那天听到一位同学说他的女朋友是学新闻的可也学会了数据库,可学计算机的自己却还是不会,总觉得有点汗颜.在各网站的论坛上,也常看到网友对数据库的一些操作很难把握.我想简单的介绍一下VB中关于ADO对象的一些常识,供同学们参考.其实本人也是刚刚懂了一点,拼凑出这篇文章,希望高手们看了不要见笑,但同时也希望对初学者有所帮助. ADO是ActiveX Data Objects 的缩写,是一项新的数据库转载 2005-03-09 23:24:00 · 1760 阅读 · 1 评论