摘要：Public Const VK_LBUTTON = &H1Public Const VK_RBUTTON = &H2Public Const VK_CANCEL = &H3Public Const VK_MBUTTON = &H4Public Const VK_BACK = &H8Public Const VK_TAB = &H9Public Const VK_CLEAR = &HCPublic Const VK_RETURN = &HDPublic Const VK_SHIFT = &H10Public Const VK 阅读全文

摘要：Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong A 阅读全文

摘要：Private Sub Form_Load() Set conn = New ADODB.Connection conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库路径;Jet OLEDB:Database Password=数据库密码;" Set rs = New ADODB.Recordset rs.Open "select top 100 * from 表名 ", conn, 0, 1 '只读模式 Do Until rs.EOF '判断是否到游标最下边 list1.A 阅读全文

摘要：Dim Nx, Ny As LongPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Nx = XNy = YEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Me.Move Me.Left + X - Nx, Me.Top + Y - NyEnd Sub 阅读全文

摘要：功能：按下HOME键弹出记事本，按下END弹出计算器。以下内容放在模块里面Option Explicit'================================================================='作者：EnCaL'时间：2011.10.10'用途：该模块用于注册热键（END,HOME）'www.encalyk.com'=================================================================Declare Function RegisterHotKe 阅读全文

摘要：网络的重要性不用我说，所以关于网络的编程对我我们来说也是非常重要，非常实用的！但是我在网络上却没有看到多少关于VB网络编程方面的知识，一方面是VB用的人比较少，不会用就说VB不好（个人认为学好VB以后C++、Java一看就会！）；另一方面是大家不愿意公开这方面的知识，自己辛辛苦苦探索的，还得靠它吃饭，怎么可能轻易拿出来公布？但是社会要发展，人类要进步，为了让更多的人受益，为了让体现自己价值，我愿意分享自己对于网络编程的经验。我也是刚开始学，所以这篇文章难免有错误之处，而且认识也相对比较浅显，只是作为入门级的文章吧！用VB操作网页，主要有两种方法：一是模拟操作，即自动控制。二是POST，也就是发 阅读全文

摘要：1.建立数据表CREATE TABLE 数据表名 (字段名1 数据类型(长度), 字段名2 数据类型(长度),……)举例：create table student(xh text(9), xm text(8) , cj single(4), nl integer(2))建立含有xh、xm、cj、nl 4个字段的student表2.添加字段ALTER TABLE 数据表名 ADD COLUMN 字段名 数据类型(长度)举例：alter table student add column xb text(2) '在学生表中添加性别字段3.删除字段ALTER TABLE 数据表名 DROP C 阅读全文