相关分类: Java技术 C/C++ VB delphi
  • 自动更新工作站的应用程序

    Private Sub Form_Load() On Error GoTo errorhandler ' Command 函数返回 ' 命令行的字符串信息 ' 该程序需要两个参数 ' 如:(thisprog.exe c:localdirprgcopied.exe ' k:servrdirprgtocopy.exe) If FileDateTime(Left(Command$,InStr(Command$, " ") - 1)) FileDat...

    2008-02-23 06:57:31

  • 用VB尝试新的界面风格

    随着微软Windows产品风格的不断演进,各应用软件厂商也在跟进,但经常是主流的开发工具跟不上节奏,这时往往就需要用一些辅助的工具来编制那精美的界面了。本文只是略谈一点这方面的感受,举两个小工具的例子。 用ActiveBar制作Office97风格的菜单与工具条 在微软的最新...

    2008-02-23 06:57:28

  • 利用VB实现浮动按钮

    在微软的很多软件(如WORD)的工具栏中,都采用一种浮动按纽,即正常情况下按纽的图标呈灰色,当鼠标移动到某一按纽时,该按纽自动向上凸起且变为彩色,并在按纽的右下方有一标签提示该按纽的功能,鼠标移开后又自动还原,这种按纽用VB实现时,方法如下: 1.先用绘图工...

    2008-02-23 06:57:29

  • 用VB进行移位操作

    VB没有提供移位操作的指令和函数,只提供and(与)、or(或)、xor(异或)、eqv(同或)、not(非)等几个运算符,而编程时有时需要对一个字节进行移位操作(如进行加密),怎么办?其实只用and、or二个运算符即可搞掂。例如要将变量byte1的第八位置1(假设byte1的二进制值为01001101),...

    2008-02-23 06:57:27

  • 一个简单例子(使用数据控件控制数据库)---VB数据库入

    用数据库可以建立访问数据库的应用程序,这样的程序可以显示、编辑和更新各类已有的数据库中的信 息,包括Microsoft Access、Btrieve、dBASE,Microsoft,FoxPro及Paradox等。同时,用数据控件可以像访问数据库一样访问Microsoft Excel、Lotusl—2—3和标准ASCⅡ文本文件...

    2008-02-23 06:57:26

  • Variant 子类型

    除简单数字或字符串以外,Variant 可以进一步区分数值信息的特定含义。例如使用数值信息表示日期或时间。此类数据在与其他日期或时间数据一起使用时,结果也总是表示为日期或时间。从 Boolean 值到浮点数,数值信息是多种多样的。Variant 包含的数值信息类型称为子类型...

    2008-02-23 06:57:26

  • 用Visual Basic 5.0设计E-mail程序(MAPI)

    前言 随着计算机网络的发展,人与人之间信息传输的时间大为缩短。许多文件都是以电子邮件的形式来传送;通常使用过计算机的人,或多或少都会用到E-Mail来传输信息。本文将介绍如何用Microsoft MAPI (Messaging Application ProgramInterface)来设计Mail程序。首先用Visu...

    2008-02-23 06:57:24

  • VB实现按钮浮动效果

    微软的Visual Basic确实是个好东西,编写应用程序快捷高效。但是入门容易,想玩转它可不简单。我个人学VB就深有体会:一个人在VB的殿堂里摸索是何等的辛苦啊!有时为了一个特技、一句代码甚至一个变量要反复调试运行几十遍,也未必能通过,真恨不得一枪崩了VB。所以,我...

    2008-02-23 06:57:24

  • 封面的设计

    一、封面的设计是这样的,先出现一窗体,上面为你喜欢的图案。然后出现一艘从左向右行驶着的船。屏幕上方从两侧分别移动出“欢迎”两个字。具体的制作方法是:把预先选好的背景图案装入封面窗体中,窗体命名为CAI。再分别在三个图像控件(image)中装入预先制作好的位图“...

    2008-02-23 06:57:22

  • 如何用VB在桌面建立快捷方式

    下面的代码向你演示在VB中如何创建一个快捷方式。 Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long Sub Com...

    2008-02-23 06:57:23

2