11 2009 档案

摘要:控件参数传递Option ExplicitPrivate Sub Command1_Click() Dim i As Integer List1.Visible = True List2.Visible = True List1.ListIndex = 0 List2.ListIndex = 0End SubPrivate Sub Form_Load() List1.Visible =... 阅读全文
posted @ 2009-11-29 00:14 邓维 阅读(1437) 评论(0) 推荐(0) 编辑
摘要:FIX: "Catastrophic Failure" Error Message When You Use adPromptAlways to Connect to SQL Server 2000SYMPTOMS When you use the adPromptAlways constant to open a connection to SQL Server 2000...When you ... 阅读全文
posted @ 2009-11-28 23:53 邓维 阅读(5511) 评论(1) 推荐(0) 编辑
摘要:'BaseFunction'测试开关Public Enum TYPE_TestFlag OutExe = 0'0-输出到DebugView --; OutTxt = 1'1-输出到日志文件--; OutBath = 2 '2-输出到DebugView 也输出到日志文件--; OutNull = 3 '3-无错误输出--;End Enum'测试开关常量Private Const m_TestFlag... 阅读全文
posted @ 2009-11-28 23:37 邓维 阅读(359) 评论(0) 推荐(0) 编辑
摘要:要准确地统计字数,可逐一将字符串转换为ASCII码,依据其值判断是为中文字符还是英文字符。0——127之间的为大小写字母及数字、半角标点符号、回车、换行等,中文字符的ASCII值则不在0——127之列了。这样,纯汉字的字数统计是很容易的,倒是英文的统计复杂,因为英文统计应以单词为单位,而要判断是否为单词并不是简单的事。我们可以这么处理:如果被检测的字... 阅读全文
posted @ 2009-11-28 00:20 邓维 阅读(737) 评论(0) 推荐(0) 编辑
摘要:在“通用声明”代码区声明(窗体)模块级变量OptionExplicitDimlettersAsInteger'声明模块级变量,此变量计算字母个数DimspaceAsInteger'空格个数DimdigitAsInteger'数字个数DimothersAsInteger'其他字符个数输入cmdStat_Click()事件过程代码PrivateSubcmdStat_Click(... 阅读全文
posted @ 2009-11-28 00:17 邓维 阅读(2978) 评论(0) 推荐(0) 编辑
摘要:有空再注释一下OptionExplicit PrivateDeclareFunctionGetProcessHeapLib"kernel32"()AsLongPrivateDeclareFunctionHeapAllocLib"kernel32"(ByValhHeapAsLong,ByValdwFlagsAsLong,ByValdwBytesAsLong)AsLongPrivateDeclareF... 阅读全文
posted @ 2009-11-27 23:46 邓维 阅读(3741) 评论(0) 推荐(0) 编辑
摘要:数据库 DateTime 为空null时,默认为 1900-1-1 最好设计成 定长的字符串 阅读全文
posted @ 2009-11-27 23:22 邓维 阅读(498) 评论(0) 推荐(0) 编辑