随笔分类 - VB6
摘要：调用SetFocus方法后Spread仍然无法获得焦点问题出在Spread不失去焦点的情况下无法获得焦点所以在调用按钮单击事件时（Button1_Click）要先使按钮获得焦点（Button1.SetFocus)[代码] vbSpread1.ACTION=ActionActiveCell
阅读全文
摘要：1,显示背景色,同时显示默任的淡色线效果如图:2.在SpreadSheet里按Tab键向下移动设计完SpreadSheet后要把前两项限制选中3.设置SpreadSheet行的可选择情况5.设置Enter响应的事件6.设置隐藏列与固定列数
阅读全文
摘要：为了便于记录程序执行时间，做了一个小程序 http://www.cnblogs.com/Files/sekihin/TestDriven.rar
阅读全文
摘要：For i = LBound(carry, 1) To UBound(carry, 1) For j = LBound(carry, 2) To UBound(carry, 2) carry(i,j) = ?? Next j ...
阅读全文
摘要：Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ -->[SHORTCUTS] ShortcutTabIndexAssistant= ShortcutCopyControlWithCode= ShortcutPasteControlWithCode=...
阅读全文
摘要：转自：软件测试网 vb有多个单元测试的软件，如VBunit,communit。此处选择communit来作为单元测试的，原因是一、它是完全开放源码的，二、它不仅能 测试VB源代码，还能测试标准COM组件。communit可以从sourceforge.net下载，也可以本地下载,本地版本与有两个修改，一是修正模板的安装，原来的包没有完全设置好，二是增加了时间的计算，能显示测试...
阅读全文
摘要：Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->1.Dim objControl As ControlFor Each objControl In Me.ControlsIf objControl.Container.Name = "Frame1" T...
阅读全文
摘要：精用Boolean表达式，让代码再减肥 1、传统方法： If SomeVar > SomeOtherVar Then x = x + 1 End If 2、更简练的方法 x = x - (SomeVar > SomeOtherVar) 1、传统方法： If SomeVar > SomeOtherVar Then ...
阅读全文
摘要：update是单条记录的更新 一般用于单表 udatebatch是在用批次锁定游标时使用！ 可以实现一批纪录同时更新到服务器 在有主表、明细表的情况，更新明细记录时使用！
阅读全文
摘要：Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ -->maxGyo '每页显示的最大行数 Private Sub ActiveReport_FetchData(eof As Boolean) If DsoPrint.eof The...
阅读全文
摘要：Dim lastIndex%, bCheck As BooleanPrivate Sub chkHonbu_Click(Index As Integer) If bCheck3 Then Exit Sub Else bCheck3 = True If lastIndex3 Index Then chkHonbu(lastIndex3).Value = 0 ...
阅读全文
摘要：Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--> Dim aCmd As ADODB.Command Set aCmd = New ADODB.Command With aCmd' .Name = "PACKAGENAM...
阅读全文
摘要：可为空的项目,赋初值时要赋空值Me.MousePointer = vbHourglass Me.MousePointer = vbDefault Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->Color.FromArgb(CType(255, By...
阅读全文
摘要：前言 什么是一 个高效的软件？一个高效的软件不仅应该比实现同样功能的软件运行得更快，还应该消耗更少的系统资源。这篇文章汇集了作者在使用VB进行软件开发时积累下来 的一些经验，通过一些简单的例子来向你展示如何写出高效的VB代码。其中包含了一些可能对VB程序员非常有帮助的技术。在开始之前，先让我陈清几个概念。 让代码一次成型：在我接触到的程序员中，有很多人喜欢先根据功能需求把代码写出来，然后在...
阅读全文
摘要：DoEvents 函数的作用是转让控制权，以便让操作系统处理其它的事件我是在这样的情况下使用Doevents函数的：当需要用一段循环代码时，特别是循环的次数很大时，以及为了防止出现死循环时在循环代码的开始加上Doevents，以便在程序运行过程中可以中止程序运行。 转移到下一个控件进行事件响应时,例如,窗体卸载,即将打印,即将CSV,在对记录集进行操作时对其他记录集操作.
阅读全文
摘要：（一）打开和关闭文件 1、顺序文件 打开顺序文件，我们可以使用Open语句。它的格式如下：Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize] 说明： （1）参数pathname 表示要打开的文件名，文件名可以包含有驱动器和目录 （2）Input Output 和Append用于设置顺...
阅读全文
摘要：Oracle Dim aDS As OraDynasetSet aDS = OraDB.DbCreateDynaset(aSql, ORADYN_READONLY + ORADYN_NOCACHE)Set aDS = OraDB.DbCreateDynaset(aSql, ORADYN_READONLY)OraDB.ExecuteSQL (aSql) 参照設定： Oracle Data Co...
阅读全文
摘要：ADO的实现AbsolutePage、PageCount 和 PageSize 属性范例 该范例使用 AbsolutePage、PageCount 和 PageSize 属性，以每次五个记录的方式显示雇员表中的姓名和受雇日期。 Public Sub AbsolutePageX()Sub AbsolutePageX() ...
阅读全文
摘要：1、 AdOpenForwardOnly （默认值）一次只能向前移动一行。 2、 AdOpenKeyset 打开键集类型游标。 3、 AdOpenDynamic 打开动态类型游标 4、 AdOpenStatic 打开静态类型游标。 AdOpenForwardOnly和AdOpenStatic这两种游标使得记录集只读，它表示创建数据...
阅读全文
@@@
end feedwind code -->
