'*************************************************************************
**说 明：永远的魔灵 by icecept(郭卫）
'**创 建 人：icecept(魔灵)
'**日 期：2009-11-15 20:27:03
'**修 改 人：icecept(魔灵)
'**版 本：V1.0.0
'**E-mail ：icecept@163.com QQ：543375508
'**网 址：http://hi.baidu.com/icecept http://icecept.jimdo.com
'*************************************************************************
我的简历下载
10 API 搞定注册表终级完美版
恢复.txt的默认关联
资源文件制作方法及调用步骤
整点报时源码
设置磁盘背景图片
精灵动画语音技术
可以产生关联的完整的flash源码
让精灵说话的驱动和查看器，外加示例程序
鼠标取词朗读精灵完美版
在状态栏动态显示菜单提示最终版
用VB变相给微软的记事本加密
用API一次删除、移动、复制、改名含有文件及子目录的文件夹
批量生成资源文件工具
FSO文件系统对文件和文件夹的详细操作
数字拼图
三种方法实现记事本自动保存
调用htmlhelp帮助的API
Windws script host 精解示例
获取windwos中的所有可见目录
二种方法实现随机数一次取成
向记事 ......
Option Explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Button = 1 Then ' Checking for Left Button only
Dim ReturnVal As Long
x = ReleaseCapture()
ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End If
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbLeftButton Then
mX = X: mY = Y
End If
End Sub
Private Sub Form_Mous ......
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, Optional ByVal wFlags As Long = 0&) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Dim i As Boolean
Function SetWindowMoveAble(ByVal hWnd As Long, Optional ByVal MoveAble As Boolean = True) As Boolean
'function: SetWindowMoveAble
' params:
' hWnd: 一个顶级窗口句柄
' MoveAble: 是否可移动
' result: 与参数 Moveable 的设置一样,否则即为失败
Dim mhandle As Long
If MoveAble Then _
GetSystemMenu hWnd, 1&: _
DrawMenuBar hWnd _
Else _
mhandle = GetSystemMenu(hWnd, 0&): _
SetWindowMoveAble = DeleteMenu(mhandle, &HF010&)
End Function
Private Sub Command1_Click()
......
大家都知道共享软件都有它们的试用期，即给你一个固定的期限免费使用。
应有的功能：
1）给定一个试用期限，在系统每次启动时会判断软件已经使用了几天，还有几天可以及启动的次数。
2）当系统日期被修改成往日的日期后，系统能自动判别，禁止修改日期 ，不予正常启动。
3)当试用期到，显示信息，不予启动程序。
大致算法
1)在系统第一次运行时，在一个隐蔽的地方(如“c:windows\system")建立一个用以记录系统信息的数据库文件如 日期date.mdb,使用一张表date,有三个字段first_time，last_times,times。其中fitst_time,为系统第一次启动时和日期，即使用期的第一天。last_time为系统最近一次启动的时间，而times为记录系统启动的次数。
2)系统每次启动会检测当前的日期同last_time做比较。如果当前和日期(如2000/09/30)比last_time(如2000/10/01)还归，说明系统的日期被推后，显示信息，不予启动系统。反之，则转入第三步。
3)取出数据库中的first_time,同当前的日期做减法运算，看所用的天数是否在使用天数是否在使用期限内 ......
李海
本文发表在2000年4月17日 《计算机世界》25期
制作安装程序往往是程序设计的最后一步，同时也是重要的一步，因为运行安装程序往往是用户的第一个操作。下面就介绍一些制作
Visual Basic
安装程序时常遇到问题的解决方法。
1
、一个非常简单的
VB
程序是否可以不制作安装程序
问：假如我的
VB5
开发的程序很简单，只用到了
ShellExecute()
这个
API
，
以及
Command Button
，我能不能不做安装盘，在所有客户机器上（
WIN95/98/NT
）都能正常使用程序？如不制作安装程序，与
EXE
放一起的应该包括哪些文件？
答：对于一个非常简单的
VB5
程序，没有使用额外的
OCX
控件，在
Win98/2000
下是可以正常运行的，而不需要制作安装盘。因为
Win98/2000
带有
VB5
程序所需要的
DLL
文件。但在
Win95/NT 4.0
下一般是不行的，因为缺少必要的文件。如果用户的机器上安装有
IE 4.0/5.0
，那么应该也是可以不制作安装盘的。在一般情况下，不制作安装盘就不不能保证程序的正确运行。你制作的安装盘所包括的
DLL
中，除了
Vb5stkit.dll
只是安装时使用，安装后就不需要了，其他
DLL
都是不可缺少的。虽然对于某些机器而言，由于安� ......
参照案例教程建立的数据库管理系统在甚多方面都存在问题。可能是新手，不管是对于大一就学过的VB编程还是这个学期刚接触的SQL，很多小问题常常出现在调试过程中。想请熟悉使用这两个平台的高手帮忙指点一下。
1.如何解决DataGrid中多个column和SQL中多个表的绑定？目的是想运行时在DataGrid中显示多个表中合并的信息，或是在DataGrid中column显示的信息来自SQLD的多个表。
2.Treeview如何显示一二级目录？我已经在vb语句中写了“TreeView1.Nodes.Add ("院系信息")”，运行连第一级目录都无法显示，出现“未发现元素”错误提示。参考书和网上找了好多资料，可是都没有详细的解释和操作步骤。
……
上了半个学期的SQL就布置了这么个作业，心有余而力不足，基础不好，做起来费劲。 ......
参照案例教程建立的数据库管理系统在甚多方面都存在问题。可能是新手，不管是对于大一就学过的VB编程还是这个学期刚接触的SQL，很多小问题常常出现在调试过程中。想请熟悉使用这两个平台的高手帮忙指点一下。
1.如何解决DataGrid中多个column和SQL中多个表的绑定？目的是想运行时在DataGrid中显示多个表中合并的信息，或是在DataGrid中column显示的信息来自SQLD的多个表。
2.Treeview如何显示一二级目录？我已经在vb语句中写了“TreeView1.Nodes.Add ("院系信息")”，运行连第一级目录都无法显示，出现“未发现元素”错误提示。参考书和网上找了好多资料，可是都没有详细的解释和操作步骤。
……
上了半个学期的SQL就布置了这么个作业，心有余而力不足，基础不好，做起来费劲。 ......
最新文章 : vb