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 =...
阅读全文
摘要: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 ...
阅读全文
摘要:'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...
阅读全文
摘要:要准确地统计字数,可逐一将字符串转换为ASCII码,依据其值判断是为中文字符还是英文字符。0——127之间的为大小写字母及数字、半角标点符号、回车、换行等,中文字符的ASCII值则不在0——127之列了。这样,纯汉字的字数统计是很容易的,倒是英文的统计复杂,因为英文统计应以单词为单位,而要判断是否为单词并不是简单的事。我们可以这么处理:如果被检测的字...
阅读全文
摘要:在“通用声明”代码区声明(窗体)模块级变量OptionExplicitDimlettersAsInteger'声明模块级变量,此变量计算字母个数DimspaceAsInteger'空格个数DimdigitAsInteger'数字个数DimothersAsInteger'其他字符个数输入cmdStat_Click()事件过程代码PrivateSubcmdStat_Click(...
阅读全文
摘要:有空再注释一下OptionExplicit PrivateDeclareFunctionGetProcessHeapLib"kernel32"()AsLongPrivateDeclareFunctionHeapAllocLib"kernel32"(ByValhHeapAsLong,ByValdwFlagsAsLong,ByValdwBytesAsLong)AsLongPrivateDeclareF...
阅读全文
摘要:数据库 DateTime 为空null时,默认为 1900-1-1 最好设计成 定长的字符串
阅读全文