|
|||
|
摘要：
有时我们需要在listbox的某个项目上右击然后弹出菜单来操作指定项，可是右击某一条时它并没有呈现选中状态，只有左键单击才可以，这显然不符合我们要求的，不过我们用个api函数稍稍处理下即可，很方便实用。Option ExplicitPrivate Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)Private Const MOUSEEVENTF_LEF 阅读全文
posted @ 2010-12-29 17:52 随风飘零0 阅读(418) 评论(0) 推荐(0) 编辑
摘要：
一、window.showModalDialog获取弹出页面返回值的2种方法----main.html---------主页面form name="form1" input type="text" name="fag1" input type="text" name="fag2" /form function shw(){ var url="open.html"; //----------方法一--start------- var obj=document.form1; //指定页面对象 var returnValue=window.showModalDialog(url ,o 阅读全文
posted @ 2010-12-23 10:43 随风飘零0 阅读(616) 评论(0) 推荐(0) 编辑
摘要：
获取网页数据必须使用HTML对象库，可在“引用”窗体中添加对“Microsoft HTML Object Library”的引用。HTML对象库提供了大量的对象，这些对象和各类HTML标记相对应，如熟悉的“a”、 “Table”、“ body”和“form”标记，一些常用HTML对象的知识点如下所述： (1)HTMLAnchorElement对象：该对象代表网页中超级链接(即“a”)标记，其常用属性和方法如下所述： href属性：该属性用于设置链接的目标。 id属性：该属性用于设置链接的标识。 innerHTML属性：该属性返回链接的HTML代码。 innerT 阅读全文
posted @ 2010-12-23 09:59 随风飘零0 阅读(1059) 评论(0) 推荐(0) 编辑
摘要：
编写VB程序时，经常遇到的问题就是VB给我们准备的东西我们会用，控件组装就是一个程序，然而一旦想要实现VB没有直接提供的功能，就会不知所措。正在装载数据……其实Windows操作系统本身就给我们准备了许多东西，VB没有的，或许Windows有。我们当然希望少花力气，多得效果。这里要讲的内容就是——学会利用Windows给我们的东西:API。 然而，学会一种东西是需要付出相当的努力的，API也一样，它可以给我们带来很大的方便，但想要掌握它，就不是使用几个控件那么轻松的事了。所以在看这篇文章时，希望读者可以抱一个正确的态度，就是学习编程不是为好玩，而是为使用; 不要以自己对这方面是否有兴趣而看， 阅读全文
posted @ 2010-12-21 13:26 随风飘零0 阅读(1951) 评论(0) 推荐(0) 编辑
摘要：
'------------------------------------------------' 环境准备：' 1.为运行本程序，应在“菜单-工程-部件”中添加“Microsoft Internet Controls”' 2.并在“菜单-工程-引用”中添加“Microsoft HTML Object Library”和“Edanmo's OLE interfaces & functions v1.4”' 3.请先建立文件"d:\1.html"，内容为：iframe application="yes" width=700 height=600 src="http://www.bai 阅读全文
posted @ 2010-12-07 09:06 随风飘零0 阅读(515) 评论(0) 推荐(0) 编辑
摘要：
% Call CreateSafeCode() Sub CreateSafeCode () 'AddHeader 方法用于增加带有一个要发送到客户应用程序的特殊的HTTP头 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" '指定响应的HTTP 内容类型为"Image/BMP" Response.ContentType = "Image/BMP" '生成随机数，因为Rnd 生成一个小于1但大于或等于0的数，所以8999*Rnd +1000 阅读全文
posted @ 2010-12-06 10:52 随风飘零0 阅读(208) 评论(0) 推荐(0) 编辑
摘要：
插件下载地址（请下载最新版v1.0.5）：http://code.google.com/p/vsaddin/downloads安装方法：1.点击菜单“工程-引用”，选择这个dll2.然后点击菜单“外接程序-外接程序管理器”，选择“Insert Error Hand”，把右下角两个框框都勾起来3.这样你的菜单“外接程序”中就会多出“Insert Error Hand”这一项使用方法：将要处理的代码编辑窗口打开，然后点击菜单“外接程序-Insert Error Hand”ps：插件会只会处理已经打开的代码编辑窗口主要代码如下：'''''''''''''''''''''''''''''''''''' 阅读全文
posted @ 2010-12-01 14:32 随风飘零0 阅读(577) 评论(0) 推荐(0) 编辑
摘要：
正则表达式：^(?:public|private)? *?(sub|function|Property (?:Let|Set|Get)) +?(\w+)\(?vb的处理方法：Option ExplicitPrivate Sub Form_Load() Dim strData$ Dim reg As Object Dim matchs As Object, match As Object strData = "Option Explicit" & vbCrLf & _ "Public FormDisplayed As Boolean" & vbCrLf & _ "Public VBInstanc 阅读全文
posted @ 2010-12-01 11:29 随风飘零0 阅读(216) 评论(0) 推荐(0) 编辑
摘要：
下载地址：http://download.csdn.net/source/2837110窗口预览： 阅读全文
posted @ 2010-11-11 17:42 随风飘零0 阅读(181) 评论(0) 推荐(0) 编辑
摘要：
Option ExplicitPrivate Declare Sub mouse_event Lib "User32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)Private Declare Function SetCursorPos Lib "User32" (ByVal x As Long, ByVal y As Long) As LongPrivate Declare Sub Sleep Lib "kernel 阅读全文
posted @ 2010-11-03 18:44 随风飘零0 阅读(258) 评论(0) 推荐(0) 编辑 |
|||
