阿赛·游梦鱼·郭言赛·阿赛工作室
全站技术源码素材
  • 发布:biancheng
    一读出文件的长度varf:fileofByte;size:Longint;beginAssignFile(f,f:\t.exe);Reset(f);size:=FileSize(f);edit1.text:=IntToStr(size);CloseFile(f);end;或:varfh:integer;fs:longint;beginfh:=fileopen(文件名,fmopenread);fs:
  • 发布:biancheng
    Windows操作平台设有一个屏幕的保护措施,即屏幕保护功能。经常在Windows操作平台上使用电脑的人们对系统提供给我们的几个屏幕保护程序是不是感到非常平常了,没有新鲜感了,是不是想自己设计屏幕保护程序。下面介绍如何利用VB设计用户自己的屏幕保护程序。屏幕保护程序可以保护显示屏不被损坏,同时节约能源。作为屏幕保护程序,应该具有如下特性:1)屏幕保护程序运行时,鼠标光标被自动隐藏,在程序结束时,光
  • 发布:biancheng
    PaintPicture是VB4新提供的图形图像处理方法,它的基本功能是图像块传输,在以前的VB版本中要产生块传输效果,需采用Win?dowsGDI中的块传输函数BitBltAPI调用。PaintPicture正是VB4中用来代替BitBltAPI调用的简单而方便的方法。它能快速地将两幅位图进行合并;能将位图的全部或某一部分快速剪切并粘贴到其它地方;并能将位图自动延伸或压缩以适应新的环境;能在屏幕
  • 发布:biancheng
    1、VB中实现动态移动控件窗体中的控件如按钮、文本框等一般在运行时位置是固定不变的,但为了能给用户更方便的功能,我们可以做到在运行时动态移动控件的位置,比如我们可以允许用户随便将按钮放到自己喜欢的位置,而并非界面中固定的位置。其实这个功能实现起来是很容易的,只需要使用API函数SendMessage传递控件移动的消息即可。下面是一个例子,当用户单击按钮后可以移动按钮的位置。在窗体的总体声明部分声明
  • 发布:biancheng
    我用VB5.0编一个软件,其中涉及到一些大型矩阵的计算.于是我试图用BC3.1编写这些函数,生成一个动态连接库(DLL).但是,由于函数的参数是指针,而VB中却没有指针.我看前面的文章中说VB中指针可以模拟,请问具体怎么做?另外,可以直接传递数组给DLL吗?事实上,VB存在着传指针的方法。(在调用DLL)程序中,声明DLL时,用ByRef代替ByVal就可以传指针给DLL另外,也可以直接传数组给D
  • 发布:biancheng
    概述:COM+和Windows2000Server为开发分布式应用软件提供了一个复杂的基础组织构造。这一篇文章解释并且帮您确定您所需要掌握的关键技术,这些技术将会用来为Windows2000Server建造大规模的信息系统。就这样,一个千年结束了,而另一个千年刚刚开始。这种变化会给您作为职业开发人员的生活带来多少的冲击呢?当然,当所有的闹钟都指向了零时,总会在这儿或哪儿产生一些暂时的波折。一些陈旧
  • 发布:biancheng
    在使用VFP的应用进行录入时,每进入一个录入框,就自动选择该框中的所有内容。利用以下的代码,也可实现类似的功能。PrivateSubMyTextBox_GotFocus()AutoSelectMyTextBoxEndSubSubAutoSelect(SelObjectAsControl)SelObject.SelStart=0IfTypeOfSelObjectIsMaskEdBoxThenSelO
  • 发布:biancheng
    :一年没碰Pascal了,写起来还有点吃力,希望对99级的同学有点帮助.:程序已编译通过;附2000年年历;:不足之处请大家批评指出.:只限参考,不可抄袭.:Programwnl(input,output);:label:again;:var:a:char;:i:integer;:ran,year,all_days,all_years:integer;:days_month,first_month
  • 发布:biancheng
    下面的代码向你演示在VB中如何创建一个快捷方式。PrivateDeclareFunctionfCreateShellLinkLibSTKIT432.DLL(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString,ByVallpstrLinkPathAsString,ByVallpstrLinkArgsAsString)AsLongSubCom
  • 发布:biancheng
    在VISUALBASIC中没有什么命令或函数能够实现将一个位图旋转一个角度后显示出来,但我们可以用画点的方式,将一个图画盒中的位图中的像素点旋转一个角度后画入另一个图画盒中,当源图画盒中的像素都被画到目标图画盒中时,也就完成了位图的旋转。这里主要用到了VISUALBASIC中的两个方法:POINT方法和PSET方法。POINT方法的作用是从源图画盒中提取一个像素点的颜色值;而PSET方法的作用是按
  • 发布:biancheng
    VB无法在日期/时间字段中存放和测量累计时间,日期/时间存放成特定的时间点而不是一个时间跨度,并且无法在一个日期/时间变量中存放超过24小时的值。如输入9:30,输入的不是某台设备工作的时间长度,而是一个特定时间,即是早晨9:30。在日期/时间字段中输入26:30,VB会显示出错信息,认为这不是一个合法的输入。VB不是不能进行日期/时间字段的累加计算,它在内部以浮点值的形式存放,能够进行累加计算,
  • 发布:biancheng
    VB数据访问接口功能及含义ADC高级数据连接器(AdvancedDataConnector):提供绑定ADO数据源到窗体的数据绑定控件上。ADC主要是一种直接访问或者通过ADO访问远程OLEDB对象的一种技术,它也支持主要应用在微软IE浏览器上的数据绑定控件。它是特地为Web上的浏览器为基础的应用程序而设计的。ADOActive数据对象(ActiveDataObjects):ADO实际是一种提供访
  • 发布:biancheng
    利用WIN95中的注册表建植,在注册表的HKEY-LOCAL-MACHINE\System\CurrentControlSet\Services\RemoteAcces\下,当计算机连上因特网时,RemoteConnection的植为01000000,反之,为00000000,通过这一建植可判断是否连网。1.建立新模块publicconstERROR-SUCCESS=0&publiccon
  • 发布:biancheng
    当前,有许多构造模块可以帮助用户创建名为超客户端(richclient)的Internet应用其中包括VisualBasic(以下简称VB)的ActiveX控件集合。它们可以提供SMTP和POP邮件服务、FTP、Newsgroup和Web访问等功能。另外,利用OLE也可以实现Web访问的自动化。本文向大家介绍这两种方法。在应用中嵌入ActiveX控件利用Crescent的InternetToolp
  • 发布:biancheng
    在VB的某些控件如文本框(TEXTBOX)、组合框(COMBOBOX)等上单击鼠标右键都会有缺省的弹出菜单,这些缺省弹出菜单,在某些情况下我们并不需要或者根据实际情况需要使用自己的弹出菜单,那么如何抑制控件的弹出菜单呢?我们需要检测控件的鼠标右键单击消息,然后什么事也不做或者使用自己的弹出菜单,这需要编写一个钩子函数来完成。下面以抑制文本框的弹出菜单为例说明实现方法。为窗体添加一个模块,在模块中编
  • 发布:biancheng
    这个例子演示了如何强制重画窗口某一区域.有时这是很需要的,例如当你使用LockWindowUpdateAPI函数来加快某一控件的数据加载速度时.新建一个工程,添加一个模块,代码如下:PrivateTypeRECT LeftAsLong TopAsLong RightAsLong BottomAsLongEndTypePrivateTypePOINTAPI XAsLong YAsLongEndTyp
  • 发布:biancheng
    如何在视窗关闭时,询问使用者是否确定关闭,若否,则取消关闭动作,若是则结束程式!这是一个很重要的问题,想想,如果还有编辑中的档案尚未存档,但一时忘了按下「关机」钮,那么编辑中的档案难道就不存档了吗?为了避免这种事情的发生,Windows在关机以前会徵询每一个视窗是否同意关机,而对VB程式而言,所收到「徵询同意关机」的事件是Form_QueryUnload,如果程式不同意关机,可以将参数中的Canc
  • 发布:biancheng
    此函数从字符串中分离出路径FunctionParsePath(sPathInAsString)AsString DimIAsInteger ForI=Len(sPathIn)To1Step-1 IfInStr(:\,Mid$(sPathIn,I,1))ThenExitFor Next ParsePath=Left$(sPathIn,I)EndFunction此函数从字符串中分离出文件名Functi
  • 发布:biancheng
    MouseDown、MouseUp、MouseMove。VB似乎提供了很好的Mouse事件。但好象还缺少什么!对!还差MouseExit(鼠标移出)事件。在VB中,我们要捕捉MouseExit事件,必须用API函数:PrivateDeclareFunctionSetCaptureLibuser32(ByValhWndAsLong)AsLongPrivateDeclareFunctionReleas
  • 发布:biancheng
    程式设计之路对于软体开发,笔者最近听到两种极端的声音,其一是程式设计人员没前途,另一种声音则是软体是有梦的工业,不禁让笔者想好好地谈一谈软体这一行。程式设计人员没前途?有一次收到一位读者来函,内容是:「最近在网路上看到了一些文章说:他妹妹花八万大洋到资策会学程式设计,结果她们老师告诉她们在台湾当程式设计师是一件吃力不讨好的工作,钱少、事多、没地位,还不如去干网路工程师…写出不算好的程
  • 123456789››12Pagesize= Page=
    知识分类
    推荐知识
    近期热门知识

    MapSiteMapRssGoTop