博文
VB必藏小技巧(2005-09-22 20:45:00)
摘要：
VB_小技巧
获取X字符串包含字母“B”的数量，最简单方法=========================== UBound(Split(x, "B"))剪贴板相关=========================================================== '全选 Private Sub mnuSelectAll_Click() RichTextBox1.SelStart = 0 RichTextBox1.SelLength = Len(RichTextBox1.Text) End Sub '粘贴 Private Sub mnuPaste_Click() RichTextBox1.SelText = Clipboard.GetText End Sub '查找 Private Sub mnuFind_Click() sFind = InputBox("请输入要查找的字、词：", "查找内容", sFind) RichTextBox1.Find sFind End Sub '继续查找 Private Sub mnuFindOn_Click() RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1 RichTextBox1.Find sFind, , Len(RichTextBox1) End Sub TextBox操作==========================================================1、限制只能输入数字参考下列程序：Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii < 48 Or KeyAscii > 57 ThenKeyAscii = 0End IfEnd Sub2、屏蔽特定字符Private Sub Text1_KeyPress(KeyAscii As Integer) Dim ......
身份证号码校验位计算函数（VB版）(2005-09-22 20:43:00)
摘要：
身份证号码校验位计算函数（VB版）
点击数：443 发布日期：2005-7-8 9:24:00 【评论】【打印】【收藏此页到365Key】
function fcs(s)'s为17位号码，含“19”，仅返回最后的校验位sum1 = Mid(s, 1, 1) * 7 + Mid(s, 2, 1) * 9 + Mid(s, 3, 1) * 10 + Mid(s, 4, 1) * 5 + Mid(s, 5, 1) * 8 + Mid(s, 6, 1) * 4 + Mid(s, 7, 1) * 2 + Mid(s, 8, 1) + Mid(s, 9, 1) * 6 + Mid(s, 10, 1) * 3 + Mid(s, 11, 1) * 7 + Mid(s, 12, 1) * 9 + Mid(s, 13, 1) * 10 + Mid(s, 14, 1) * 5 + Mid(s, 15, 1) * 8 + Mid(s, 16, 1) * 4 + Mid(s, 17, 1) * 2Select Case sum1 Mod 11Case 0fcs = "1"Case 1fcs = "0"Case 2fcs = "x"Case 3fcs = "9"Case 4fcs = "8"Case 5fcs = "7"Case 6fcs = "6"Case 7fcs = "5"Case 8fcs = "4"Case 9fcs = "3"Case 10fcs = "2"End Selectend function......
VB条形码编码(2005-09-22 20:42:00)
摘要：
VB条形码编码
点击数：488 发布日期：2005-7-3 22:17:00 【评论】【打印】【收藏此页到365Key】
VB条形码编码类型：转载 条形码技术广泛应用于各行各业，你随便拿起一本书、一包薯片都可以在外包装上找到，利用条码读取机便可将这一条条黑白相间、粗细不同的垂直线条识别而转换为具体的数值，并将这个数值返回到计算机中进行处理。正是这样，有了条形码技术，人们很方便就能取得该商品的有关信息如商品名称、规格、价格等，因为每种商品都有其对应的条形码，这个条形码计算机（终端、服务器）中就可以迅速返回用户，从数据库中读取约定的商品，信息使得销售、进货、存货等等管理更有效率，也对防止假冒伪劣又一定的抑制作用。条码的编码方式有多种，不同行业，不同国家标准也不尽相同。条形码通过线条的粗细来表达其数值。至于接口方式一般也有多种，如键盘口的、串行口的。一般传感装置是光罩式的，也有笔式的。上面笼笼统统地谈了一些关于条形码的知识，可帮助你更好地阅读以下更深入的内容。条形码有关概念先说到这里，接着是详细具体的编程实现方法。 一、条形码的读取 用过键盘口式的扫条码工具的朋友就知道，它就如同在鍵盘上按下数字鍵一样，基本不需任何编程和处理。但如果你使用的是其它接口的话，可能你就要为该设备编写通讯代码了。以下有一段简单的25针串口的条码读取器通讯代码。Option ExplicitDim sData As StringPrivate Sub Form_Load()With MSComm1 .CommPort = 3 '设为COM3，试运行的系统而定，你可提供一个Combox让用户选择。 .PortOpen = True '打开通讯端口End WithEnd Sub Private Sub MSComm1_OnComm() Dim EndPos As......
在VB中调用CHM 帮助的几种方法(2005-09-22 20:41:00)
摘要：
在VB中调用CHM 帮助的几种方法
点击数：483 发布日期：2005-6-24 14:59:00 【评论】【打印】【收藏此页到365Key】
在VB中调用CHM 帮助的几种方法类型：转载一个应用程序不论编制得如何完美，在很多情况下用户还是会对如何使用它提出问题。 Visual Basic 提供了对两种不同帮助系统的支持：传统的 Windows 帮助系统 (WinHelp)和新的 HTML 帮助（CHM帮助）。当我们制作好帮助文件后，就需要在程序的适当位置编写代码进行调用，本文将讨论几种在程序中调用CHM帮助文件的方法。方法一 使用F1键：这种方法最简单，只需如下代码即可：Private Sub Form_Load()App.HelpFile = app.path & "\help.chm" '调用与主程序同目录下的help.chm帮助文件，按F1键调用End Sub方法二 使用SendKeys方法：Private Sub Form_Load()App.HelpFile = app.path & "\help.chm"End Subprivate Sub CmdHelp_Click()SendKeys "{F1}" '发送击键到活动窗口End Sub方法三 使用Shell函数：private Sub CmdHelp_Click()Shell "hh.exe help.chm", vbNormalFocus 'help.chm为指定的帮助文件，可包含路径。End Sub方法四 使用HtmlHelp函数：先声明如下API：Option ExplicitPrivate Declare Function HtmlHelpA Lib "hhctrl.ocx" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long'hwndCaller指定调用者的窗口，pszFile指定要调用的文件，uCommand是发送给 HtmlHelp的命令，dwData是uCommand的参数。然后在过程中调......
VB的工程限制(2005-09-22 20:39:00)
摘要：
VB的工程限制
转载自：http://www.vb60.comVisual Basic 的工程限制Visual Basic 的工程限制（摘自Visual Basic 6.0 中文版程序员指南）一个单项工程可以包含多达 32,000 个"标识符"(非保留字)，它们包括（但不限于）窗体、控件、模块、变量、常量、过程、函数和对象。注意，实际的标识符数受可用内存的限制。Visual Basic 中的变量名不多于 255 个字符，而窗体、控件、模块和类名不多于 40 个字符。Visual Basic 不限制工程中不同对象的实际数目。◆控件限制◆每个非图形的控件（除形状、直线、图像和标签之外的所有控件）都使用一个窗口。每个窗口都使用系统资源，所以可同时存在的窗口总数受到可用资源的限制。确切的限制取决于可用的系统资源和使用的控件类型。为了减低系统资源的消耗，在创建或显示图形时，可以使用形状、直线、标签和图像控件而不用图片框控件。1、控件总数单个窗体允许使用的最大控件数目取决于使用的控件类型和可用的系统资源。然而，有每个窗体只允许 254 个控件名的固定限制。因为数组中的所有控件共享一个控件名，所以控件数组仅对这一限制计数一次。在所有的版本中，对控件数组索引的限制是在 0 到 32,767 的范围之内。如果在每个控件的顶层上再安放控件，例如在框架中嵌套框架控件，VisualBasic 一般只接受不多于 25 层的嵌套控件。2、对特殊控件的限制下表列出了用于 Visual Basic 中特殊控件的属性限制。List和ListCount列表框控件和组合框控件：项数最多为32K，对每项大小的限制为1K（1024 字节）；Text文本框控件：限制为64K；Caption标签控件：限于1024字节；命令按钮控件、复选框控件、框架控件和选项按钮控件：限于255个字符，任何超过这些限制的标题均被截尾；自定义控件属性的标题：限于32K菜单控件：限于235个字符Tag所有控件：仅限于可用的内存大小Name所有控件：限于40个字符注意，在 Visual Basic 中，控件属性名限于 30 个字符。◆代码限制◆可被加载到窗体、类或标准模块的代码总数限于 65,534 行。一行代码限于1023 个字节。在一行中的实际文本之前最多只能有......
让你的VB程序支持多国语言的切换(2005-09-22 20:38:00)
摘要：
让你的VB程序支持多国语言的切换
本文摘自网上,版本归原作者所有,转载请注明!!!以前做过一个vb的小项目，客户需要软件同时能够支持中文和英文，为此写了一个自动语言切换的模块来用，不敢独享，拿来给大家参考一下 模块 MdlLanMgr.bas ： Attribute VB_Name = "ModuleLanMgr" Option Explicit Private Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) Private LanguageFileName As String '选择语言 Public Sub SelectLanguage(LanName As String) On Error Resume Next Select Case LanName '根据用户选择的语言的名称，分别读取不同的语言文件 Case "English": LanguageFileName = AddSplash(App.Path) & "English.Lan" Case "Chinese(Simplify)": LanguageFileName = AddSplash(App.Path) & "ChineseS.Lan" Case "Chinese(Traditional)": LanguageFileName = AddSplash(App.Path) & "ChineseT.Lan" Case Else: LanguageFileName = "" End Select End Sub '翻译文字 Public Function TranslateStr(sS......
windowkeyizai开始运行的命令(2005-09-22 20:31:00)
摘要：开始——运行。。。。。。大家一定很熟悉了吧，但出了PING,REGEDIT,MMC之外还还记得什么吗？那就来这儿 看看吧！ winver---------检查Windows版本 wmimgmt.msc----打开windows管理体系结构(WMI) wupdmgr--------windows更新程序 wscript--------windows脚本宿主设置 write----------写字板 winmsd---------系统信息 wiaacmgr-------扫描仪和照相机向导 winchat--------XP自带局域网聊天 mem.exe--------显示内存使用情况 Msconfig.exe---系统配置实用程序 mplayer2-------简易widnows media player mspaint--------画图板 mstsc----------远程桌面连接 mplayer2-------媒体播放机 magnify--------放大镜实用程序 mmc------------打开控制台 mobsync--------同步命令 dxdiag---------检查DirectX信息 drwtsn32------ 系统医生 devmgmt.msc--- 设备管理器 dfrg.msc-------磁盘碎片整理程序 diskmgmt.msc---磁盘管理实用程序 dcomcnfg-------打开系统组件服务 ddeshare-------打开DDE共享设置 dvdplay--------DVD播放器 net stop messenger-----停止信使服务 net start messenger----开始信使服务 notepad--------打开记事本 nslookup-------网络管理的工具向导 ntbackup-------系统备份和还原 narrator-------屏幕“讲述人” ntmsmgr.msc----移动存储管理器 ntmsoprq.msc---移动存储管理员操作请求 netstat -an----(TC)命令检查接口 syncapp--------创建一个公文包 sysedit--------系统配置编辑器 sigverif-------文件签名验证程序 sndrec32-------录音机 shrpubw-------......
76种语言说“我爱你”！(2005-09-22 19:23:00)
摘要：
76种语言说“我爱你”！
点
法语：Je t'aime,Je t'adore 德语：Ich liebe Dich 希腊语：S'agapo 犹太语：Ani ohev otach(male or famale),Ani ohevet otcha (male or famale) 匈牙利：Szeretlek 爱尔兰：taim i'ngra leat 爱沙尼亚：Mina armastan sind 芬兰：Min rakastan sinua 比利时佛兰芒语：IK zie u graag 意大利语：ti amo,ti vogliobene 拉丁语：Te amo,Vos amo 拉托维亚：Es tevi Milu 里斯本：lingo gramo-te bue',chavalinha 立陶宛：Tave Myliu 马其顿：Te sakam 马耳他：Inhobbok 波兰语：Kocham Cie,Ja cie kocham 葡萄牙：Eu amo-te 罗马尼亚：Te iu besc,Te Ador 荷兰：IK hou van jou 英语：I love you 捷克：Miluji te 丹麦：Jeg elsker dig 阿尔萨斯：Ich hoan dich gear 亚美尼亚：Yes Kezi Seeroom yem 巴伐利亚：I mog di narrisch gern 保加利亚：ahs te obicham 西班牙加泰隆语：T'estim 克罗地亚：Volim te 阿塞疆语：Men seni serivem 孟加拉：Ami tomay bhalobashi 缅甸：chit pa de 柬埔寨：Bong salang oun 菲律宾：Mahal Kita,Iniibig Kita 印度古吉拉特语：Hoon tane prem karun chuun 北印度语：main tumse pyar karta hoon 印度尼西亚：Saja kasih saudari 日本：Kimi o aishiteru Sukiyo 朝鲜：Tangshin-i cho-a-yo 爪哇语：aku tresno marang sliromu 老挝：Khoi huk chau 马来语：saya Cinta Mu 马来西亚：Saya Cintamu......
vb中如何实现支持客户－服务器编程(2005-09-22 19:21:00)
摘要：现在大多数语言都支持客户－服务器模式编程，其中VB给我们提供了很好的客户－服务器编程方式。下面我们用VB来实现TCP／IP网络编程。 TCP／IP协议是Internet最重要的协议。VB提供了WinSock控件,用于在TCP／IP的基础上进行网络通信。当两个应用程序使用Socket进行网络通信时，其中一个必须创建Socket服务器侦听，而另一个必须创建Socket客户去连接服务器。这样两个程序就可以进行通信了。 1．创建服务器，首先创建一个服务端口号。并开始侦听是否有客户请求连接。 建立一窗体，并向其增加一个Winsock控件(可在工程菜单中的部件项来添加此控件) 添加两文本框Text1,Text2,和一按钮Command1 Private Sub Form_Load() SockServer.LocalPort = 2000 ′服务器端口号,最好大于1000 SockServer.Listen ′开始侦听 End Sub Private Sub Form_Unload(Cancel As Integer) SockServer.Close End Sub Private Sub SockServer_Close() SockServer.Close End Sub Private Sub SockServer_ConnectionRequest(ByVal requestID As Long) SockServer.Close SockServer.Accept requestID ′表示客户请求连接的ID号 End Sub ′当客户向服务器发送数据到达后,产生DataArrival事件,在事件中接收数据,GetData方法接收数据。 Private Sub SockServer_DataArrival(ByVal bytesTotal As Long) Dim s As String SockServer.GetData s Text1.Text = s End Sub 当我需要向客户发送数据时，只需调用SendData方法。 Private Sub Command1_Click() SockServer .SendData Text2.Text End Sub 2．创建客户。要创建客户连接服务器，首......
嫁人千万不要嫁农村的姐妹们，为了大家的终生幸福，嫁人不要嫁农村的！(2005-09-20 22:31:00)
摘要：嫁人千万不要嫁农村的姐妹们，为了大家的终生幸福，嫁人不要嫁农村的！ 当你谈恋爱的时候，你会觉得无比的甜蜜和幸福。因为能够到城里来念大学、和你相识的男孩子，都是从农村跳龙门走出来的优秀分子，他们坚定、上进、能吃苦、有一定的阅历，和他们在一起总是会对生活充满憧憬。 但这一切只能局限在纯粹的感情层面上，当你们要从恋爱进入“结婚”，走进现实生活的时候，就会发现原来感情在现实的力量面前远没有你所想象的那么强大。 第一眼见到他，你可能已经被他迷住了。 终于，你们走到一起了，走过了4年被象牙塔包围不受现实力量侵害的日子，终于要开始面对现实了。他凭着他的优秀，能拿到较高的工资。他凭着他的上进心，能够在事业上开创一番局面。他凭着他从农村出来的淳朴和责任心，让你绝对没有情敌的威胁。你会感到那么心醉，觉得世间好男人就是这样的了。 事实真的是这样的么？ 首先是生活观念的冲突。 当你们小时候被父母带着去游乐园吃棉花糖坐过山车的时候，你们的男朋友是在地里耍泥巴。当你们7岁生日礼物是一架钢琴——也许你并不喜欢，他们可能在那个时候才得到人生第一双属于自己的袜子。当你们高三时候父母总是会鼓励你们考好成绩上好大学，他们的父母在忧心成绩优秀的儿子能不能交上昂贵的学费。 由于这样生活环境的不同，在将来漫长的生活当中你才会发现你们之间共同语言有多么苍白，话题渐渐稀少。他或许更喜欢沉溺在网络游戏或者哥们喝酒聊天当中，你也许和女伴一道逛街买名牌时间更多。就连看一部电影你们的着眼点都会有很大差异，你才会发现——沟通原来这么困难。 然后就是不可避免的经济问题。 你是家里的姣姣女，你的父母靠着一辈子的辛苦有了一定的积蓄和家底，当然不会让自己心爱的女儿吃苦。所以他们会把你的男朋友照顾得很好，给你们足够多的钱，甚至让你们娱乐的时候也不用担心花费太大。你的他花钱可能会很节省，但如果他的家庭向工资高的他伸手的时候，无论是你还是他都没有任何理由拒绝。基于对他的爱，可能连你都会鼓励他给更多的钱。 结婚，前奏就是房子。你的父母也许可以和你坐下来谈谈，拿出5万10万来，作为房子的首付款或者装修钱。 他呢？你完全不必奢望。他连上大学的钱都是困难重重，已经工作并且成为顶梁柱的他怎么可能从父母手中再拿钱，而且是大笔的钱？那他住着你父母提供的屋子心里会平衡么？ 他也许会有很多的兄弟姐妹，都期待着能够进入城市——城市和农村收入差距已经是一个不......