许 的专栏 --品质源于专业

  http://www.3q2008.com/soft/13/19/2009/8084864353.html 原文地址 转载请保留本站信息, 谢谢------------------------------------------------------------ 发布 www.3q2008.Com 3Q2008.Com原创 免费计算机毕

---------------------大体方便日后查询参看,没调试可能有错误 :)---------------------请尊重作者辛苦 转载请保留以下信息 谢谢  网站制作系统开发记得http://3q2008.ComQQ: 63353282---------------------以下代码 没在环境中调试,可能有问题...只是一个方法思路-----------------V

'转载请保留一下信息 谢谢'作者:  HTTP://3Q2008.COM 为什么要生成静态页面呢? 可以被搜索的蜘蛛挂到.可以减轻服务器负担,时髦..... 无论什么原因,对大量的ASP页面生成静态页面确实是头痛的事情,特别是论坛,如今论坛生成静态页面好像很时髦.......... 一下三个函数足够了, 在提交数据后,加些代码将数据保存起来 就OK了 例如sub RedisHtml () dim ...

转载请保留 3q2008.com 许仙************************************************************************* 功能描述:列举文件夹下的所有文件名,加到数组里  传入变体型返回数组 strFolder 后没用/*****************************************************

小偷程序原理和简单示例 发表：2004-4-13 164720 出处：你的博客网(yourblog.org) 现在网上流行的小偷程序比较多，有新闻类小偷，音乐小偷，下载小偷，那么它们是如何做的呢，下面我来做个简单介绍，希望对各位站长有所帮助。 （一）原理 小偷程序实际上是通过了XML中的XMLHTTP组件调用其它网站上的网页。比如新闻小偷程序，很多都是调用了sina的新闻网页，并且对其中的ht

作者:CSDN 许仙 Homepage : jjweb.126.comMSN :Coderxu#hotmail.comQQ:19030300转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果由于卡巴斯基 太厉害 弄的 OFFCIE编写的程序 调用API读取配置文件都不可以 于是 想到了用FileSystemObject对象读取INI 文件 代码如下, 修改了一下, 同时 支持了

作者:CSDN 许仙 Homepage : jjweb.126.comMSN :Coderxu#hotmail.comQQ:19030300转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果如何用VB 设置OFFICE 2003程序 启动时,是否启用宏! 点击菜单[工具(T)]--[宏(M)]--[安全性(S)].当然这里是如何用代码设置..设置注册表 (运行时不适用):  

作者:CSDN 许仙 Homepage : jjweb.126.comMSN :Coderxu#hotmail.comQQ:19030300转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果Option ExplicitConst REG_EXPAND_SZ = 2Const HKEY_CLASSES_ROOT = &H80000000Const HKEY_CURRENT_

 作者:CSDN 许仙 Homepage : jjweb.126.comMSN :Coderxu#hotmail.comQQ:19030300转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果转自Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=116708TreeView中如何选中一个父节点同时选中所有的子节点和

代码是我收集的在哪里发现的也不记得了,今天有人问我才意识到,应该贴出来....作者:CSDN 许仙 Homepage : jjweb.126.comMSN :Coderxu#hotmail.comQQ:19030300转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果新建文件Client.frm---------------------------------------

作者:CSDN 许仙 Homepage : jjweb.126.comMSN :Coderxu#hotmail.comQQ:19030300转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果因为大量程序的得去编写,所以发觉ADO Recordset 的一个属性可以这样偷懒 呵呵, 既然是筛选以往都是 构造一个SQL语句的条件 去累加原理的条件完成筛选!!ADO Record

因为用到了 就抄了过来 .程序文件升级时,很有用的 :) http://www.cndevx.com/club/printpage.asp?BoardID=30&ID=47949文件地址Private Sub Command1_Click()Inet1.Execute , "Get"End SubPrivate Sub Form_Load()Inet1.URL = http

作者:CSDN 许仙 Homepage : jjweb.126.comMSN :Coderxu#hotmail.comQQ:19030300转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果  因为涉及到了,发觉这方面的资料好像,很少就写了这方面的文章, 希望对您有帮助,   会ACCESS编程的朋友都应该 接触很多的DAO操作,微软提供的ACCESS也是非常牛的...进入

作者:CSDN 许仙 Homepage : jjweb.126.comMSN :Coderxu#hotmail.comQQ:19030300转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果http://www.chenoe.com/blog/default.asp网罗天下  http://www.mndsoft.com/blog/default.asp?cateID=3枕善居

转自 :http://community.csdn.net/Expert/topic/4603/4603745.xml?temp=.7745935那就用二进制方式来读写文件，请参考（把文件（包括图片）存入数据库）：Dim cn As New ADODB.Connection,rs As New ADODB.RecordsetPrivate Sub Form_Load()    cn.Cur

转自.....  http://tb.blog.csdn.net/TrackBack.aspx?PostId=635937 http://www.cuj.com/                          C-C++ Users Journal http://www.sgi.com/tech/stl /                            SGI   STL Sour

作者:CSDN 许仙 Homepage : jjweb.126.comMSN :Coderxu#hotmail.comQQ:19030300转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果 ADO－－－－－－－－－－－－－－－Set cn = CreateObject("adodb.connection")cn.Open "provider=Microsoft.Jet

作者:CSDN 许仙 Homepage : jjweb.126.comMSN :Coderxu#hotmail.comQQ:19030300转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果VERSION 5.00Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"Begin VB.For

作者:CSDN 许仙 Homepage : jjweb.126.comMSN :Coderxu#hotmail.comQQ:19030300转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果    Dim tarr() As Byte       tarr = StrConv("kind=1&UserID=11", vbFromUnicode)       WebBrowser1.

    webbrowser控件不弹出脚本错误提示相信对初学者来说一定是个头疼的问题,至少我是 呵呵,其实很简单...    WebBrowser1.Silent = True20060810新增加-许仙获取webbrowser控件 网页的源码转自－ cutemouse 我在网上找到使用rft控件保存webbrowse文本 txtHtml是RichTextBoxtxtHTML.Text

作者:CSDN 许仙 Homepage : jjweb.126.comMSN :Coderxu#hotmail.comQQ:19030300转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果不知道哪位牛人写的 以前在www.gameres.com看到过这个帖子,今天突然想到一个经典语句就又给翻了出来,的确经典啊.. 好东西当然要存档了 :)来自：太平洋软件资讯      整理

作者:CSDN 许仙 Homepage : jjweb.126.comMSN :Coderxu#hotmail.comQQ:19030300转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果大部分抄的别人的自己只写了几个函数,功能挺有用的 :)Dim r, rstSet r = New ClsCurrentSet rst = r.OpenRst("Select *"

作者:CSDN 许仙 Homepage : jjweb.126.comMSN :Coderxu#hotmail.comQQ:19030300转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果你可以直接拷贝到一个asp页面里作为一个数据库的类 Dim Currentdb set CurrentDb= New ClsCurrent 建立对象 set rst=Curren

原创:     CSDN 许仙 ; qq:19030300 主页:http://jjweb.126.com转载请保持信息的完整性 谢谢参考网络代码完成, VB获取机器的硬盘物理地址和硬盘型号 获取机vb获得本地和远程的MAC地址 (网卡地址) http://blog.csdn.net/hot1kang1/archive/2006/03/27/639713.aspx    硬盘物理I

原创:     CSDN 许仙 ; qq:19030300 主页:http://hot1kang1.126.com转载请保持信息的完整性 谢谢参考网络代码完成, 获取机器的MAC 网卡地址VB获取机器的硬盘物理地址和硬盘型号 http://blog.csdn.net/hot1kang1/archive/2006/03/27/639735.aspx----------------Ge

http://www.chenoe.com/blog/blogview.asp?logID=1875&cateID=1 可以用webbrowser用webbrowser1.document.exec("savaas")保存1、在VB里添加 Microsoft Internet Transfer Control 6.0 部件然后放入窗体2、在所需下载的代码中写入如下代码：   Dim FileD

原文地址:http://hardrock.cnblogs.com/archive/2006/02/21/334532.html1.免费，开源（GPL），同时提供VB源代码和多种预编译版本；2.多种格式输出支持，不仅仅支持PDF，而且支持Tiff，pcx，png，jpeg，bmp，PS，EPS；3.多语言支持（中文翻译的很烂）；4.增加AMD64 芯片的支持；5.提供COM接口，支持多种语言编程

原创:     许仙; qq:19030300 主页:http://hot1kang1.126.com转载请保持信息的完整性 谢谢VB--图片在PICETURE控件里等比例缩放的方法二个image Stretch属性设成 True  1 个 Pictrue  包含一个image    Dim SourceRate As Single, CtlRate As Single 

原创:     许仙; qq:19030300 主页:http://hot1kang1.126.com转载请保持信息的完整性 谢谢ListView控件的查找全部字段的方法--------------------------------------------------------------------------------lvwCtl     控件名blnHoldOfFiel

原创:     许仙; qq:19030300 主页:http://hot1kang1.126.com转载请保持信息的完整性 谢谢刚接触ListView 控件写的Private Sub Command1_Click()     Dim i, mRow As ListItem     lsvEMail.SmallIcons = ImageList1   关联图标          Fo

原创:     许仙; qq:19030300 主页:http://jjweb.126.com转载请保持信息的完整性 谢谢——————————————————————————————————将控件更改语言版本针对各个窗体读取控件信息写入控件信息Public Function manageVer(strVer As String, Optional frmName As Strin

原创:     许仙; qq:19030300 主页:http://hot1kang1.126.com转载请保持信息的完整性 谢谢——————————————————————————————————Public Function FindFiled(rs As Recordset) Dim d For Each d In rs.Fields Debug.Print d.Name  Nex

原创:     许仙; qq:19030300 主页:http://hot1kang1.126.com转载请保持信息的完整性 谢谢——————————————————————————————————Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Strin

        VB关机心得笔记原创:     许仙; qq:19030300 主页:http://hot1kang1.126.com转载请保持信息的完整性 谢谢    原代码来源网络——————————————————————————————————Windows 95 重新开机十分简单，只要呼叫 ExitWindowsEx API 函数就可以了Private Declar