相关分类: Java技术 C/C++ VB delphi
  • 设置对VisualBasic数据库连接的动态路径

    我个人因为经常作一些数据库方面的程序,对于程序间如何与数据库进行接口的问题之烦是深有体会,因为VB在数据库链接的时候,一般是静态,即数据库存放的路径是固定的,如用VB的DATA,adodc,DataEnvironment等到作数据库链接时,如果存放数据库的路径被改变的话,就会找...

    2018-06-17 17:16:51

  • 快速开发多媒体Web

    一、概述 ----Web技术的诞生使得Internet在世界范围内迅速漫延,大大加速了全球网络化的进程,人们通过Web浏览器,可以浏览到世界各地成千上万个Web服务器提供的Web页面,获取各种信息。但是,如今的许多Web页面功能单一、缺乏交互能力,谈不上文本、图像、声音、视频...

    2018-06-17 17:16:49

  • VB如何将DBgrid印出来

    ->OptionExplicit PrivateSubCommand1_Click() DimIAsLong,JAsLong,KAsLong DimPrintStringAsString ForI=0ToData1.Recordset.RecordCount-1 IfK=DBGrid1.VisibleRowsThen DBGrid1.Scroll0,DBGrid1.VisibleRows K=0 EndIf ForJ=0ToDBGrid1.Columns.Count-1 PrintString...

    2018-06-17 17:16:47

  • 取得WAV文件信息

    WAV文件基本信息包括如是否立体声,采样频率等。 声明: PublicConstRIFF_ID=1179011410 PublicConstRIFF_WAVE=1163280727 PublicConstRIFF_FMT=544501094 'TypicalheaderofasimpleRIFFWAVEfile PublicTypeWAVInfo Riff_FormatAsLong chunk_sizeAsLong ChunkIDAsLongfm...

    2018-06-17 17:16:46

  • And、Or和Xor:让我们来优化表达式

    要检测一个整数值的最高有效位是否有数值,通常要使用如下的代码(有二种情况:第一组If判断表明对Integer类型,第二组对Long类型): IfintValueAndH8000Then 'mostsignificantbitisset EndIf IflngValueAndH80000000Then 'mostsignificantbitisset EndIf 但由于所有...

    2018-06-17 17:16:46

  • 在Windows98中使用VB5.0编程疑难一解

    ----随着Windows98正式版的推出,越来越多的人开始关注它。本人最近也在机器中安装了一套,的确发现许多新的东西,操作更加自如、方便,但是,最近在Windows98下使用VB5.0编程却遇到了一个大难题:原来在Windows95中编写的VB可执行程序却怎么也不能运行,总是提示:"该...

    2018-06-17 17:16:44

  • 用VisualBasic开发绿色软件的探讨

    我认为的绿色软件就是免安装,短小精干的软件,目前的大部分共享软件都属于此类(或向绿色软件靠拢)。 连比较大的phoshop软件也把一些注册项放到一个专门的注册文件(reg文件)里,到时重装的操作系统,只需把reg文件导入的注册表即可。此外比如金山软件,基本上都是...

    2018-06-17 17:16:41

  • 利用VisualBasic实现木马攻击

    首先,新建一工程,名为Server,新建一个窗体,Name为Server,在窗体中加入一个winsock控件,Name设为sckServer,协议设为默认的TCP/IP协议。 接下来我们回来Server窗体模块中,添加如下代码: ->PrivateSubform_Load() WithMe .sckServer.LocalPort=88917'本地端口(...

    2018-06-17 17:16:41

  • HierarchicalFlexGrid控件

    访问HierarchicalFlexGrid控件 要在VisualBasic中安装并访问HierarchicalFlexGrid控件,请使用以下步骤。 要安装和访问HierarchicalFlexGrid控件 1.在“工程”菜单中,选择“部件”。出现“部件”对话框。 2.在“控件”选项卡中,选择“MicrosoftHierarchicalFlexGridC...

    2018-06-17 17:16:40

  • 人民币金额转换例程

    '调用方法Text2=ChMoney(Val(Text1)) '名称:CCh '得到一位数字N1的汉字大写 '0返回"" PrivateFunctionCCh(N1)AsString SelectCaseN1 Case0 CCh="零" Case1 CCh="壹" Case2 CCh="贰" Case3 CCh="叁" Case4 CCh="肆" Case5 CCh="伍" Case6 CCh="陆" Case7 CCh="柒" Case...

    2018-06-17 17:16:39

首页 1 2 3 4 5 6 7 8 9 10 11 下一页 末页 2192187
2