ecz00的专栏

可以做汉字基本库，可查拼音，可查拼音首字母，可从拼音倒查汉字，是中文最基本语料。

由之前修改的5个控件（xTab控件美化稳定版、美化仿XP按钮、仿360的Switch开关控件、属性页控件、xMenu弹出式菜单控件），增加 xFrame和xCheckBox而来 xFrame比网上其他源码增加背景透明，见TransParent属性 xCheckBox选择框同样支持背景透明，见TransParent属性（风格可选VB单选框或复选框）

比网上其他版本(也包括之前在此发的两次)修正： 去除tab只有9页的限制 修正tab页宽度超过1万后，应该在其他页中的控件会留一部分在当前页 放多个没有left、top或WhatsThisHelpID的控件不会产生错误(只是不会随页变动) 修正tabstop不能保持原值错误 修正鼠标停在tab上会不断刷新占用系统资源甚至内存溢出错误(去除usercontrol_mouseover中refresh) tab标题头背景透明处理(美化了^_^) '-------------------------------------------- 修正后仍存在的不足 -------------------------------- 1、控件必须编译后使用，否则一旦拖放出新的adodc等会让自定义控件变为不可用状态的控件，TAB则会跳页错乱! 2、tab控件中的WhatsThisHelpID属性被占用(-_-#，没办法，为了省系统资源，好在多数控件有这个属性且基本没人用，偷笑^^) 3、没有WhatsThisHelpID属性的控件不会随页变动 4、如果把本控件的BackColor设成&H00FF00DA& ，则所有放在Tab页上的控件将与背景一起被透明掉。 (本控件会重画放在其上的控件，所以控件也会被透明) 这个问题其实不算问题，没人必须把背景色设的和这个完全一样吧^^，哪怕差1也可以啊，点明这个问题只是要说明本控件的背景透明或任意形状控件的制作原理 原理： backstyle设为：0 maskColor设为：&H00FF00DA& (这个控件里UserControl的BackColor也要设为：&H00FF00DA&) 在Refresh方法中将在UserControl中重绘好的图作为maskPicture，即： Set UserControl.MaskPicture = UserControl.Image 这样maskpicture中背景没有被重绘的部分保持&H00FF00DA&(即与maskcolor指定的颜色相同色)，该颜色的部分即被透明 (注意，指定了backstyle=0及maskpicture后超出maskpicture大小的部分全部会被透明)!!! '---------------------------------------------------------比这个前一个版本的是没有用API的，可以在我的资源里找到前两次修改的版本，使用的话还是用这个版本 这几个控件有很多可学的地方， 比如其中的错误处理(网上的源码和我上一个修改版本的源码中错误处理的部分是不太合理的，虽然我和这个控件的其他修改者一样思路，但研究后最终还是用这次发布的这个版本) 比如上一版本中的无API绘图，这个版本有api，因此图大小可变 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 测试.vbp那个是原先旧版的测试，没有跟着新版修改，所以不兼容，此楼新版是经过测试的，编译好的ocx可以直接使用(★必须使用编译好的ocx，原因一楼已经说了★) 对编译好的ocx有疑问或自己要改进的可以直接修改TabSwitch.vbp，再重新编译

VB自制免API任意形状透明控件 这个控件相当省系统资源，且稳定(修正过的^_^，不会像原VBgood的会闪退，会错乱，不能加tab页) 有很多值得学的，比如不用API打造任意形状控件(控件背景透明)，是VB自制控件的一个比较经典案例!

原tab控件，仿360开关控件版权归原作者! VB控件背景透明代码来自：新浪 “玄雨清风”的博客 感谢以上两位源代码作者 链接:http://pan.baidu.com/s/1hrAEXqG 密码:nfhc '-----------------------以下是转自博客的控件透明源代码(可透明至父窗体或桌面)------------- '添加一个用户控件UserControl,代如下： Option Explicit '实现用户控件UserControl的"伪透明" Private Type POINTAPI X As Long Y As Long End Type Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDC As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As Long Private Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_ERASEBKGND = &H14 Private Const WM_PAINT = &HF Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source Public Event MouseDown(Button As Integer, Shift As Integer, X A

AB双方交换共享码流程说明：【双方使用一样的素数和原数，最终生成的共享码是完全一致的。】 A方：　用 素数prime，原数base，A任意自定的整数私锁 -> 生成公锁A (把公锁A发给B) B方：　用 素数prime，原数base，B任意自定的整数私锁 -> 生成公锁b (把公锁b发给A) 对应cCrypt中的：属性DiffieHellmanPrime，属性DiffieHellmanBase，属性DiffieHellmanPrivate -> DiffieHellmanCreatePublicKey() A方：　用 素数prime，原来自定的整数私锁A，公锁b-> 生成共享码 B方：　用 素数prime，原来自定的整数私锁b，公锁A-> 生成共享码 对应cCrypt中的：属性DiffieHellmanPrime，属性DiffieHellmanPrivate，属性DiffieHellmanPublic -> DiffieHellmanCreateSharedSecret() 说明：cCrypt中的GenPrime()用于随机生成一个极大的素数，CheckPrime()用于检查该数是否素数。 --------------------------------------------------------------------------------------------------------------------------------------- diffie-hellman算法原理（原理其实很简单，但大素数、原数及高次元方程比较难解^_^）： 例子：设密钥交换基于素数P=97 和 97的一个原根G = 5 A和B分别随意选择私有密钥XA=36 和 XB=58。 每人计算其公开钥：YA=5^36=50 mod 97 ：YB=5^58=44 mod 97 取了公开钥之后，都把公锁发给对方 再各自用以下公式计算得出双方共享数： Ka = (YB)^XA mod 97 = 44^36 = 75 mod 97 Kb = (YA)^XB mod 97 = 50^58 = 75 mod 97 如上所示，在双方不改变用于生成公锁的私锁值情况下（且素数一致），双方计算得到的shareKey是一样的！

本资料为笔者从入门到开发数套应用后的总结，可以作为VB速查，也可以让VB数据库开发者少走很多弯路，相信大家能在其中找到些许惊喜！ VB及ADO常见错误及处理方法 VB数据精度及bug（目前市面上基本没有哪个书有提及的，比如 t=300*200的溢出错误，比如单精度双精度转换时错误等，再如VB_msdn中的winsock最基本介绍错误等等） 常用报表工具推荐及实用配套程序，如　acreport、 grid++report 常用表格及其配套程序（均为自测可用，并已标明注意事项及优缺点及bug)，如reportx、vsflexgrid、 fpspread8、以及VB自家的Hflexgrid等 重点介绍sqlite的应用，如sqlite_ODBC(可加密)的ADO应用，cairo_sqlite（可加密）非odbc应用(并指出cRs必须指定字段类型，否则出错，cRs删改速度不如ado等) 介绍部分vbRichClient5的应用，如替代winsock，远程dll库 部分VB自定义程序，如：真正四舍五入(可以round(14.5,-1)不受前位奇偶影响）、随机序列生成（可将如1-100顺序打成随机）、不会假死的等待、数组排序去重查找、 对VB数据类型做说明（避免使用单双精度产生错误） .....

vbRichClient是个十分强大的库，支持VB多线程，图形，摄像头，音频，甚至3D建模物理引擎等等 这个打包例程主要是图形处理相关的

很少有的vbRichClient案例教程 包括了reports、　rpc-demos(远程直接操作active dll)、　sqlite操作、 cTCPServer cTCPClient、cThreading(vb多线程)、cXML

发现网上关于vbrichclient的教程比较少，但这个实在是好东西，实用性，稳定性都比VB自带的winsock好的多，多客户端不用winsock控件数组。　也不用在各窗体上放winsock，直接在模块中就能实现收发 下面直接上代码，窗体和文本钮、按钮大家自行拖放。要用到VB自带隐藏函数varptr()取内存指针(VbMsdn中没有这个函数，实际上很简单^^)。 VbRichClient5.0.38中包含sqlite3.9支持 上面共享中也包含VbRichClient5.0.38支持库 VbRichClient代替winsock 主要使用 cTCPServer cTCPClient cUDP '--------------------------------------------------------------------- '服务器端，代码最简化，要实现多客户端只要用数组存hsocket就可以 Option Explicit Dim WithEvents sv As cTCPServer Dim WithEvents udp1 As cUDP Dim cHsocket& Private Sub Form_Load() Set sv = New cTCPServer sv.Listen sv.GetHost("127.0.0.1"), 35912 Debug.Print sv.GetHost("") Set udp1 = New cUDP udp1.Bind "127.0.0.1", 5616 End Sub Private Sub sv_DataArrival(ByVal hSocket As Long, ByVal BytesTotal As Long, ByVal FirstBufferAfterOverflow As Boolean) Dim d() As Byte, s$ ReDim d(BytesTotal - 1) sv.GetData hSocket, VarPtr(d(0)), BytesTotal '★★关键代码 s = d Text2.Text = Text2.Text & s & vbCrLf Debug.Print "收到：" & BytesTotal End Sub Private Sub sv_TCPAccepted(ByVal hSocket As Long) cHsocket = hSocket Text1.Text = Text1.Text & sv.GetPeerHostIPAndPort(hSocket) & vbCrLf End Sub Private Sub sv_TCPDisConnect(ByVal hSocket As Long) Text3.Text = Text3.Text & sv.GetPeerHostIPAndPort(hSocket) & vbCrLf End Sub Private Sub udp1_NewDatagram(ByVal BytesTotal As Long, ByVal FirstBufferAfterOverflow As Boolean) Dim d() As Byte, s$ ReDim d(BytesTotal - 1) udp1.GetData VarPtr(d(0)), BytesTotal s = d Text2.Text = Text2.Text & s & vbCrLf End Sub '------------------------------------------------------- '客户端 Option Explicit Dim WithEvents cl As cTCPClient Dim WithEvents udp1 As cUDP Dim cid& Private Sub Command1_Click() cid = cl.Connect("QgB1", 35912) End Sub Private Sub Command2_Click() cl.Disconnect cid End Sub Private Sub Command3_Click() Dim b() As Byte b = Text1.Text cl.SendData cid, VarPtr(b(0)), UBound(b) + 1 End Sub Private Sub Command4_Click() Dim d() As Byte, s$ s = "yessss" d = s udp1.RemoteIP = "127.0.0.1" udp1.RemotePort = 5616 u

vbrichclient的中文例程比较少，网上搜了点文字资料，并简单测了一下 应该说用vbRichClient操作sqlite是个不错的选择， 首先它支持加解密 其次它的版本比其他VB sqlite支持库更新快，像目前已经是sqlite3.9支持Json了 另外它操作也比ado简单，具体看附件的例

一个免费的表格控件，相当强大 reportX支持预览和打印、支持公式、支持表格模版、支持导出excel、支持单元格锁定及格式、支持图表和条码等，不支持数据源、单元格边框单独改色，至2.6版本时仍有些BUG如：OnCellChanging事件无效,只能用API getfocus()取当前输入框句柄然后取该控件的标题即是正在输入的内容。 发布只要regsvr32注册ReportX.ocx即可。 1、常用属性及方法： setcellvalue()置单元格文本、getcellvalue()取单元格文本、Explain...()计算刷新单元格公式、OpenReport()载入表格模版、Colcount和Rowcount属性设置或取得表格行列数、 GetSelectCell方法的参数应使用变量而不是变量值以便该方法将选择范围返回给变量、TopRow属性为当前表格可见行首行号、Sortcol()对指定列进行排序、sortrow()对指定行排序、PageHeader...Text和PageFooter...Text属性设置页眉页脚其中@number表示当前面@Count表示总页数、 GetCellHAlignment取横向对齐方式GetCellVAlignment纵向SetCellHAlignment设置0左1中2右、ExplainCellExpression计算单元格公式(单元格公式不会自动计算，只能在程序中调用执行)、ExportExcel导出到excel。 2、BottomHeight和RightWidth设为0则reportX没有滚动条,PoleHeight和PoleWidth设为0则表格没有固定标题行列。 3、reportx单元格首列和首行号均为1 4、setpoletext()和getpoletext 参数一为标杆方向横向为0，纵向为1，参数二位置从1开始（即最左上角标杆格无法设置任何数据） 5、MergeCell()合并单元格必须用合并后的最前的行列进行读写，或用SplitCell拆分单元格。 6、VB对其setfocus()无效（易语言支持setfocus），可使用控件本身的SetSelectCell方法代替。 7、AppendRow和AppendCol方法增加指定的行数或列数，DeleteCol删除指定列数。 8、reportx.SetColWidth col, reportx.GetColBestWidth(col) + 9 '填充完数据后，用此语句设置最佳列宽。 9、copycell和paste方法可以复制，粘贴区域，包含格式(但不含分页符)，可以粘贴到另一个Rpt对象中。 10、大量写表格数据时，设置InvalidatePaint()使表格刷新无效，写好数据后使用ValidatePaint()使报表刷新有效并刷新，这样可以加快写的速度。如果这样还是太慢或内存不足，则只能用分页分册的方式了。 速度上比VsFlex的还是要差很多，但支持图表，支持打印，支持套打模版等等，更主要的是免费，支持原作者！

一个很不错的报表控件，希望继续完善，使用中还是有些不足 比如使用cell函数取值时，如果公式在被取值单元格前，则第一页无法取到值 还有些会产生系统错误，系统自带报表样本中就有几个会出错 总体来说是自由度最高的报表，最易用的报表，没有之一，支持国产佳作！ 原版本打包，版权属原作者

个人常用的报表，数据库操作类的VB模块，每个模块都标有用法 1、四舍五入函数(VB本身的有问题，而且这个支持小数位数为负数) 2、一维数组排序 3、数组去重复 4、将变量转化为SQL语句的字段值，文本加单引号数字就不加单引号 5、整理字符串，去除连续字符，仅保留N个 6、取指定范围内不重复的随机数序列集合 7、把总额(指定的小数位数)按范围随机拆分，个数不定 8、API等待，不会造成假死，精确到毫秒 9、ReportX排版置标题 10、reportx删除选定行 11、reportx写入记录集recordset 12、recordset写入reportx，带自动最佳列宽

两种方法取网络时间，第一种方法不受网站本身是否提供时间查询页限制

这个是一个比较完善的VB二维码生成源代码，亲测可用! 原作未声明版权，但特此声明所有权属于原作者

简洁的界面，所有操作都是语句化的，所有系统自动生成语句可以直接复制使用。 SQL语句中输入的双引号会自动转为单引号

之前发的sqlite3.6.15可加密码的源码及动态连接库，必须使用本版本创建的数据库，才能加密，原版本无管理器，所以制作了这个版本专用的管理器，如有问题请在此反馈!

sqlite3语法大全中文版，含取sqlite所有表名，字段名，等。

解压密码：1 极少见的完全开源源码，可打印，支持打印预览的第三方表格控件。 由VB6开发的超漂亮表格控件ocx. 说见压缩包内说明

内带sqlite3.6.151 风铃夜思雨 修改版的 sqlite.dll，支持odbc，可加密，可用sql语句修改密码 另有，2011年11月为止最新的sqlite3.7.9版(含odbc0.93驱动exe安装版) 外带VB用API模块，及VB用api封装dll。 附：sqlite语法大全html和word两种版本，sqlite权威指南中文版(不完全版)

地税新版电脑版发票开具打印及客户资料管理软件

取拼音支持GBK多音字，共计收录2万7千多个汉字。支持取首字母 取带声调拼音 start("软件注册码") '初始化控件，使用控件前必须初始化。注册码不可为空，错误注册码将出现随机弹窗，不影响其他功能。 qpy("要取拼音的汉字",取第几个音) '取拼音 返回汉字的读音,末位数字代表声调,无法识别的字符则返回原字符。 qdys("要判断读音数的汉字") '取读音数 返回汉字读音的数目，无法识别则返回0 qszm("字符串") '取首字母 返回字符串的拼音首个字母，多音常用字返回常见读音首字母，非常见字返回第一个读音首字母，无法识别返回原字符。 获取控件注册码请联系QQ331333721或直接登录淘宝网店购买，每个注册号人民币30元整。注册号与淘宝交易号直接挂勾，凡未经许可传播注册号或发布破解控件，将引起最大范围的法律诉讼。网店地址： http://shop57633285.taobao.com/