VB
文章平均质量分 59
solaris_navi
https://www.linkedin.com/in/deytian/
展开
-
VB输入字符的控制判断,很短
在KeyPress里面加入:If (KeyAscii 48 Or KeyAscii > 57) And (KeyAscii > 88 Or KeyAscii 65) _ And (KeyAscii 97 Or KeyAscii > 120) And KeyAscii 8 _And KeyAscii Asc("_") And KeyAscii Asc(".") And KeyA原创 2007-08-20 00:23:00 · 1263 阅读 · 0 评论 -
标准VBS控制Word
标准VBS控制Word 感觉本论坛还没有关于用VBS操作Word的帖子其实VBS能很轻松的来操作WORD注意需要安装微软的WORD才可以正常使用welText="本脚本运行后将在WORD种显示一些计算机的信息"MsgBox welText定义Word.application变量Dim转载 2008-08-19 17:10:00 · 3904 阅读 · 3 评论 -
VB函数
Calendar 常数 可在代码中的任何地方用下列常数代替实际值: 常数 值 描述 vbCalGreg 0 指出使用的是阳历。 vbCalHijri 1 指出使用的是伊斯兰历法。 -------------------------------------------------------------------------------- Color 常数 可在代码转载 2008-09-19 13:19:00 · 1590 阅读 · 0 评论 -
Clean RTF files to any encoding text file type
clickIf Wscript.Arguments.Count=0 Then Msgbox "Drag and drop files on."Wscript.Quit End If startset wshell = CreateObject("Wscript.Shell")For i=0 to Wscript.Arguments.Count-1 singlePath=sing原创 2008-11-19 13:18:00 · 630 阅读 · 0 评论 -
VB+WMP
URL:string 可以指定媒体位置 enableContextMenu:Boolean 显示/不显示播放位置的右键菜单 fullScreen:boolean 全屏显示 stretchToFit:boolean 非全屏状态时是否伸展到最佳大小 uMode:stri转载 2008-12-20 00:48:00 · 714 阅读 · 0 评论 -
使用word宏循环查找
Sub EditFindLoopExample()This example inserts "Tip: " at the beginning of every paragraph formatted with the Heading 3 style. With ActiveDocument.Content.Find .ClearFormatting .Styl转载 2008-12-23 13:35:00 · 1618 阅读 · 0 评论 -
VB控件安装,及Comdlg32许可证的问题
VB控件的安装方法:在“开始”菜单中的“运行”中输入:regsvr32 C:/VB/ocx库/***.OCX关于Comdlg32许可证的问题安装了Comdlg32后,不能用,总是弹出提示说许可证无效,怎么办?解决办法如下:将下面的内容copy到notepad,存为.reg文件,文件名自己定了,再运行一遍,输入到注册表即可。 REGEDITHKEY_CLASS转载 2010-05-03 05:38:00 · 1408 阅读 · 0 评论 -
解决 ASPX 中的 Header 里图片路径显示不正确的问题
Untitled Page /images/title.png" />原创 2011-03-08 17:32:00 · 680 阅读 · 0 评论 -
Cast/Convert Function in Access
Cint -- cast to inegerClng -- longCdbl -- doubleCsng - singleCstr - stringCbool - boolean==================val() exa原创 2011-09-19 18:12:16 · 533 阅读 · 0 评论 -
Vbs脚本编程简明教程
Vbs脚本编程简明教程◎Vbs脚本编程简明教程之一 —为什么要使用Vbs?2007年03月26日 星期一 下午 04:46 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除,也许你每天启动计算机第一转载 2008-07-17 10:41:00 · 1679 阅读 · 0 评论 -
为VB平反
最近我看到许多同学这样评论VB:VB早就被淘汰了,学也没用……VB就是垃圾,看它的运行效率……真慢~……今年我写的一篇《关于实现三层架构的方法--VB实现》也被因为VB被淘汰一词而被系刊打了回来。如今Java、.net满天飞,仔细想想VB可以说能和C++同辈了,也许真的应该被淘汰,但作为以VB起身的我来说,我可不这么想。我觉得现在学校里面有些学生比较浮躁,成天追求最新的编程语原创 2008-07-17 12:59:00 · 1615 阅读 · 1 评论 -
VB中的字符串拼接
拼接字符串用VB做也是很简单的。比如把字符串“你好”和字符串“吗?”拼接起来:dim a,bdim ca="你好"b="吗?"c=a+b这样,str里面的值就是“你好吗?”。以上是字符串的拼接。如果不做说明,VB的dim声明出来的是variant类型,也就是不定类型,编译器会根据变量的值的范围来决定变量的类型。那么如果a=“你好吗?”,b=12345这两个变量进行拼接,使用相同的方原创 2007-08-22 16:06:00 · 19263 阅读 · 0 评论 -
VB的数据库处理
处理字符串,合成SQL,然后执行。分别是:查询、更改、删除、添加。代码如下:Public Function get_all_single_column_info()Function get_all_single_column_info(ByVal TableName, ByVal columnid, ByVal condition) As StringOn Error GoTo show原创 2007-08-23 15:42:00 · 935 阅读 · 0 评论 -
轻轻松松写Applications for Windows Mobile
本文寫給擁有諸如dopod等使用Windows Mobile操作系統的這一類智能手機的使用但是不開發而在某一天突然覺得自己應該寫一些自己能用的程序不過不太清楚如何開始的用戶。開發環境:Visual Studio.net 2005 Professional操作系統:windows XP sp2使用語言:VB因為我習慣用VB來寫東西啦,如果用C#等等的話可能看起來會更加專業一些,不過無原创 2007-11-09 02:46:00 · 821 阅读 · 0 评论 -
用.net实现mini-pascal词法分析器
暂时空缺,等我写好后发上来原创 2007-11-21 10:35:00 · 823 阅读 · 0 评论 -
mini-pascal部分实现的语法分析器,代码only
Do you know? Codes sometimes just like shit!implements:program,begin,var,procedure.ListBox3.Items.Clear() ListBox4.Items.Clear() ListBox5.Items.Clear() ListBox6.Items.Clear()原创 2007-12-18 07:48:00 · 2017 阅读 · 0 评论 -
Modules for SWL
Sub aeiou2x() aeiou2x Macro Macro recorded 7/7/2008 by Ye.Tian Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection原创 2008-07-07 16:07:00 · 602 阅读 · 0 评论 -
全自动化准备XML文档
喜欢的话考去用用,不过先声明,对本程序造成的后果我不负责任哦。clickIf Wscript.Arguments.Count=0 Then Msgbox "This Version is extreme dangerous, and it maybe harmful to your computer."+ chr(13)+_ "Please make sure this vbs原创 2008-07-17 16:53:00 · 699 阅读 · 0 评论 -
SendKeys
SendKeys 模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行, 其使用格式为:object.SendKeys string “object”:表示WshShell对象 “string”:表示要发送的按键指令字符串,需要放在英文双引号中。 1.基本键 一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母“x”,使用“WshS转载 2008-07-17 10:51:00 · 954 阅读 · 0 评论 -
Split table
Sub runtest() Dim i i = 1 Dim a, b a = 1 b = 1 For i = 1 To 350 If i Mod 2 = 0 Then Tabelle2.Cel原创 2011-09-29 22:11:38 · 660 阅读 · 0 评论