博文
VB编写打印预览程序(2005-11-15 00:54:00)
摘要：可以有很多方法，VB自己提供了设计器。但我更喜欢使用printer对象进行代码控制，下面有部分代码是在一张A4纸张上打印图表的，很早以前写的，乱，希望你能看懂：） 只要你把printer的currentx和currenty转换成思维模型了，就很容易在头脑里建立起一个预览图来了。 Option Explicit Dim mouse_Down As Boolean Dim mouse_X As Single Dim mouse_Y As Single Dim str_X As Integer Dim str_Y As Integer Dim out_PRINT As Boolean Dim moneyHANZI As String Dim print_BIANHAO As String Dim print_NAME As String Dim print_DANWEI &nbs......
VB调用水晶报表(2005-11-15 00:53:00)
摘要：简单地说，用VB调用水晶报表进行报表开发的简单接口方法就是，在水晶报表中用"仅字段定义"来获得字段分布文件，用虚拟的文件创建表字段，用CRAXDRT对象来强制改变数据源（ADO.recordset），其效果相当于在VB中调用了rpt文件。下面分步骤介绍编程方法。 第一步： 在VB工程中Project菜单加入"Add Crystal Report 9"，报表名使用默认即可。这时Form2（Crystal Rerport自动添加的Form，假设名为Form2）被自动分配了如下代码：
Option Explicit dim Report as New Cystal1 Private Sub Form_Load() Screen.MousePointer = vbHourglass ’调用水晶报表时置鼠标为沙漏状 CRViewer91.ReportSource = Report ’该语句的赋值将在后面被修改 CRViewer91.ViewReport Screen.MousePointer = vbDefault ’调用水晶报表完成后置鼠标为默认形状 End Sub Private Sub Form_Resize() CRViewer91.Top = 0 CRViewer91.Left = 0 CRViewer91.Height = ScaleHeight CRViewer91.Width = ScaleWidth End Sub [/CODE] 第二步： 点击Crystal Report设计器的"数据库字段"，选定"数据库专家…"，然后点"创建新连接"，再点"仅字段定义"，创建"数据库定义"文件，字段名和宽度和原数据库表保持一致。最后，在数据库字段中获得了相应字段，将其置于报表上，按水晶报表的要求配置。 第二步： 点击Crystal Report设计器的"数据库字段"，选定"数据库专家…"，然后点"创建新连接"，再点"仅字段定义"，创建"数据库定义"文件，字段名和宽度和原数据库表保持一致。最后，在数据库字段中获得了相应字段，将其置于报表上，按水晶报表的要求配置。 [CODE] Public conn As New ADODB.Connection Public rs As New ADODB.Recordset [/......
用VisualBasic做个IE保护器(2005-11-15 00:52:00)
摘要：目前，有不少个人主页都存在这样一个弊端：不经访问者的同意擅自将IE浏览器的主页修改成自己的站点网址，标题栏也被篡改成那些个人主页的名字，甚至一开始就弹出几个广告窗口，让人感到十分讨厌。 虽然已经有了不少恢复IE主页这类软件，但经常来回修改仍然使我们感到烦闷。本文用VB编写一个IE保护器，代码短小简单，并能自动修复主页和标题栏，更方便快捷。 新建一个工程，加入一个Timer控件，在代码窗口输入以下代码： Private Sub Form_Load() Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Call setIE("Microsoft Internet Explorer", "about:blank") ’其中"Microsoft Internet..."就是IE的标题，"about:blank"为空白主页，可自行修改，使得你的IE更有个性化。 End Sub Sub setIE(winTitle As String, StartPage As String) Set my = CreateObject("WScript.Shell") my.regWrite "HKCUSoftwareMicrosoftInternet ExplorerMainWindow Title", winTitle, "REG_SZ" my.regWrite "HKLMSoftwareMicrosoftInternet ExplorerMainWindow Title", winTitle, "REG_SZ" my.regWrite "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page", StartPage, "REG_SZ" my.regWrite "HKLMSoftwareMicrosoftInternet ExplorerMainStart Page", StartPage, "REG_SZ" End Sub 以上功能显得比较简易，你大可适当添加一些功能，如提供两个Text控件来设置主页和标题栏，这里不在详述，本程序在简体中文VB运行通过......
一个VB的数据库连接模块(2005-11-15 00:51:00)
摘要：Option Explicit Public Con As New ADODB.Connection ------------------------------------------------------------------------------ Public Sub Cnnect() If Con.State = 1 Then Con.Close End If Con.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI; _ Persist Security Info=False;Initial Catalog=jd" Con.Open End Sub ------------------------------------------------------------------------------- Public Sub record(ByVal sql As String, _ ByRef rs As ADODB.Recordset) If rs.State = 1 Then rs.Close End If rs.CursorLocation = adUseClient......
VB中的模块,类,ActiveX与API的使用(2005-11-15 00:43:00)
摘要：这几天搞了点c/s结构的程序设计, 由于ASP用得比较熟练,所以VB6.0自然成为我首选的开发工具. 在学习过程中,我结合自己的经验总结下VB中的一些高级应用,并且体会这种应用给我们所带来的好处.
一、模块 (Module)
在VB中,模块会优先执行,其实说白了,模块就象是全局的过程和函数调用.这是初步的提高代码可复用性的途径。我想有经验的ASP(VBSCRIPT,以后都只用VBScript来写Asp程序)程序员都用过<!--#Include file=""-->这条语句吧,这对提高代码的可复用性是比较方便的，在VB里模块就完成了这个功能.值得注意的是在模块中可以定义Sub Main() 过程，并且在启动里面可以让程序从Main()过程进入.这有点象c,c++中的main()函数. 不过模块的代码可重用级别还是停留在过程,函数调用上.
二、类模块
在VB中，可以建立类模块.类模块类似于ASP中的类.我想有经验的Asp程序员应该都有自己的类库吧.一般情况下我们怎么在ASP中引用自己的类库呢?对，还是include,只要把类文件包含进来就行了. 在调用的时候只要 Set xxx= new ClassName 就行了.这个和ASP中也是一样的.用类模块有什么好处呢? 因为使用类可以定义一些公用的方法和过程，可以将代码的可重用行达到一个更高的高度.
三、ActiveX技术
可能大家会想,无论是用模块还是类模块，可能很多功能都会在下一个项目用到.如果这个时候我们需要那些功能的话，可以直接把类模块和模块代码考到Vb项目中.在ASP中，我们只要把类代码做成文件,然后在其他应用include进来就行了.但有一个问题,那就是代码的封装行.因为不论是类模块还是模块,或者ASP中的写有类的.asp文件，代码可以被人看并加以修改.有没有办法能使代码不让人看到呢?答案是肯定的,这个就是ActiveX控件技术. ActiveX 的优点在于可以不同的语言编写ActiveX控件,只要符合约定的规范就行，然后可以被其他语言调用.而且代码是编译好了的.这个对于ASP来说,可以提高运行速度.好了,废话少说，下面看看给出一个实际使用的例子吧:
1.首先建立一个ActiveX dll工程,然后把名字写成TestDll.在类模块里的代码为:
Option E......
VB基础篇(2005-11-15 00:39:00)
摘要：
第二部分 VB基础篇
VB入门
Visual Basic 是 Microsoft Studio 6 的一部分，Visual Basic 有不同的版本，目前的常用版本是6.0。Microsoft 面向中国大陆推出全汉化版的中文 Visual Basic 是我们这个教程使用的基本编程工具，Visual Basic 6.0 本身也有不同的版本，从学习版（Learning edition）、专业版（Professional edition）到企业版（Enterprise edition）含概的功能逐渐增强。除特殊说明外，教程中的示例都将以中文 Visual Basic 6.0 企业版为平台进行分析与讲述。
Visual是“可视化”的意思，Basic是指传统的结构化程序设计语言。Visual Basic就是沿袭了Basic的一些语法，增加了面向对象的特性，增强了很多可视化编程的技术的一种基于对象的编程语言。Visual Basic源于Basic，但功能远远超出了传统Basic，是当今广为流行，容易学习，而且功能强大的软件开发工具。
Visual Basic的功能强大还体现在VBA（Visual Basic for Application）和VB Script上。VB Script是在网站编程上较为流行的一种脚本语言，VBA是微软Office套件的通用宏控制语言，其它的流行软件如AutoCAD也增加了对VBA的支持。Visual Basic6.0在本书中，简称为VB。
一、VB的安装
要使用VB，你首先需要使用安装程序进行安装。VB 对安装的计算机有以下要求：
VB对硬件的要求是：486或更高的处理器；如果全部安装至少需要80M硬空间；当然还要一个CDROM；Microsoft windows支持VGA或更高分辨率的显示器、鼠标或其它定点设备；至少16M内存。
对软件环境要求是： Microsoft Windws 95 及更高版本，或者是 Microsoft Windws NT SP3.51 或更高版本，安装VB前必须先行安装好 Internet Explorer4.01（IE4.01），除非你的机器上已经有了IE的更高版本。 如果你的计算机软硬件都符合要求就可启动 Windows ，运行VB 的安装程序setup.exe开始安装了。
对......