- 博客(25)
- 资源 (15)
- 收藏
- 关注
转载 Visual Basic 6.0.with.SP6 龙卷风大企业集成安装版(含下载地址)
Visual Basic 6.0.with.SP6 龙卷风大企业集成安装版(含下载地址)
2007-01-31 09:28:00 7207
转载 在顶层表单实现动态显示窗口列表
在顶层表单实现动态显示窗口列表 我从一开始编程,就彻底抛弃了_screen,而改用顶层表单。我个人感觉顶层表单做出的系统显示专业些,也许是因为我对_screen了解不够深入吧。选用顶层表单作为系统主表单,就意味着很多东西必须自己去实现。例如如何实现动态显示窗口列表,以为是我的个人经验,希望能抛砖引玉!*************************基于base.vcx中的_fo
2007-01-30 12:10:00 993
原创 Internet技巧两则
Internet技巧两则pzhan.eb.cn一、判断某一个连接是否保存在Cache中 在使用Microsoft IE在网上冲浪时,IE会把你浏览过的网页保存在Cache中以便你可以脱机浏览。下面这个程序可以判断一个URL是否在浏览器的Cache中。 首先建立一个新的VB工程文件,在Form1中加入一个CommandButton控件和一个TextBox控件,
2007-01-29 14:36:00 900
转载 一个操作Ini文件的类
【VB源码推荐:一个操作Ini文件的类】--------cIniFile.cls 代码----------------这里定义了一个cIniFile类Option Explicit// Private member that holds a reference to// the path of our ini filePrivate strInI As String// Win A
2007-01-29 14:30:00 765
转载 用VB实现任务栏右下角的小图标
将VB应用程序缩成系统状态栏图标二法 第一种方法:VB光盘的tools/unsupport/systray目录下有一个例子,将此目录复制到硬盘,编译生成一个OCX控件,在自己的程序中使用此控件,可以实现将程序图标放于右下角系统图标区,这方法比调用API要简单得多第二种方法:梁洁仪 ---- 在很多应用程序中,其操作窗口缩小后将变成一图标放置在系统状态栏中。 ---- 为什么有的程序可以缩小成图标呢
2007-01-29 14:26:00 4069
原创 动态生成多个相同的控件
动态生成多个相同的控件,实际上是这么做的窗体上放一个COMMAND按钮,假定命名为cmd,将index设置成0,visible=False控制的核心的代码是: Private Sub Form_Load()For i = 1 To 5 这里是要生成控件的数量Load cmd(i) 动态生成cmd(i).Caption = "botton " & i 生成控件的Capt
2007-01-29 14:16:00 781
转载 让一个App永远保持在最上层
请在声明区中加入以下声明 Private Declare Function SetWindowPos()Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVa
2007-01-29 12:20:00 2659
原创 避免VisualBasic程序重复执行
如何避免程式重复执行?(侦测是否存在前一副本,若有,则结束目前新启动的程式)。使用者在启动程式后,有时会将程式缩小在工作列上,之后要用时,又会重新启动一次程式,资料库程式有时会因此造成资料错乱!若您不希望使用者重复启动程式,您可以使用 APP 物件来判断,方法如下: Private Sub Form_Load()Sub Form_Load() If App.PrevInstance Th
2007-01-29 12:18:00 636
转载 用VB6.0编写自我升级的程序
以下是我的具体思路: 写两个程序,一个是主程序;一个是升级程序(升级程序放在服务器上); 说明:所有升级任务都由升级程序完成。 1.启动升级程序,升级程序连接到网站,下载新的主程序(当然还包括支持的库文件等)到临时文件夹; 2.升级程序检测旧的主程序是否活动,若活动则关闭旧的主程序(同时记下主程序的状态); 3.删除旧的主程序,拷贝临时文件夹中的文
2007-01-29 12:14:00 1287
转载 利用VisualBasic操作XML数据
什么是XML 扩展标记语言XML是一种简单的数据存储语言,使用一系列简单的标记描述数据,而这些标记可以用方便的方式建立,虽然XML占用的空间比二进制数据要占用更多的空间,但XML极其简单易于掌握和使用。 XML与Access,Oracle和SQL Server等数据库不同,数据库提供了更强有力的数据存储和分析能力,例如:数据索引、排序、查找、相关一致性等,XML仅仅是展示数据。事实上X
2007-01-29 12:06:00 752
原创 VisualBasic实现在程序中开启网页
在声明区中声明如下 (在 .bas 档中用 Public, 在 Form 中用 Private) Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String,
2007-01-29 12:03:00 1127
原创 VB6.0初学者的10个编程小技巧
1、如果一行程序太长,能不能换行? VB的程序代码是允许换行书写的,只要在每次换行的最后一个字符加上换行字符“_”就可以了。例如: Sub PicMove() Frm.Picture2.Left = Frm.Picture1.Left + _ ’加上换行符 Frm.Picture1.Width End Sub 2、 如何在设计的时候清空存在的图片?
2007-01-29 11:58:00 912
转载 用VB改变屏幕的分辨率和刷新频率
Option ExplicitPublic Declare Function ChangeDisplaySettings()Function ChangeDisplaySettings Lib "user32.dll" Alias "ChangeDisplaySettingsA" (ByRef lpDevMode As DEVMODE, ByVal dwFlags As Long) As Lo
2007-01-29 11:53:00 1118
转载 ShellExecute 的应用技巧
以默认程序打开文档 要以与文件后缀名关联的程序打开文档,在Windows 9X和Windows NT下可以用ShellExcute函数方便地实现。这则小技巧展示了会有多方便―你只需要一个声明和一行代码! 开始一个新项目。在Form上放一个Command button,然后加入以下代码: Private Declare Function ShellExecute()Functio
2007-01-29 11:40:00 1038
转载 使窗口总在最前
曾看到一个问题:如何使我的窗口总在最前?使用api函数 SetWindowPos 可以很容易的作到。顾名思义, SetWindowPos 就是完成设置窗口位置和状态(pos=position)的功能。源代码如下:Option ExplicitPrivate Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal h
2007-01-29 11:36:00 3683
转载 用VB实现程序的隐形
在一些系统,为了特定目的,经常要求程序隐藏起来运行,例如DCS(集散控制系统)中的后台监控系统、木马控制程序、源码防拷贝等,以减少被发现、截杀和反汇编的风险。这种功能模块要求程序在运行期间不仅不会在桌面出现,也不允许被操作者从任务管理器列表中发现。 程序隐形的原理 对于一个隐形程序而言,最基本的要求是: 1. 不在桌面出现界面; 2. 不在任务栏出现图标; 3. 程序名从任务管理器名单中消
2007-01-29 11:33:00 811
转载 vb实现多线程
昨晚2:30的时候还没睡着,觉得有必要把vb编写多线程程序再次写一次;主要是以前忽略的细节和重要的环节;今天在公司打开一年多没用的vb,写了如下的代码;想写多线程的朋友可以调试一下看看,关于多线程的任务模式,同步和互斥,临界资源和临界区(文中提到)欢迎跟帖讨论; 请将该部分数据保存为 FORM1.frm 文件 VERSION 5.00 Begin VB.Form Form1 Capt
2007-01-29 11:27:00 4807
原创 VB中进制转换
用途:将十进制转化为二进制 输入:Dec(十进制数) 输入数据类型:Long 输出:DEC_to_BIN(二进制数) 输出数据类型:String 输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1)Public Function DEC_to_BIN(Dec As Long) As String DEC_
2007-01-29 11:23:00 1442
原创 用VB编写一个弹出菜单类
类的名称为cPopupMenuOption ExplicitPrivate Type POINT x As Long y As LongEnd TypePrivate Const MF_ENABLED = &H0&Private Const MF_SEPARATOR = &H800&Private Const MF_STRING = &H0&Private Const TPM
2007-01-29 11:21:00 1330 2
原创 如何用VB建立快捷方式
下面的代码向你演示在VB中如何创建一个快捷方式。Private Declare Function fCreateShellLink()Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath
2007-01-28 12:56:00 1011
原创 例子代码:添加项目到收藏夹
代码 Module1.bas Option Explicit Public Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPat
2007-01-28 12:53:00 821
原创 delphi实现自制IE浏览器
个人认为 做 IE 外壳 用 VB 比较好....delphi 的代码如下: 请根据 需要 向窗体内 添加相应的 组件... unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ImgLis
2007-01-28 12:00:00 4730 4
原创 自制IE浏览器
个人认为对于新手 用VB 做 myie 比较简单易上手些...下面我就说下具体的做法:一 加载VB 二 添加 microsoft internet controls 部件 和 mircrosoft common dialog control 6.0 部件 再添一 microsoft windows common controls 6.0 部件....三 在窗体内添
2007-01-28 11:06:00 8300 1
转载 Delphi的TWebBrowser编程综述
Delphi的TWebBrowser编程综述 Delphi3开始有了TWebBrowser构件,不过那时是以ActiveX控件的形式出现的,而且需要自己引入,在其后的4.0和5.0中,它就在封装好shdocvw.dll之后作为Internet构件组之一出现在构件面板上了。常常听到有人骂Delphi的帮助做得极差,这次的TWebBrowser又是Microsoft的东东,自然不会好到哪里去,虽
2007-01-27 00:08:00 1276
转载 DELPHI学习笔记1
DELPHI学习笔记1listbox从文件中读取列表的操作ListBox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+aaa.txt);ListBox1.Items.Add(Edit1.Text);//添加了一个项目ListBox1.Items.SaveToFile(ExtractFilePath(Application
2007-01-26 22:39:00 8111
Tiny Core Linux
2023-02-03
protel 99se 鼠标增强工具3.0
2016-12-28
小木偶組合語言教學CHM版
2008-07-27
小木偶的Win32的組合語言
2008-07-27
提取EXE DLL文件中的图标工具
2007-10-09
EVEREST Home Edition v2.20 Build 475 Beta-PCPOP.rar
2007-09-05
日梭万年历
2007-09-05
File Splitter.exe
2007-09-05
CPU-Z 1.40.5 汉化版
2007-09-05
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人