文章标题关闭所有内容预览 | 展开所有内容预览
-
[图文] VB 贪吃蛇 单人版游戏
[内容预览]
0 | 2008-04-01 14:45:14
设计思路：＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝（一）开始新游戏1.1获取并应用各个参数（当前级别，控制键等），初始化随机数（Randomize）。1.2清除地图上的所有物品，各个统计数值置零。1.3初始化地图：布置食物，炸弹，蛇身位置以及蛇头的移动方向——在PictureBox上绘画图像并修...
[阅读全文]
-
JScript下Singleton模式的实现
[内容预览]
0 | 2008-04-01 14:45:12
实现方法是靠constructor的一个方法constructor.Singleton实现对第一个对象的空间的引用。functionMyClass(){varfs=function(fs){returnfs.caller};fs=fs(fs);if(fs.Singleton){returnfs.Singleton();...
[阅读全文]
-
AttachXMLForSelect:XML自动关联多级SELECT菜单代码和例子
[内容预览]
0 | 2008-04-01 14:45:09
<HTML><METANAME="save"CONTENT="history"/><script>/*关联XML到1个到N个的Select没有做历史记录*/functionAttachXMLForSelect(xd,arr,defaultText,defaultValue)//xd:xmldom,arr:arrayof...
[阅读全文]
-
web进度条
[内容预览]
0 | 2008-04-01 14:45:02
源代码如下，很容易读，有问题请email:sunmingdong@371.net<HTML><HEAD><METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0"><TITLE></TITLE><SCRIPTLANGUAGE=javascript><!--varmyT...
[阅读全文]
-
几种不刷新页面取数据的方法
[内容预览]
0 | 2008-04-01 14:44:59
以下是几种常用的方法，当然取数据的后缀名可以为.asp,.jsp等等的带参数url.1.<scriptlanguage="JavaScript">functionloadXml(url){varloXML=newActiveXObject("MSXML.DOMDocument");loXML.async=false;l...
[阅读全文]
-
根据客户端的分辨率不同而重定向到不同网页的脚本
[内容预览]
0 | 2008-04-01 14:44:58
我们知道，对于客户端分辨率的问题可以通过ASP在服务器端进行判断，我用Javascript脚本也可以完成这个功能。下面是源程序：<scriptlanguage="javascript">if(window.screen){varwidths=screen.width;url_640="default800.htm";u...
[阅读全文]
-
JavaScript实现在线编辑表格
[内容预览]
0 | 2008-04-01 14:44:54
==JavaScript在线表格演示==中国美国英国标题一标题二标题三注：第一列单击弹出下拉框选择；在表格最后一行，按下“下箭头”可以增加一个新的空行;使用回车键可以向下遍历整个表格*=下列按钮根据需要选定使用==*=另一个实例=标题一标题二标题三*=下列按钮根据需要选定使用==*=以下为代码清单===OnlineEd...
[阅读全文]
-
[图文] Javascript技术实现真正的网上试听
[内容预览]
0 | 2008-04-01 14:44:51
<html><head><scriptlanguage="Javascript1.2">varlocate=0;varscro=0;vargo=80;//控制滚动的速度，越小越快//以下函数实现滚动functionscroller(){if(scro==1){locate++;scroll(20,locate);cle...
[阅读全文]
-
多级关联下拉选择框的高效实现
[内容预览]
0 | 2008-04-01 14:44:51
<BODY><SELECTNAME="s1"><option>需要JavaScript才能正确显示</SELECT><SELECTNAME="s2"></SELECT><SELECTNAME="s3"></SELECT><SELECTNAME="s4"></SELECT><SCRIPTLANGUAGE="JavaScr...
[阅读全文]
-
利用Wipe等ActiveX技术，实现n(n>>2)幅图片轮换擦洗显示
[内容预览]
0 | 2008-04-01 14:44:47
一般的做法，只能显示两张图片，因为Wipe擦洗技术限制只能两张图片间切换。但可以通过将两张图片转为动画交替显示<script>vari=0,pictures=newArray();//设置图片数组varpicbase="";//设置图片所在目录pictures[i++]="1.gif"pictures[i++]="2....
[阅读全文]
-
利用xml数据岛实现多级关联下拉选择框的做法
[内容预览]
0 | 2008-04-01 14:44:47
<selectname=year></select><selectname=month></select><selectname=date></select><selectname=clock></select><inputname=result><script>vararrSel=["year","month","d...
[阅读全文]
-
用正则表达式作校验
[内容预览]
0 | 2008-04-01 14:44:43
本例说明如何简单地校验输入数据是否为空。客户端JavaScript校验代码：01:<html>02:<head>03:<title>ValidationExample</title>04:<scriptlangauge="Javascript">05://如果输入值为空，函数返回false06:functionchec...
[阅读全文]
-
用OO思路处理Cookies
[内容预览]
0 | 2008-04-01 14:44:40
浏览器能够通过Cookies保留有关数据。象Windows的注册表一样，用户不必知道Cookies的具体位置，浏览器能找到这些数据。第六代的浏览器，不管是IE还是NS都支持document.cookie属性。通过这个属性来读取或修改Cookies的值。不过Cookies的存储形式是非结构化的长字符串，需要经过相应的解析...
[阅读全文]
-
可输入的select
[内容预览]
2 | 2008-04-01 14:44:39
<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;hei...
[阅读全文]
-
简单的脚本帮你编排JScript程序中的缩进
[内容预览]
0 | 2008-04-01 14:44:38
<script>functiontrans(){varres=_trans(ta.value)ta.value=res;}function_trans(str){str=str.replace(/\r\n(\s)+/g,"\r\n");vararrRes=newArray();vararr=str.split("\r\...
[阅读全文]
-
[图文] VB打造超酷个性化菜单（一）
[内容预览]
0 | 2008-04-01 14:44:37
众所周知，MSOffice2003推出已经有一段时间了，但我们依然不会忘记OfficeXP刚刚推出时其令人耳目一新的菜单给我们留下的深刻印象。突起的悬浮式图标，不同寻常的菜单项填充方式，不仅让办公一族们赞不绝口，更让广大的程序员和编程爱好者对这种风格的菜单的制作产生了浓厚的兴趣。所以，在这篇文章里，我们就来好好地研究研...
[阅读全文]
-
VB打造超酷个性化菜单（二）
[内容预览]
0 | 2008-04-01 14:44:33
其实，漂亮的界面都是“画”出来的，菜单当然也不例外。既然是“画”出来的，就需要有窗体来接收“画”菜单这个消息，后面我们会看到，实际上不仅仅是“画”这个消息，一切关于这个菜单的消息都要有一个窗体来接收。如果你对消息不太了解，可以看看网上其它一些关于Windows消息机制的文章。不了解也没有关系，只要会使用就可以了，后面的...
[阅读全文]
-
VB打造超酷个性化菜单（三）
[内容预览]
0 | 2008-04-01 14:44:31
设置菜单项状态PublicSubSetItemState(ByValitemAliasAsString,ByValitemStateAsMenuItemState)DimiAsLongFori=0ToUBound(MyItemInfo)IfMyItemInfo(i).itemAlias=itemAliasThenMyI...
[阅读全文]
-
VB打造超酷个性化菜单（四）
[内容预览]
0 | 2008-04-01 14:44:29
属性:菜单总体风格PublicPropertyGetStyle()AsMenuUserStyleStyle=MenuStyleEndPropertyPublicPropertyLetStyle(ByValnMenuStyleAsMenuUserStyle)MenuStyle=nMenuStyleSelectCasenM...
[阅读全文]
-
VB打造超酷个性化菜单（五）
[内容预览]
0 | 2008-04-01 14:44:28
现在到了最关键，最精彩，也是最复杂的部分了。我们最关心的就是怎样“画”菜单，怎样处理菜单事件，在MenuWndProc这个处理消息的函数里，我们要处理如下消息：WM_COMMAND（单击菜单项），WM_MEASUREITEM（处理菜单高度和宽度），WM_MENUSELECT（选择菜单项），WM_DRAWITEM（绘制菜...
[阅读全文]
-
VB打造超酷个性化菜单（六）
[内容预览]
0 | 2008-04-01 14:44:27
接上篇）'拦截菜单消息(frmMenu窗口入口函数)FunctionMenuWndProc(ByValhwndAsLong,ByValMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLongSelectCaseMsgCaseWM_COMMAND'单击菜单项IfMyItem...
[阅读全文]
-
[图文] VB程序实现WindowsXP效果的界面
[内容预览]
0 | 2008-04-01 14:44:26
具体的实现方法如下：①：在你的窗体加入代码。如果是多个窗口，可以将此代码放到模块中。代码如下：'声明API函数PrivateDeclareSubInitCommonControlsLib"comctl32.dll"()PrivateSubForm_Initialize()InitCommonControlsEndSub...
[阅读全文]
-
[图文] Visual Basic 安装程序的制作
[内容预览]
0 | 2008-04-01 14:44:25
VisualBasic安装程序制作 安装程序制作是做项目必不可少的一道工序，在此笔者介绍一个最简单的安装方法，就是用ＶＢ自带的打包程序进行打包，虽然比较普通，不过内部却有不少窍门。 ①运行打包向导，如下图所示： ②点击“浏览”按钮，选择要打包的工程。然后单击“打包”按钮（在此只介绍打包，其他的功能不做介绍）。进入...
[阅读全文]
-
从Windows资源管理器中拖动文件
[内容预览]
0 | 2008-04-01 14:44:20
这里我们主要简单的讨论一下，如何从Windows资源管理器中拖动一组文本，然后将它们拖放到一个文本框控件中就可将文件全部打开。为了说明这一点，以下过程可用一个文本框控件以及OLEDragOver和OLEDragDrop事件，并用DataObject对象中的Files属性和vbCFFiles数据格式打开一组文本文件。首先...
[阅读全文]
-
Vb6里面数组的使用的小例子
[内容预览]
2 | 2008-04-01 14:44:19
Vb6里面数组的使用的小例子（1）：动态数组的使用(1.1)：首先声明数组的类型语法为dima()asinteger(1.2)：使用的时候定义数祖的下标和上标语法为redima(1to5)，表示数组的小标为1，上标为5。(1.3)：赋值举例如dimIasintegerfori=0to5a(i)=inexti(1.4)：...
[阅读全文]
-
vsprint打印实例
[内容预览]
3 | 2008-04-01 14:44:19
OptionExplicitPublicFunctionformatData2(ByValdata1AsDouble,ByValdata2AsDouble)AsStringDimdt1,dt2AsDoubledt1=data1dt2=data2Ifdt1=0Ordt1=0#Ordt2=0Ordt2=0#Thenform...
[阅读全文]
-
应用MapX编程实现地图数据查询
[内容预览]
0 | 2008-04-01 14:44:18
1、本程序实现从下列表中选择一个节点，并以此节点为中心进行进行定位的功能（实例以第一层RTUName属性的值进行查询）PrivateSubCommand1_Click()DimFindObjAsMapXLib.FindDimFoundFeatureAsFindFeature'从要查询的RTU图层生成Find对象，并为这...
[阅读全文]
-
VB中使用EXCEL输出
[内容预览]
0 | 2008-04-01 14:44:18
PrivateSubcmdSwatch_Click()DimxlsAsexcel.ApplicationDimxlbookAsexcel.Workbook'OnErrorGoToexlErrorDimiAsIntegerIfDir(Text1.Text)<>""Then'此目录下如有同名文件给出提示,并作相应处理IfM...
[阅读全文]
-
实现货币金额中文大写转换的程序
[内容预览]
0 | 2008-04-01 14:44:17
Functiondaxie(moneyAsString)AsString'DimxAsString,yAsStringConstzimu=".sbqwsbqysbqwsbq"'定义位置代码Constletter="0123456789sbqwy.zjf"'定义汉字缩写Constupcase="零壹贰叁肆伍陆柒捌玖拾佰仟...
[阅读全文]
-
[图文] VB自动登陆网络站点详解（一）：得到参数名
[内容预览]
0 | 2008-04-01 14:44:16
自动登陆站点有一个关键的地方就在于参数名的正确与否，因为各个WEB服务器接收的参数名都不可能相同，在程序中倘若参数名使用不正确，会误以为代码的错误而徒増烦恼，因此首先推荐一个很有用的工具“VisualSniffer”：它可以拦截通过网络传输的TCP/IP/UDP/ICMP等数据包，利用这个工具可以很轻松的得到向服务器发...
[阅读全文]
