现在许多程序的窗体都有自动隐藏/显示的功能(比如OICQ)。 实现这样的功能其实很简单,原理是:判断鼠标是否移到了屏幕的最左边或最右边,如果移到了则显示窗体,如果鼠标移开了窗体则隐藏窗体。在本程序中,我们将用到GetCursorPo
上网的朋友一定都用过网络蚂蚁(Net Ants)的吧?不知你在使用过程中有没有注意过,那就是如果你想调动两个“蚂蚁”为您效力是不可能的——它总会把新运行的关闭。这点在VB中很容易实现: Private Sub Form_Load() If App.Pre
Spring在TransactionDefinition接口中规定了7种类型的事务传播行为,它们规定了事务方法和事务方法发生嵌套调用时事务如何进行传播: PROPAGATION_REQUIRED 如果当前没有事务,就新建一个事务,如果已经存在一个事务中,
[名称] 添加系统热键 [语言种类] Visual Basic [类别一] 系统操控 [类别二] VBAPI [类别三] 底层开发 [数据来源] shawls [保存时间] 2002-08-19 [关键字一] 热键 [关键字二] 系统 [关键字三] 钩子
获取序列号是要读取软硬光盘的信息,可通过以下函数获得: Public Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As St
visual basic有着强大的数据库存取能力,不仅能够直接支持ms access数据库,而且通过其内部安装的isam驱动程序使它能间接支持foxpro、dbase等外来数据库。本文不仅从vb数据库体系结构的角度探讨了vb对这些外来数据库的支持,还结合了
用VB实现关闭所有数据库对象。如果你在程序中使用了任何数据库对象(DAO, RDO, 或者 ADO), 在退出程序之前,你必须确认已经关闭掉了所有已经打开的记录、数据库和数据工作台(recordsets, databases, and workspaces)。虽然退出程
应用举例 以上介绍了用dao访问远程数据库的具体操作,下面通过一个例子说明链接远程表和建立记录集对象的方法。 首先建立一个新工程,在窗体上画5个命令按钮,1个数据控件和1个数据网格控件(dbgrid)。各对象的属性设置见表
数据处理 数据连接建立后,可以用openrecordset方法打开一个记录集,并可用dbgrid控件和data控件方便地浏览整个记录集。如果使用表类型(table-type)记录对象,则对应的是一个实际存在的数据库表,在多用户环境下,其它用户
VB本身不允许你将一个Form、UserControl或PictureBox上的完整图片复制到剪贴板。如果你使用Clipboard.SetData,将只复制被载入这个对象的位图。通过使用API方法,你可以超越这个限制,保证全部内容都被复制,包括你刚刚画上的任何图
在MSFLEXGRID控件中每一个CELL格的内容是不可以由用户直接编辑的但是我们可以通过一些小技巧来方便的实现这编辑功能来扩展MSFLEXGRID的应用(在实际应用中这是很常用的功能)。 你只需按下面的做即可轻松实现编辑MSFLEXGRID
在form中放一个textBox两个label Const EM_GETSEL = &HB0 Const EM_LINEFROMCHAR = &HC9 Const EM_LINEINDEX = &HBB Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (B
算法实现(转自绿色兵团) 1. 处理密钥: 1.1 从用户处获得64位密钥.(每第8位为校验位,为使密钥有正确的奇偶校验,每个密钥要有奇 数个”1”位.(本文如未特指,均指二进制位) 1.2 具体过程: 1.2.1 对密钥实施变换,使得变换以
Public Sub main() Dim key As String For i = 1 To 16 Randomize key = key & Chr(Rnd * 255) Next i MsgBox RC4(RC4("Welcome To Plindge Studio!", key), key) End Sub Public Function RC4(inp
Option Explicit Dim w1 As String, w2 As String, w3 As String, w4 As String Function MD5F(ByVal tempstr As String, ByVal w As String, ByVal X As S tring, ByVal y As String, ByVal z As String, ByVal Xin As Strin
Public key(1 To 3) As Long Private Const base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrst uvwxyz0123456789+/" Public Sub GenKey() Dim d As Long, phi As Long, e As Long Dim m As Long, x As Long, q
Function UserCode(password As String) As String ’用户口令加密 Dim il_bit, il_x, il_y, il_z, il_len, i As Long Dim is_out As String il_len = Len(password) il_x = 0 il_y = 0
概述 由于某种原因, 近日编写了一个使用编译原理实现的表达式计算器。 使用该程序可以不但可以计算普通的数字和字符串表达式, 而且支持一些VB 的常用函数及极好的可扩展性。 例如: 录入字符串: len("1234") + 10/2 结果: 9 录
概述 本篇是讲如何实现一些更强大的功能,可自己定义的宏及增加数据类型检查功能和错误处理。 根据我们的语法定义, 替换宏是包含在字符 ` (左上与~一起)中的数字, 比如一个合法的宏写法是 `12` , 我们可能让该宏代表一个数组
模块代码( m_Base64.bas): Option Explicit ’’除以2的一次方是右移一位 ’’乘以2的一次方是左移一位 ’’(btyInText(i) And &HFC) (2 ^ 2) ’’第一个字节的内容And运算0xFC(11111100)(取左边6位),再除以2的二次