文章标题关闭所有内容预览 | 展开所有内容预览
-
控制网页的FORMS行为
[内容预览]
26 | 2006-07-19
控制网页的FORMS行为Private Sub Command2_Click() With WebBrowser1.Document.Forms(0) .c2.Checked = 1 .r1(1).Checked = 1 End WithEnd SubPrivate Sub Command2_Click() With WebBrowser1.Document.Forms(0) .d...
[阅读全文]
-
获取webbrowser控件 网页的源码
[内容预览]
185 | 2006-07-19
我在网上找到使用rft控件保存webbrowse文本 txtHtml是RichTextBoxtxtHTML.Text = WebBrowser1.document.body.innerText'flag ：rsftext 保存为txt文件，strtmp文件路径txtHTML.saveFile strtmp, rtfText将其name属性...
[阅读全文]
-
WEBBROWSER 技巧
[内容预览]
62 | 2006-07-19
引用Microsoft HTML OBject LibraryRem ＃窗体代码＃Dim WithEvents M_Dom As MSHTML.HTMLDocument Private Function M_Dom_oncontextmenu() As Boolean M_Dom_oncontextmenu = FalseEnd Function Private Sub Webbr...
[阅读全文]
-
应用MapX编程两例
[内容预览]
475 | 2006-07-19
0 MapX简介 MapX是MapInfo公司提供的具有强大地图分析功能的ActiveX控件产品。由于它是一种基于Windows操作系统的标准控件，因而能支持绝大多数标准的可视化开发环境，如Visual C++、Visual Basic、Delphi、PowerBui...
[阅读全文]
-
数据异步加载
[内容预览]
8 | 2006-07-19
异步加载是ADO的一种数据加载方式，主要由记录集的options参数来控制！ADO210.CHM中的格式：recordset.Open Source, ActiveConnection, CursorType, LockType, OptionsOptions 可选。Long 值，指示提供者计算 Sourc...
[阅读全文]
-
关于日期的中文转换
[内容预览]
13 | 2006-07-19
下面的代码可以将任意日期（1000-01-01-->9999-12-31）转换为汉字显示： Private Sub Command1_Click()MsgBox datename(Date)End SubFunction datename(ByVal mydate As Date) As StringDim i As Long, d(3) As Str...
[阅读全文]
-
Internet Explorer对象
[内容预览]
48 | 2006-07-19
使用Internet Explorer对象可以使POST请求在IE中产生，从而脱离程序，远离了美化界面的工作。程序甚至可以隐藏或退出，免去了WebBrowser带来的烦恼，当然也不需要第四个参数。下面我们还是以登陆CSDN为例，给出实际的...
[阅读全文]
-
[图文] Inet控件与WebBrowser控件配合使用
[内容预览]
621 | 2006-07-19
URL帐号密码其它参数SOHU邮箱http://login.sohu.com/chkpwd.phpUserNamePassword 网易通行证http://reg4.163.com/CheckUser.jspusernamepassword CSDN通行证http://www.csdn.net/member/logon.asplogin_namepasswor...
[阅读全文]
-
[图文] VB自动登陆网络站点详解（一）：得到参数名
[内容预览]
181 | 2006-07-19
自动登陆站点有一个关键的地方就在于参数名的正确与否，因为各个WEB服务器接收的参数名都不可能相同，在程序中倘若参数名使用不正确，会误以为代码的错误而徒増烦恼，因此首先推荐一个很有用的工具“Visual Sniffer...
[阅读全文]
-
实现货币金额中文大写转换的程序
[内容预览]
21 | 2006-07-19
Function daxie(money As String) As String 'Dim x As String, y As StringConst zimu = ".sbqwsbqysbqwsbq" '定义位置代码Const letter = "0123456789sbqwy.zjf" '定义汉字缩写Const upcase = "零壹贰叁肆伍陆柒捌...
[阅读全文]
-
VB中使用EXCEL输出
[内容预览]
98 | 2006-07-19
Private Sub cmdSwatch_Click()Dim xls As excel.ApplicationDim xlbook As excel.Workbook'On Error GoTo exlErrorDim i As Integer If Dir(Text1.Text) <> "" Then '此目录下如有同名文件给出提示,并作相应处理 I...
[阅读全文]
-
应用MapX编程实现地图数据查询
[内容预览]
17 | 2006-07-19
1、本程序实现从下列表中选择一个节点，并以此节点为中心进行进行定位的功能（实例以第一层RTUName属性的值进行查询）Private Sub Command1_Click() Dim FindObj As MapXLib.Find Dim FoundFeature As FindFeature '...
[阅读全文]
-
vsprint打印实例
[内容预览]
36 | 2006-07-19
Option ExplicitPublic Function formatData2(ByVal data1 As Double, ByVal data2 As Double) As String Dim dt1, dt2 As Double dt1 = data1 dt2 = data2 If dt1 = 0 Or dt1 = 0# Or dt2 = 0 Or dt2 = 0# Then fo...
[阅读全文]
-
Vb6里面数组的使用的小例子
[内容预览]
25 | 2006-07-19
Vb6里面数组的使用的小例子（1）：动态数组的使用(1.1)：首先声明数组的类型 语法为dim a() as integer(1.2)：使用的时候定义数祖的下标和上标 语法为redim a(1 to 5)，表示数组的小标为1，上标为5。(1.3)：赋值 举...
[阅读全文]
-
[组图] Visual Basic 安装程序的制作
[内容预览]
16 | 2006-07-19
Visual Basic 安装程序制作 安装程序制作是做项目必不可少的一道工序，在此笔者介绍一个最简单的安装方法，就是用ＶＢ自带的打包程序进行打包，虽然比较普通，不过内部却有不少窍门。 ①运行打包向导，如下图所示...
[阅读全文]
-
[图文] VB程序实现WindowsXP效果的界面
[内容预览]
26 | 2006-07-19
具体的实现方法如下： ①：在你的窗体加入代码。如果是多个窗口，可以将此代码放到模块中。 代码如下： '声明API函数 Private Declare Sub InitCommonControls Lib "comctl32.dll" () Private Sub Form_Initialize(...
[阅读全文]
-
VB打造超酷个性化菜单（六）
[内容预览]
68 | 2006-07-19
接上篇） ' 拦截菜单消息 (frmMenu 窗口入口函数)Function MenuWndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Select Case Msg Case WM_COMMAND ' 单...
[阅读全文]
-
VB打造超酷个性化菜单（五）
[内容预览]
50 | 2006-07-19
现在到了最关键，最精彩，也是最复杂的部分了。我们最关心的就是怎样“画”菜单，怎样处理菜单事件，在MenuWndProc这个处理消息的函数里，我们要处理如下消息：WM_COMMAND（单击菜单项），WM_MEASUREITEM（处理菜单高...
[阅读全文]
-
VB打造超酷个性化菜单（四）
[内容预览]
58 | 2006-07-19
属性: 菜单总体风格Public Property Get Style() As MenuUserStyle Style = MenuStyleEnd Property Public Property Let Style(ByVal nMenuStyle As MenuUserStyle) MenuStyle = nMenuStyle Select Case nMenuStyle ...
[阅读全文]
-
简单的脚本帮你编排JScript程序中的缩进
[内容预览]
7 | 2006-07-19
<script>function trans(){ var res=_trans(ta.value) ta.value=res;}function _trans(str){ str=str.replace(/\r\n(\s)+/g,"\r\n"); var arrRes=new Array(); var arr=str.split("\r\n"); var count=0; arrRes[arrR...
[阅读全文]
-
可输入的select
[内容预览]
89 | 2006-07-19
<html><head><style><!--.cls1 { position:absolute; left:250px; top:89px; width:216px; height:72px; z-index:1; }.cls2 { position:absolute; left:250px; top:89px; width:95px; height:18px; z-index:2 }input...
[阅读全文]
-
用OO思路处理Cookies
[内容预览]
8 | 2006-07-19
浏览器能够通过Cookies保留有关数据。象Windows的注册表一样，用户不必知道Cookies的具体位置，浏览器能找到这些数据。第六代的浏览器，不管是IE还是NS都支持document.cookie属性。通过这个属性来读取或修改Cookies的...
[阅读全文]
-
用正则表达式作校验
[内容预览]
30 | 2006-07-19
本例说明如何简单地校验输入数据是否为空。客户端JavaScript校验代码：01:<html>02:<head>03: <title>Validation Example</title>04: <script langauge="Javascript">05: // 如果输入值为空，函数返回false06: funct...
[阅读全文]
-
利用xml数据岛实现多级关联下拉选择框的做法
[内容预览]
11 | 2006-07-19
<select name=year></select><select name=month></select><select name=date></select><select name=clock></select><input name=result><script>var arrSel=["year","month","date","clock"];//arrSel定义了要修改...
[阅读全文]
-
利用Wipe等ActiveX技术，实现n(n>>2)幅图片轮换擦洗显示
[内容预览]
8 | 2006-07-19
一般的做法，只能显示两张图片，因为Wipe擦洗技术限制只能两张图片间切换。 但可以通过将两张图片转为动画交替显示<script> var i=0,pictures=new Array();//设置图片数组var picbase=""; //设置图片所在目录pictur...
[阅读全文]
-
多级关联下拉选择框的高效实现
[内容预览]
17 | 2006-07-19
<BODY><SELECT NAME="s1"><option>需要JavaScript才能正确显示</SELECT><SELECT NAME="s2"></SELECT><SELECT NAME="s3"></SELECT><SELECT NAME="s4"></SELECT><SCRIPT LANGUAGE="JavaScript"><!-- //选择框的名字sel...
[阅读全文]
-
JavaScript实现在线编辑表格
[内容预览]
80 | 2006-07-19
==JavaScript在线表格演示== 中国 美国 英国 标题一标题二标题三注：第一列单击弹出下拉框选择；在表格最后一行，按下“下箭头”可以增加一个新的空行;使用回车键可以向下遍历整个表格*=下列按钮根据需要选定使用==...
[阅读全文]
-
根据客户端的分辨率不同而重定向到不同网页的脚本
[内容预览]
11 | 2006-07-19
我们知道，对于客户端分辨率的问题可以通过ASP在服务器端进行判断，我用Javascript脚本也可以完成这个功能。下面是源程序：<script language="javascript">if (window.screen){ var widths = screen.width; url_640...
[阅读全文]
-
几种不刷新页面取数据的方法
[内容预览]
22 | 2006-07-19
以下是几种常用的方法，当然取数据的后缀名可以为.asp,.jsp等等的带参数url.1.<script language="JavaScript">function loadXml(url){ var loXML = new ActiveXObject("MSXML.DOMDocument"); loXML.async = false; ...
[阅读全文]
-
web进度条
[内容预览]
28 | 2006-07-19
源代码如下，很容易读，有问题请email: sunmingdong@371.net<HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"><TITLE></TITLE><SCRIPT LANGUAGE=javascript><!--var myTime=0function cou...
[阅读全文]