倒着爬行的蜗牛

摘要： 以下资料来自MSDN关于ImageList 控件帮助文档：ImageList 控件不能独立使用，只是作为一个便于向其它控件提供图象的资料中心。ImageList 控件的作用象图像的储藏室，同时，它需要第二个控件显示所储存的图像。第二个控件可以是任何能显示图像 Picture 对象的控件，也可以是特别设计的、用于绑定 ImageList 控件的 Windows 通用控件之一。这些控件包括ListView、ToolBar、TabStrip、Header、ImageCombo、和 TreeView 控件。为了与这些控件一同使用 ImageList，必须通过一个适当的属性将特定的 ImageList控 阅读全文

摘要： VB ADODB中的RecordSet.Open打开记录的两个参数adOpenKeyset、adLockBatchOptimistic的详细说明：这两个参数当时弄明白，过后又忘记了，做了笔记，但为了方便，还是在Blog中也做上这个笔记。缺省值1 adLockReadOnly RecordSet对象以只读方式启动，无法运行增、删、改等操作 2 adLockPrssimistic 当数据源正在更新时，系统会锁定其他用户的动作，以保数据一致性。 3 adLockOptimistic 当数据源正在更新时，系统不会锁定其他用户的动作，其他用户可以对数据进行增、删、改操作。 4 adLockBatchOp 阅读全文

摘要： sql中的group by 和 having 用法解析--sql中的group by 用法解析：-- Group By语句从英文的字面意义上理解就是“根据(by)一定的规则进行分组(Group)”。--它的作用是通过一定的规则将一个数据集划分成若干个小的区域，然后针对若干个小区域进行数据处理。--注意:group by 是先排序后分组；--举例子说明：如果要用到group by 一般用到的就是“每这个字” 例如说明现在有一个这样的表：每个部门有多少人 就要用到分组的技术select DepartmentID as '部门名称',COUNT(*) as '个数' 阅读全文

摘要： （1）新建工程 先新建一个工程（工程类型为标准EXE），然后用“工具箱”中的工具加入一个Timer1（计时器）和line1（直线），其index（指针）分别设置为空和0。然后双击Form1窗体，输入源代码。Option Explicit 'Private Sub Form_Load()' Timer1.Interval = 100' Width = 4000' Height = 4000' Left = Screen.Width \ 2 - 2000' Top = (Screen.Height - Height) \... 阅读全文

摘要： 13. VBScript 语法-函数（ScriptControl 控件）引用名称：Microsoft Script Control对象浏览器的名称：MSScriptControlVBScript 即 VBS 脚本语言。其语法与函数与 VB 非常接近。VBScript 在 VB6 中就是 VBScript ScriptControl 对象。通过两种方法可以使用该对象：1.勾选引用中的条目 Microsoft Script Control。 勾选该条目后，在对象浏览器中显示的名称为： MSScriptControl 然后在代码中定义：Dim SC As ScriptControl2.在代码运行期间 阅读全文

摘要： 3. ScriptControl 控件 Microsoft Script Control 控件可以创建运行任何 ActiveX(R) scripting 引擎，例如 Microsoft(R) Visual Basic (R) Scripting Edition 或Microsoft(R) JScript(TM) 的应用程序。简单的的说，可以在程序运行期间，允许用户编写代码并执行代码，计算带变量的的表达式等。 ■运行时设置程序代码： '▲显式创建，勾选引用（不选部件） Microsoft Script Control Private Sub Command1_Click() Dim st 阅读全文

摘要： 因为你未在工程中添加对ADO对象引用 的原因，project->references-> Microsoft ADO Ext . 2.8 for DLL and Security->Microsoft ActiveX Data Objects 2.x Library，将其勾选上即可。2.x当中的x相当于版本号Dim DataConnection As ADODB.Connection 'Dim rst As ADODB.Recordset Dim i As Integer Set DataConnection = New ADODB.Connection Set... 阅读全文

摘要： VB SendMessage 函数参数详解(一)SendMessage 函数原形 Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long四个参数的含义和说明如下:1.hWnd 对象的句柄。希望将消息传送给哪个对象就把该对象的句柄作为实参传送.在 VB 中可以简单地 用“对象.hWnd”获得某个对象的句柄.如 Te 阅读全文

摘要： 1、在Windows编程中，向文本框控件、列表控件、按钮控件等是我们最常接触的控件了。但是在VB中这些控件有时无法实现我们的需要。在这时，我们只要简单的利用Windows API函数就可以扩充这些控件的功能了。顾名思义，SendMessage函数就是向窗口（这里的窗口指的是向按钮、列表框、编辑框等具有hWnd属性的控件）发送消息的函数，该函数的定义如下:Declare Function SendMessage Lib "user32" Alias "SendMessageA" _(ByVal hwnd As Long, _ByVal wMsg As Lo 阅读全文

摘要： 一个配置文件 config.ini[FZ34566峰值参数]判断系数=.1过滤点数=2[GB3567峰值参数]判断系数=.1过滤点数=8读Public Function GetIniStr(ByVal AppName As String, ByVal InKey As String, ByVal FileName As String) As String On Error GoTo GetIniStrErr If Len(Trim(InKey)) = 0 Then GoTo GetIniStrErr End If Dim GetStr As String ... 阅读全文