博文
KeyCode常数用法 (2005-09-25 08:14:00)
摘要：
KeyCode常数用法
日期：2005年1月13日 作者：-=不详=- 人气：
270 人
可在代码中的任何地方用下列常数代替实际值：
常数 值 描述
vbKeyLButton 0x1 鼠标左键
vbKeyRButton 0x2 鼠标右键
vbKeyCancel 0x3 CANCEL 键
vbKeyMButton 0x4 鼠标中键
vbKeyBack 0x8 BACKSPACE 键
vbKeyTab 0x9 TAB 键
vbKeyClear 0xC CLEAR 键
vbKeyReturn 0xD ENTER 键
vbKeyShift 0x10 SHIFT 键
vbKeyControl 0x11 CTRL 键
vbKeyMenu 0x12 MENU 键
vbKeyPause 0x13 PAUSE 键
vbKeyCapital 0x14 CAPS LOCK 键
vbKeyEscape 0x1B ESC 键
vbKeySpace 0x20 SPACEBAR 键
vbKeyPageUp 0x21 PAGE UP 键
vbKeyPageDown 0x22 PAGE DOWN 键
vbKeyEnd 0x23 END 键
vbKeyHome 0x24 HOME 键
vbKeyLeft 0x25 LEFT ARROW 键
vbKeyUp 0x26 UP ARROW 键
vbKeyRight 0x27 RIGHT ARROW 键
vbKeyDown 0x28 DOWN ARROW 键
vbKeySelect 0x29 SELECT 键
vbKeyPrint 0x2A PRINT SCREEN 键
vbKeyExecute 0x2B EXECUTE 键
vbKeySnapshot 0x2C SNAPSHOT 键
vbKeyInsert 0x2D INSERT 键
vbKeyDelete 0x2E DELETE 键
vbKeyHelp 0x2F HELP 键
vbKeyNumlock 0x90 NUM LOCK 键
A 至 Z 键......
用VB编写键盘拦截程序 (2005-09-25 08:13:00)
摘要：
用VB编写键盘拦截程序
日期：2005年1月13日 作者：-=不详=- 人气：
1138 人
我们知道，在一些程序中，有一些快捷方式(如：Shift键最小化、ESC键退出、Ctrl＋S存盘、Alt＋x退出等等)。以前有一些介绍使用Win32 API可以做到，但过于繁琐，其实VB本身已经给我们提供了这个功能。
我们来新建一个窗体Form1，对于键盘操作可以看到有三个事件KeyPress()，KeyDown和KeyUp，下面我对它们分别介绍：
KeyPress()事件是当用户按下和松开一个 ANSI 键时发生(ANSI是可见ASCII字符1－127)。
语法
Private Sub object_KeyPress([index As Integer,]keyascii As Integer)
KeyPress 事件语法包含下列部分：
部分 描述
object 一个对象表达式，其值是“应用于”列表中的一个对象。
index 一个整数，它用来唯一标识一个在控件数组中的控件（仅有控件数组时才有）。
keyascii 是返回一个标准数字 ANSI 键代码的整数。Keyascii 通过引用传递，对它进行改变可给对象
发送一个不同的字符。将 keyascii 改变为 0 时可取消击键，这样一来对象便接收不到字符。
说明
具有焦点的对象接收该事件。一个窗体仅在KeyPreview 属性被设置为 True 时才能接收该事件。一个 KeyPress 事件可以引用任何可打印的键盘字符，一个来自标准字母表的字符或少数几个特殊字符之一的字符与 CTRL 键的组合，以及 ENTER 或BACKSPACE键。KeyPress()事件过程在截取 TextBox 或 ComboBox 控件所输入的击键时是非常有用的。它可立即测试击键的有效性或在字符输入时对其进行格式处理。改变 keyascii 参数的值会改变所显示的字符。
可使用下列表达式将 keyascii 参数转变为一个字符：
Chr(KeyAscii)
然后执行字符串操作，并将该字符反译成一个控件可通过该表达式解释的 ANSI 数......
VB实现图像在数据库的存储与显示(2005-09-25 08:09:00)
摘要：VB实现图像在数据库的存储与显示
作者：李树海 陆体虎 更新时间： 2005-05-03
摘 要 本文以VB6与Access97作为开发工具，介绍了图像在数据库中的存储与显示技术。
关键词 数据库，数据控件，二进制，图像存储，图像显示，ADODB，Recordset
数据库是数据管理的最新技术，是计算机科学的重要分支，是现代计算机信息系统和计算机应用的基础和核心。在科学技术高速发展......
树视TreeView树视的使用技巧(2005-09-25 08:08:00)
摘要：树视TreeView树视的使用技巧
作者：unknown 更新时间： 2005-05-02
1、为树状浏览器控件添加节点和子节点
用ADD方法添加一个新节点到树状浏览器的NODES集合时，可以声明它是和已存在的节点所联系起来的。通常使用ADD方法，其语法如下：
Nodes.Add(relative,[relationship][,key][,text][,image][,selectedimage])
......
利用Vb保存一幅图像到Access数据库(2005-09-25 08:08:00)
摘要：利用Vb保存一幅图像到Access数据库
在我们做的许多管理系统中，除了保存大量的文字信息以外，有时候也需要保存一定数量的图片。例如：一个人事管理系统，就需要对每个人的照片进行保存，以便可以方便的对每个人的信息进行处理。
Office中的Access数据库除了保存文本，还可以保存图片，保存图片的数据类型就是"OLE对象"：它用来保存 Excel 电子表格、 Word 文档、图形、声音或其他二进制数据。
我现在用一个例子介绍利用vb保存图片的方法，首先我们要介绍vb中处理二进制数据的语句：Put、Get。
Put、Get语句语法如下：
Put [#] filenumber,[recnumber],varname
Get [#] filenumber,[recnumber],varname
Filenumber :必需的。任何有效的文件号
Recnumber :可选的。Variant(Long)。记录号（Random方式的文件）或字节数（Binary方式的文件），指明在此处开始写入
Varname :必需的。包含要写入磁盘的数据的变量名
说明：文件中的第一个记录或字节位于位置1，第二个记录或字节位于位置2，依次类推。若省略recnumber,则将上一个Get或Put语句之后的下一个记录或字节写入。所有用于分界的逗号都必须罗列出来。
现在我们来开始建一个工程，功能是保存一个文档，同时可以保存一幅图片。
首先我们建一个表（表名为photo），字段如下：
字段名
类型
标题
class
类别
文档的分类
photo
OLE对象
保存图片文件
photo_ext
文本
图片的扩展名
inputtime
日期/时间
文档输入的时间
modifytime
日期/时间
文档的修改时间
subject
文本
文本
现在我们就可以创建finput窗口文件来保存图片。
首先我们要连接我们的数据库，代码如下：
Dim cnstr As String
cnstr = "......
Visual Basic开发要点三则(2005-09-25 08:06:00)
摘要：Visual Basic开发要点三则
http://tech.sina.com.cn 2001/01/20 16:25 天极网 张华成
一、 用控件拖放表单
怎样用控件拖放表单呢？很简单，将这段代码插入到Declare部分。
Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,
lParam As Any) As Long
再在控制的Mousedown事件中插入：
Sub Command1_MouseDown (Button As Integer, Shift As Integer, X
As Single, Y As Single)
Dim Ret&
ReleaseCapture
Ret& = SendMessage(Me.hWnd, &H112, &HF012, 0)
End Sub
二、 把表单放在屏幕的正中央
在开发VB程序时，一般希望将表单放在屏幕可利用区域的正中央，实现上可以利用Move(Screen.Width - Width)\2,(Screen.Height - Height)\2的方法来实现。但是当用户使用Windows 95或 NT 操作系统时，在 屏幕底端会有一任务条，上述的实现方法并未考虑该任务条所占的空间，表单实际并未处于屏幕可利用区域的正中央。下面的代码段实现了在每次启动应用程序时，无论屏幕是否有任务条，表单都会屏幕可利用区域的正中央。在工程中增添一模块，在模块中加上如下的代码：
Option Explicit
Private Const SPI_GETWORKAREA = 48
Private Declare Function SystemParametersInfo& Lib "User32"
Alias
"SystemPa......
打开的一篇word文档，保存到数据库的某个字段中(2005-09-25 08:06:00)
摘要：打开的一篇word文档，保存到数据库的某个字段中
编号：QA004640
建立日期: 2002年11月25日 最后修改日期：2002年11月25日
所属类别：
Visual Basic - Office开发
Visual Basic - 数据库
于丽霞:
操作系统：Win
编程工具：VB
问题：我想把打开的一篇word文档，保存到数据库的某个字段中，刚开始用了宏的办法。先写一下宏，代码如下：
Sub Mac()
Dim PageNo As String
Dim WORDstr As String
Dim i As Integer
'WORD 97 文 档 视 图 设 定 为 页 面 方 式
ActiveWindow.View.Type = wdPageView
ActiveDocument.Repaginate
'获 得 文 档 页 数 并 赋 值 给 变 量 PageNo
PageNo = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
For i = 1 To PageNo
' 光 标 移 动 到 文 档 某一 页 的 开 始
Selection.GoTo What......
县级气象信息综合业务平台的设计与实现(2005-09-25 08:05:00)
摘要：县级气象信息综合业务平台的设计与实现
杨松林 ， 邓世忠＊
(抚州市气象局，江西 抚州 344000)
摘 要：介绍了县级气象信息综合业务平台的设计与实现过程，并阐述了该信息平台各个功能模块的作用，从而为县级气象业务人员提供参考。
关键词：气象信息 业务平台 设计
中图分类号：P409 文献标识码：B 文章编号：1007－9033(2001)01－0037－03
为了进一步发挥气象业务现代化建设的效益，我们根据业务技术体制改革的要求，结合县局的实际业务工作，开发研制了县级气象信息综合业务系统。
1 系统的主要特点
(1) 系统采用Visual Basic 6.0编程，在中文Win9x上运行，并通过流行的下拉式菜单设计，将县级业务中的地面测报、气象服务、农业气象、信息网络以及台站管理等集成一体(图1)。
(2) 运用Access数据库管理技术，将繁琐的难于记忆的目录、文件名用数据库管理，并利用计算机系统时间生成当天最新资料文件名。一般业务操作人员不必了解任何文件名和文件路径，不需输入任何命令，只要用鼠标点击相应模块就可方便地使用本系统。
(3) 系统安装方便，只需运行安装盘＃1中的SETUP.EXE，根据提示依次插入相应磁盘，按默认方式操作直至系统安装完成。系统提供了全中文的操作界面，使用时只要用鼠标点击相应菜单就可方便自如地操作，无需任何计算机软件知识，尤其适合基层台站使用。
2 系统设计的技术特点
(1) 系统设计时，充分应用了Visual Basic6.0中的Shell函数，方便地将本系统与Micaps系统、省台开发的地面气象资料查询系统以及安徽地面测报报表制作系统连接在一起。
(2) 根据9210命名规则，应用DBGrid控件，将文件路径及文件名用汉字直接替代，根据系统时间可自动形成当天的文件名。同时考虑到系统的推广和日益发展的业务需求，设计时留有数据维护接口，可通过增减或更改相应数据库，而无需更改源程序就可适应不同的业务工作，具有较好的可移植性和扩充性。
(3) 应用RichTextBox控件显示文本，解决了省台下发的指导预报产品不分行的现象。
3 主要功能模块
3.1 实时资料模块
该模块是Micaps系统应用......
教你在VB中操作DataGrid视图(2005-09-25 08:03:00)
摘要：教你在VB中操作DataGrid视图
作者：unknown 更新时间： 2005-05-02
一个“拆分”的网格使最终用户对相同的数据可以拥有多个视图。例如，假设有一个由十个字段组成的大表。在这种情况下，在控件中察看的记录集将有十列宽，除非窗体非常宽，否则用户将无法同时看见所有列的内容。更进一步，假设用户只对第一列和最后一列感兴趣（例如，第一列是名字，最后一列是电话号码）。为了能同时看到在两端的列（不重新安排列的顺序），可以对网格进行拆分。
创建一个 Split 对象
在设计时，可以创建一个拆分，具体步骤是：右键单击网格，单击“编辑”，再单击右键，然后单击“拆分”。通过右键单击该控件，并单击“属性”来显示“属性页”对话框，可以编辑这个拆分。可以使用“拆分”选项......
教你在CoolBar中显示指定的图片(2005-09-25 08:03:00)
摘要：教你在CoolBar中显示指定的图片
作者：unknown 更新时间： 2005-05-02
CoolBar 控件提供了许多的属性使得它在显示图片方面有非常大的灵活性。
当您指派一个图像给 CoolBar 控件的 Picture
属性时，该图像将穿过所有的带区被平铺，并且在任何的子控件之后。通过设置 Band 对象的
FixedBackground 属性为 False，该图像被在......