<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[vbcrack的专栏]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/vbcrack</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; vbcrack]]></copyright><item><title><![CDATA[将文件从本地机拷贝到远程]]></title><link>https://blog.youkuaiyun.com/vbcrack/article/details/308850</link><guid>https://blog.youkuaiyun.com/vbcrack/article/details/308850</guid><author>vbcrack</author><pubDate>Thu, 03 Mar 2005 10:10:00 +0800</pubDate><description><![CDATA[Option ExplicitPrivate Sub Command1_Click()Dim DstFilePath As StringDim fs As ObjectDstFilePath = "//chenfeng/c:/"    目标文件路径Set fs = CreateObject("Scripting.FileSystemObject")   创建文件系统对象If fs.FileEx]]></description><category></category></item><item><title><![CDATA[用 MsHFlexgrid 控件和 command控件组合完成功能]]></title><link>https://blog.youkuaiyun.com/vbcrack/article/details/308778</link><guid>https://blog.youkuaiyun.com/vbcrack/article/details/308778</guid><author>vbcrack</author><pubDate>Thu, 03 Mar 2005 09:17:00 +0800</pubDate><description><![CDATA[我以vsFlexGrid表格控件和普通的按钮控件为例给你举个例子:表格控件名: Mygrid按钮控件名: Command1注意事项：在窗体放控件的时候要将按钮控件置前！不然看不到效果的哦！---定义表格Private Sub Form_Load()  Command1.Visible = False  With Mygrid    .Cols = 3    .Rows = 3    .T]]></description><category></category></item><item><title><![CDATA[在程序中判断一个Access数据库中有几张表]]></title><link>https://blog.youkuaiyun.com/vbcrack/article/details/308768</link><guid>https://blog.youkuaiyun.com/vbcrack/article/details/308768</guid><author>vbcrack</author><pubDate>Thu, 03 Mar 2005 09:08:00 +0800</pubDate><description><![CDATA[Private Sub Form_Load()菜单“工程”-->"引用"-->"Microsoft ActiveX Data Objects 2.7 Library"Microsoft ADO Ext.2.7 for DDL ado Security Dim cat As ADOX.CatalogDim adocon As ADODB.ConnectionSet adocon = New AD]]></description><category></category></item><item><title><![CDATA[Visual Basic实现动态报表]]></title><link>https://blog.youkuaiyun.com/vbcrack/article/details/308176</link><guid>https://blog.youkuaiyun.com/vbcrack/article/details/308176</guid><author>vbcrack</author><pubDate>Wed, 02 Mar 2005 18:14:00 +0800</pubDate><description><![CDATA[　Visual Basic中如何实现动态报表是一个在众多VB网站论坛上提问频率很高的问题，在实际项目中, 作者也遇到这个问题, 经过一番深入研究，用一种简单的方法在Visual Basic中实现了动态报表。　　Visual Basic中制作报表的工具有很多，如Crystal报表编辑器、Datareport报表窗体、Printer对象以及象Vsview等一些第三方控件。但Crystal报表编辑器一般]]></description><category></category></item><item><title><![CDATA[读写INI文件的四个函数 ]]></title><link>https://blog.youkuaiyun.com/vbcrack/article/details/308171</link><guid>https://blog.youkuaiyun.com/vbcrack/article/details/308171</guid><author>vbcrack</author><pubDate>Wed, 02 Mar 2005 18:11:00 +0800</pubDate><description><![CDATA[读写INI文件的四个函数 文件名SourceDB.ini文件Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefa]]></description><category></category></item><item><title><![CDATA[读写INI文件的四个函数 ]]></title><link>https://blog.youkuaiyun.com/vbcrack/article/details/308168</link><guid>https://blog.youkuaiyun.com/vbcrack/article/details/308168</guid><author>vbcrack</author><pubDate>Wed, 02 Mar 2005 18:07:00 +0800</pubDate><description><![CDATA[读写INI文件的四个函数 文件名SourceDB.ini文件Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefa]]></description><category></category></item><item><title><![CDATA[用VB6实现程序多语言界面]]></title><link>https://blog.youkuaiyun.com/vbcrack/article/details/308164</link><guid>https://blog.youkuaiyun.com/vbcrack/article/details/308164</guid><author>vbcrack</author><pubDate>Wed, 02 Mar 2005 18:05:00 +0800</pubDate><description><![CDATA[现在，很多软件都提供了多种语言界面可供选择，使软件可以方便地被不同国家的人使用。其实，支持多语言界面的软件只是提供了不同语言对应的语言文件。软件通过读取相应的文件，就可以显示相应的语言界面了。在VB中可以通过读取相应的文件后，修改Caption属性来实现。　　下面这个例子就介绍了中/英文界面在VB中的实现方法，大家可以举一反三使自己的软件也支持多语言界面。　　首先，建立两个语言文件chinese.]]></description><category></category></item><item><title><![CDATA[用Viusal Basic命令操作目录解析]]></title><link>https://blog.youkuaiyun.com/vbcrack/article/details/308149</link><guid>https://blog.youkuaiyun.com/vbcrack/article/details/308149</guid><author>vbcrack</author><pubDate>Wed, 02 Mar 2005 17:56:00 +0800</pubDate><description><![CDATA[1、创建一个新目录或文件夹　　实现这一步我们可以使用vb中的MkDir语句。　　格式：MkDir path　　作用：创建一个新的目录和文件　　说明：path 指定所要创建的目录或文件夹的字符串表达式。Path可以包含驱动器。如果没有指定驱动器，则MkDir会在当前驱动器上创建新的目录或文件夹。如果指定的目录或文件夹已经存在，那么就会产生一个错误。　　例如: MkDir “c:/windows/10]]></description><category></category></item><item><title><![CDATA[利用VB操作目录和文件夹]]></title><link>https://blog.youkuaiyun.com/vbcrack/article/details/308144</link><guid>https://blog.youkuaiyun.com/vbcrack/article/details/308144</guid><author>vbcrack</author><pubDate>Wed, 02 Mar 2005 17:51:00 +0800</pubDate><description><![CDATA[windows还给我们提供了一个叫做FileSystemObject（简称FSO）对象。FSO对象模型中包括了计算机文件系统所有的对象。见下表。利用这些对象可以更方便的操作文件系统。对象功能Drive允许收集系统的驱动器信息，诸如驱动器的可用空间Folder允许创建、删除或移动文件夹，并向系统查询文件夹的名称、路径等等Files允许创建、删除或移动文件，并向系统查询文件的名称、路径等等FileSy]]></description><category></category></item><item><title><![CDATA[VB程序启动后如何在通知区域显示 ]]></title><link>https://blog.youkuaiyun.com/vbcrack/article/details/308142</link><guid>https://blog.youkuaiyun.com/vbcrack/article/details/308142</guid><author>vbcrack</author><pubDate>Wed, 02 Mar 2005 17:49:00 +0800</pubDate><description><![CDATA[语言:Micrisift Visual Basic 6.0功能:向系统托盘区添加图标作者:黄旭东日期:2004-10-22版权:CopyRight 2001-2005 By Faib Studio网址:http://faib.yeah.net邮件:faib920@163.comOption ExplicitPrivate Declare Function Shell_NotifyIc]]></description><category></category></item><item><title><![CDATA[VB程序启动后如何在通知区域显示 ]]></title><link>https://blog.youkuaiyun.com/vbcrack/article/details/308134</link><guid>https://blog.youkuaiyun.com/vbcrack/article/details/308134</guid><author>vbcrack</author><pubDate>Wed, 02 Mar 2005 17:38:00 +0800</pubDate><description><![CDATA[语言:Micrisift Visual Basic 6.0功能:向系统托盘区添加图标作者:黄旭东日期:2004-10-22版权:CopyRight 2001-2005 By Faib Studio网址:http://faib.yeah.net邮件:faib920@163.comOption ExplicitPrivate Declare Function Shell_NotifyIc]]></description><category></category></item><item><title><![CDATA[用Visual Basic设计抽奖程序]]></title><link>https://blog.youkuaiyun.com/vbcrack/article/details/308127</link><guid>https://blog.youkuaiyun.com/vbcrack/article/details/308127</guid><author>vbcrack</author><pubDate>Wed, 02 Mar 2005 17:35:00 +0800</pubDate><description><![CDATA[　抽奖活动在生活中屡见不鲜，给我们日常生活也增添了不少乐趣。这里向大家介绍一种都很熟悉的电脑模拟抽奖游戏，就像各类晚会上经常使用的抽奖模式。抽奖程序操作要求方便直观，全体人员都可以清楚地观看抽奖全过程。　　一、设计界面　　先打开VB，在Form1中定义六个命令按钮，分别用来显示中奖号码的各位数字。默认情况下，参加的人数应少于10万人（当然，可以通过增加或减少按钮的个数，扩大或缩小参加抽奖人数的范围]]></description><category></category></item><item><title><![CDATA[VB报表设计中使用天宇报表控件]]></title><link>https://blog.youkuaiyun.com/vbcrack/article/details/308124</link><guid>https://blog.youkuaiyun.com/vbcrack/article/details/308124</guid><author>vbcrack</author><pubDate>Wed, 02 Mar 2005 17:32:00 +0800</pubDate><description><![CDATA[报表是软件开发过程中非常耗费精力的事。并且报表的要求又很高。在我们试用了大量的专业报表工具如天宇报表（Crystal Reports）之后，我和我朋友对如何将这个复杂的东东加入我们的报表应用中有着非常的好奇心，但后来越来越感觉它的复杂程度不易使我们激动，且灵活性令人无法敬慕，久于久之，我们就有了开发一个全新的报表组件的想法，并热情地开发出来，这就是“天宇报表组件”。 　　这篇文章教你如何使用“天宇]]></description><category></category></item><item><title><![CDATA[利用VB6.0设计屏幕保护程序]]></title><link>https://blog.youkuaiyun.com/vbcrack/article/details/308110</link><guid>https://blog.youkuaiyun.com/vbcrack/article/details/308110</guid><author>vbcrack</author><pubDate>Wed, 02 Mar 2005 17:26:00 +0800</pubDate><description><![CDATA[Windows操作平台设有一个屏幕的保护措施，即屏幕保护功能。经常在Windows操作平台上使用电脑的人们对系统提供给我们的几个屏幕保护程序是不是感到非常平常了，没有新鲜感了，是不是想自己设计屏幕保护程序。下面介绍如何利用VB设计用户自己的屏幕保护程序。屏幕保护程序可以保护显示屏不被损坏，同时节约能源。作为屏幕保护程序，应该具有如下特性：　　1)屏幕保护程序运行时，鼠标光标被自动隐藏，在程序结束时]]></description><category></category></item><item><title><![CDATA[用VB6.0取得系统信息技巧]]></title><link>https://blog.youkuaiyun.com/vbcrack/article/details/308107</link><guid>https://blog.youkuaiyun.com/vbcrack/article/details/308107</guid><author>vbcrack</author><pubDate>Wed, 02 Mar 2005 17:24:00 +0800</pubDate><description><![CDATA[假如我们想要用VB6.0 取得系统信息，可以通过VB6.0的sysinfo控件和Windows API函数来实现。 　　一、用sysinfo控件获得操作系统版本　　要用sysinfo控件，必需在部件引用中选择Microsoft Sysinfo Control复选框。程序　　代码如下:Private Sub Command1_ Click()　Dim MsgEnd As String　Select ]]></description><category></category></item><item><title><![CDATA[VB编程破解Windows屏幕保护密码]]></title><link>https://blog.youkuaiyun.com/vbcrack/article/details/308100</link><guid>https://blog.youkuaiyun.com/vbcrack/article/details/308100</guid><author>vbcrack</author><pubDate>Wed, 02 Mar 2005 17:17:00 +0800</pubDate><description><![CDATA[大家都知道，屏幕保护密码最多为16个字符。微软内置了16字节的密钥：48 EE 76 1D 67 69 A1 1B 7A 8C 47 F8 54 95 97 5F。Windows便用上述密钥加密你输入的密码。其加密过程为：首先将你输入的密码字符逐位转换为其16进制的ASCⅡ码值（小写字母先转为大写字母），再依次与对应密钥逐位进行异或运算，把所得16进制值的每一位当作字符，转换为其16进制ASCII]]></description><category></category></item><item><title><![CDATA[用Visual Basic设计个性化文件夹图标 ]]></title><link>https://blog.youkuaiyun.com/vbcrack/article/details/308091</link><guid>https://blog.youkuaiyun.com/vbcrack/article/details/308091</guid><author>vbcrack</author><pubDate>Wed, 02 Mar 2005 17:13:00 +0800</pubDate><description><![CDATA[抛弃Windows的默认图标吧，让自己的程序所在的目录拥有个性化的Folder Icon！其实作起来简单得很，实际上只需要一个Desktop.ini文件即可，下面我会从两个方面说明。 　　1. 手动方式：　　　首先要在需要改变的文件夹中创建一个Desktop.ini文件，例子如下：[.ShellClassInfo]ConfirmFileOp=0InfoTip=我自己的文件夹IconIndex=0I]]></description><category></category></item></channel></rss>