由于写匆忙有很些bug,忘见凉!^-^ Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long Private Declare Function GetAsyncKeyState Li... [阅读全文]

编程人员从大量开发中积累了许多非常实用经验和窍门技巧它们就象盘盘快餐看似简单但营养绝对丰富！用“餐”的后您VB将立即超频还犹豫什么快来品尝品尝吧 ...　　用Mid$命令超速串添加操作　　大家都知道&操作符执行速度是相当慢特别是处理长串时当必须重复地在同变量上附加时有个基于Mid$命令窍门技巧可以使用基本思路就是:预留个足够长空间存放操作结果下面是应用这个技术个例子　　假设... [阅读全文]

#region 截取字符串 /// summary /// 截取字符串 /// /summary /// param name="len"截取长度/param /// param name="symbol"需截取字符串/param /// returns/returns public s... [阅读全文]

　　即使是初学VB人对于如何用它来建立个GUI界面标准Windows应用肯定也是胸有成竹；然而对于如何用VB来编写界面控制台(Console－ModeApplications)知道人恐怕不多有人甚至认为这是不可能VB对编写控制台并无内在支持在VB“新建工程”对话框里没有“控制台”这选项实际上利用Windows提供应用编程接口(API)VB是能够建立控制台控制台和... [阅读全文]

lass=Section1 style=\"LAYOUT-GRID: 15.6pt none\"API中VB串作参数传递本质论 prefix = o ns = \"urn:schemas-microsoft-com:office:office\" /问题背景:前几天在论坛中看到有个提问问题内容是:模块中代码:Option ExplicitPublic Decl... [阅读全文]

sp; 文本框属性为允许多行显示时，由于是软回车实现的分行，无法用SPLIT(TEXT1.TEXT,VBCRLF)准确地取出指定行的内容。本文利用SENDMESSAGE 系列函数，通过发送文本框消息，实现了获取包含指定字符串的行，并演示了如何获取文本框中文本总行数和任意指定行的文本内容。´add a textbox with \"multiline=true\",\"scrollbar... [阅读全文]

现字符串表达式计算代码由笔者收藏的本论坛代码改编，记不清是哪位网友提供的了，非常感谢。Option ExplicitPrivate Declare Function EbExecuteLine Lib \"vba6.dll\" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal ... [阅读全文]

lic Function IsValidEmail(strEmail As String) As Boolean Dim names, name, i, c IsValidEmail = True names = Split(strEmail, \"@\") If UBound(names) 1 Then IsValidEmail = Fa... [阅读全文]

假设我从Excel表格中复制了些数据到剪贴板中比如是这样些信息:Allen 12Anderson 13Douglas 12Ohio 49我怎样才能把这些名字和数字读进个或者个Grid框中呢？用Clipboard.GetText(vbCFText)只能下子读入所有数据而我希望个个地读回答:新建个项目在窗体上放两个label和个command以下是代码:Privat... [阅读全文]