VBA+AO常用代码
VBA＋AO常用代码
ArcMap定制
Zoom Pan
Zoomin
功能：放大，通过一跟踪矩形
具体实现：新添一UIcontrol：zoomin
Private Sub zoomin_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)
Dim mxdoc As IMxDocument
Dim pa As IActiveView
Dim pdis As IScreenDisplay
Dim pr As IRubberBand
Dim pEnv As IEnvelope
Set mxdoc = Application.Document
Set pa = mxdoc.FocusMap
Set pdis = pa.ScreenDisplay
Set pr = New RubberEnvelope
Set pEnv = pr.TrackNew(pdis, Nothing)
pa.Extent = pEnv
pa.Refresh
End Sub
FixedZoomin
功能：鼠标点击放大，以点击为中心，放大到原来的2倍
具体实现：新添一UIcontrol：Fixed zoomin
Private Sub fixedzoomin_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)
Dim mxdoc As IMxDocument 'zoomin clickpoint center,same as zoomout
Dim pa As IActiveView
Dim pmap As IMap
Set mxdoc = Application.Document
Set pa = mxdoc.FocusMap
Set pmap = mxdoc.FocusMap
Dim pev As IEnvelope
Dim pp As IPoint
Set pp = pa.ScreenDisplay.DisplayTransformation.ToMapPoint(x, y)
Set pev = pa.Extent
If CDbl(pp.x) <= pev.XMin + pev.Width / 2 And CDbl(pp.y) <= pev.YMin + pev.Height / 2 Then pev.Width = 2 * (pp.x - pev.XMin)
pev.Height = 2 * (pp.y - pev.YMin)
ElseIf CDbl(pp.x) < pev.XMin + pev.Width / 2 And CDbl(pp.y) > pev.YMin + pev.Height / 2 Then pev.Width = 2 * (pp.x - pev.XMin)
pev.Height = 2 * (pev.YMax - pp.y)
ElseIf CDbl(pp.x) > pev.XMin + pev.Width / 2 And CDbl(pp.y) > pev.YMin + pev.Height / 2 Then pev.Width = 2 * (pev.XMax - pp.x)
pev.Height = 2 * (pev.YMax - pp.y)
ElseIf CDbl(pp.x) > pev.XMin + pev.Width / 2 And CDbl(pp.y) < pev.YMin + pev.Height / 2 Then pev.Width = 2 * (pev.XMax - pp.x)
pev.Height = 2 * (pp.y - pev.YMin)
End If
pev.CenterAt pp
'pev.Expand 0.5, 0.5, True
pa.Extent = pev
pa.Refresh
End Sub
Zoomout
功能：缩小
具体实现：新添一UIcontrol：zoomout
Private Sub zoomout_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)
Dim mxdoc As IMxDocument
Dim pa As IActiveView
Dim pdis As IScreenDisplay
Dim pr As IRubberBand
Dim pEnv As IEnvelope
Dim pp As IPoint
Set mxdoc = Application.Document
Set pa = mxdoc.FocusMap
Set pdis = pa.ScreenDisplay
Set pr = New RubberEnvelope
Set pEnv = pr.TrackNew(pdis, Nothing)
Set pp = New Point
pp.x = (pEnv.XMax + pEnv.XMin) / 2
pp.y = (pEnv.YMax + pEnv.YMin) / 2
pEnv.Width = pa.Extent.Width * pa.Extent.Width / pEnv.Width
pEnv.Height = pa.Extent.Height * pa.Extent.Height / pEnv.Height
pEnv.CenterAt pp
pa.Extent = pEnv
pa.Refresh
End Sub
Zoomtoselect
功能：缩放到选择要素
具体实现：新添一UIcontrol：zoomtoselect
Private Sub zoomtoselect_Select()
Dim mxdoc As IMxDocument
Dim pa As IActiveView
Dim penumf As IEnumFeature
Dim pf As IFeature
Dim pEnv As IEnvelope
Dim pmap As IMap
Set mxdoc = Application.Document
Set pa = mxdoc.FocusMap
Set pmap = mxdoc.FocusMap
If pmap.SelectionCount > 0 Then
Set penumf = pmap.FeatureSelection penumf.Reset
Set pf = penumf.Next
Set pEnv = pf.Extent
pa.Extent = pEnv
pa.Refresh
End If
End Sub
ZoomtoLayer
功能：缩放到选择要素
具体实现：新添一UIcontrol：zoomtoLayer Dim pGeoDataset As IGeoDataset
Set pGeoDataset = pLayer
pActiveView.Extent = pGeoDataset.Extent pActiveView.Refresh
Full Extent
功能：全图显示
具体实现：新添一Module,添加函数：fullextent
Public Sub fullextent()
Dim mxdoc As IMxDocument
Dim pa As IActiveView
Set mxdoc = Application.Document
Set pa = mxdoc.FocusMap
pa.Extent = pa.fullextent
pa.Refresh
End Sub
Rotate
功能：旋转
具体实现：新添一UIcontrol：Rotate
Private Sub rotate_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)
Dim mxdoc As IMxDocument
Dim pa As IActiveView
Dim pdis As IScreenDisplay
Set mxdoc = Application.Document
Set pa = mxdoc.FocusMap
Set pdis = pa.ScreenDisplay
pdis.TrackRotate
End Sub
Pan
功能：漫游
具体实现：新添一UIcontrol：Pan
Private Sub pan_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)
Dim mxdoc As IMxDocument
Dim pa As IActiveView
Dim pdis As IScreenDisplay
Set mxdoc = Application.Document
Set pa = mxdoc.FocusMap
Set pdis = pa.ScreenDisplay
pdis.TrackPan
End Sub
Panwest
功能：向西漫游
具体实现：新添一UIcontrol：PanWest
Private Sub panwest_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)
Const panfactor = 0.25
Dim mxdoc As IMxDocument
Dim pa As IActiveView
Set mxdoc = Application.Document
Set pa = mxdoc.FocusMap
Dim penv As IEnvelope
Set penv = pa.Extent
Dim xmin As Double, xmax As Double, ymin As Double, ymax As Double
xmin = penv.xmin - penv.Width * panfactor
xmax = penv.xmax - penv.Width * panfactor
ymin = penv.ymin
ymax = penv.ymax
If Not checkit(xmin, xmax) Then
xmin = pa.fullextent.xmin
xmax = xmin + penv.Width
End If
penv.PutCoords xmin, ymin, xmax, ymax
pa.Extent = penv
pa.Refresh
End Sub
Private Function checkit(minx As Double, maxx As Double) As Boole an Dim mxdoc As IMxDocument
Dim pa As IActiveView
Set mxdoc = Application.Document
Set pa = mxdoc.FocusMap
Dim pfullenv As IEnvelope
Set pfullenv = pa.fullextent
If minx >= pfullenv.xmin Then
checkit = True
Else
checkit = False
End If
End Function
File
AddData
功能：添加Layer
具体实现：新添一UIcontrol：AddData Ｐｒｉｖａｔｅ Ｓｕｂ ＡｄｄＤａｔａ＿Ｓｅｌｅｃｔ（）
Ｄｉｍ ｐＭｘＤｏｃ Ａｓ ＩＭｘＤｏｃｕｍｅｎｔ
Ｄｉｍ ｐＤｌｇ Ａｓ ＩＡｄｄＤａｔａＤｉａｌｏｇ
Ｄｉｍ ｂＯＫ Ａｓ Ｂｏｏｌｅａｎ
Ｓｅｔ ｐＭｘＤｏｃ ＝ ＴｈｉｓＤｏｃｕｍｅｎｔ
Ｓｅｔ ｐＤｌｇ ＝ Ｎｅｗ ＡｄｄＤａｔａＤｉａｌｏｇ
ｐＤｌｇ．Ｄｏｃｕｍｅｎｔ ＝ ｐＭｘＤｏｃ
ｐＤｌｇ．Ｍａｐ ＝ ｐＭｘＤｏｃ．ＦｏｃｕｓＭａｐ
ｐＤｌｇ．Ｓｈｏｗ Ａｐｐｌｉｃａｔｉｏｎ．ｈＷｎｄ， ｂＯＫ
Ｅｎｄ Ｓｕｂ
javascript常用代码大全
Javascript常用代码大全 //打开模式对话框
//返回模式对话框的值 function okbtn_onclick() { var commstr=''; window.returnValue=commstr; window.close() ; } okbtn_onclick() //全屏幕打开IE 窗口 var winWidth=screen.availWidth ; var winHeight=screen.availHeight-20; window.open("main.aspx","surveyWindow","toolbar=no,wid th="+ winWidth +",height="+ winHeight +",top=0,left=0,scrollbars=yes,resizable=yes,center:yes,statu sbars=yes"); //脚本中中使用xml function initialize() { var xmlDoc var xslDoc xmlDoc = new ActiveXObject('Microsoft.XMLDOM') xmlDoc.async = false; xslDoc = new ActiveXObject('Microsoft.XMLDOM') xslDoc.async = false; xmlDoc.load("tree.xml") xslDoc.load("tree.xsl") folderTree.innerHTML = xmlDoc.documentElement.transformNode(xslDoc) } 一、验证类 1、数字验证内 1.1 整数 1.2 大于0的整数（用于传来的ID的验证) 1.3 负整数的验证 1.4 整数不能大于iMax 1.5 整数不能小于iMin 2、时间类 2.1 短时间，形如(13:04:06) 2.2 短日期，形如(2003-12-05) 2.3 长时间，形如(2003-12-05 13:04:06) 2.4 只有年和月。形如(2003-05,或者2003-5) 2.5 只有小时和分钟,形如(12:03) 3、表单类 3.1 所有的表单的值都不能为空 3.2 多行文本框的值不能为空。 3.3 多行文本框的值不能超过sMaxStrleng 3.4 多行文本框的值不能少于sMixStrleng 3.5 判断单选框是否选择。 3.6 判断复选框是否选择. 3.7 复选框的全选，多选，全不选，反选 3.8 文件上传过程中判断文件类型 4、字符类 4.1 判断字符全部由a-Z或者是A-Z的字字母组成 4.2 判断字符由字母和数字组成。 4.3 判断字符由字母和数字，下划线,点号组成.且开头的只能是下划线和字母 4.4 字符串替换函数.Replace(); 5、浏览器类 5.1 判断浏览器的类型 5.2 判断ie的版本 5.3 判断客户端的分辨率 6、结合类 6.1 email的判断。 6.2 手机号码的验证 6.3 身份证的验证 二、功能类 1、时间与相关控件类 1.1 日历 1.2 时间控件 1.3 万年历 1.4 显示动态显示时钟效果（文本，如OA中时间） 1.5 显示动态显示时钟效果(图像，像手表) 2、表单类 2.1 自动生成表单 2.2 动态添加，修改，删除下拉框中的元素 2.3 可以输入内容的下拉框 2.4 多行文本框中只能输入iMax文字。如果多输入了，自动减少到iMax个文字（多用于短信发送) 3、打印类 3.1 打印控件 4、事件类 4.1 屏蔽右键 4.2 屏蔽所有功能键 4.3 --> 和<-- F5 F11,F9,F1 4.4 屏蔽组合键ctrl+N 5、网页设计类 5.1 连续滚动的文字，图片excelvba常见字典用法集锦及代码详解(全)
常见字典用法集锦及代码详解 前言 凡是上过学校的人都使用过字典，从新华字典、成语词典，到英汉字典以及各种各样数不胜数的专业字典，字典是上学必备的、经常查阅的工具书。有了它们，我们可以很方便的通过查找某个关键字，进而查到这个关键字的种种解释，非常快捷实用。 凡是上过EH论坛的想学习VBA里面字典用法的，几乎都看过研究过northwolves狼版主、oobird版主的有关字典的精华贴和经典代码。我也是从这里接触到和学习到字典的，在此，对他们表示深深的谢意，同时也对很多把字典用得出神入化的高手们致敬，从他们那里我们也学到了很多，也得到了提高。 字典对象只有4个属性和6个方法，相对其它的对象要简洁得多，而且容易理解使用方便，功能强大，运行速度非常快，效率极高。深受大家的喜爱。 本文希望通过对一些字典应用的典型实例的代码的详细解释来
给初次接触字典和想要进一步了解字典用法的朋友提供一点备查的参考资料，希望大家能喜欢。 给代码注释估计是大家都怕做的，因为往往是出力不讨好的，稍不留神或者自己确实理解得不对，还会贻误他人。所以下面的这些注释如果有不对或者不妥当的地方，请大家跟帖时指正批评，及时改正。 字典的简介 字典（Dictionary）对象是微软Windows脚本语言中的一个很有用的对象。 附带提一下，有名的正则表达式（RegExp）对象和能方便处理驱动器、文件夹和文件的（FileSystemObject）对象也是微软Windows脚本语言中的一份子。 字典对象相当于一种联合数组，它是由具有唯一性的关键字（Key）和它的项（Item）联合组成。就好像一本字典书一样，是
VBA常用代码大全
.、八、- 刖言 我们平时在工作表单元格的公式中常常使用函数，EGcel自带的常用的函数多达300多个, 功能强大，丰富多彩，但是在 VBA中不能直接应用，必须在函数名前面加上对象，比如：Applicatio n. WorksheetF un ctio n.Sum(arg1,arg2,arg3) 。 而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数, 以供大家学习参考。 第1.1例ASC函数 一、题目： 要求编写一段代码，运行后得到字符串”EGcel”的首字母和” e”的ASCII值。 二、代码： Sub 示例_1_01() DimmyNum1%,myNum2% myNum仁Asc("EGcel")'返回 69 myNum2=Asc("e")' 返回 101 [a1]="myNum 1=":[b1]=myNum1 [a2]="myNum2=":[b2]=myNum2 En dSub 三、代码详解 1、Sub示例_1_01():宏程序的开始语句。 2、DimmyNum1%,myNum2% :变量 myNum1 和 myNum2 声明为整型变量。 也可以写为DimmyNum1AsInteger 。Integer变量存储为16位(2个字节)的数值形式，
其范围为-32,768到32,767之间。Integer的类型声明字符是百分比符号(％)。 3、myNum1=Asc("EGcel"):把 Asc 函数的值赋给变量 myNum1 。 Asc函数返回一个Integer，代表字符串中首字母的字符的 ASCII代码。 语法 Asc(stri ng) 必要的string (字符串)参数可以是任何有效的字符串表达式。如果string中没有包含任何字符，则会产生运行时错误。 4、myNum2=Asc("e"):把Asc函数的值赋给变量myNum2。这里返回小写字母e的ASCII 代码101。 5、 [a1]="myNum仁":[b1]=myNum1 :把字符串“ myNum仁“赋给A1单元格，把变量myNum1的值赋给B1单元格。 6、 [a2]="myNum2=":[b2]=myNum2 :把字符串“ myNum2= “赋给 A2 单元格，把变量myNum2的值赋给B2单元格。 7、 EndSub :程序的结束语句，和“ Sub示例_1_01 ()”相对应。 第1.2例Chr函数 一、题目"": 要求编写一段代码，运用 Chr函数将ASCII值转换为对应的字符 二、代码： Sub 示例_1_02() DimmyChar1$,myChar2$ myChar仁Chr(69)'返回 E。 myChar2=Chr(101)' 返回 e。 [a1]="myChar1=":[b1]=myChar1 [a2]="myChar2=":[b2]=myChar2
Excel VBA常用代码VSTO版20150425
21-1 使用工作表的名称 this.Application.Worksheets["工作表2"].Activate(); 21-2 使用工作的索引号 this.Application.Worksheets[2].Activate(); 21-3 使用工作表的代码名称 MessageBox.Show(this.Application.ActiveSheet.CodeName); 21-4 用ActiveSheet属性引用活动工作表 this.Application.Worksheets[2].Select(); MessageBox.Show(https://www.wendangku.net/doc/e710094477.html,); 22-1 选择工作表的方法 this.Application.Worksheets[2].Select(); this.Application.Worksheets[2].Activate(); 23-1 使用For遍历工作表 intwkCount = this.Application.Worksheets.Count; string s = string.Empty; for (inti = 1; i<= wkCount; i++) { s = s + this.Application.Worksheets[i].Name + "\n"; } MessageBox.Show("工作簿中含有以下工作表:" + "\n" + s); 23-2 使用ForEach语句 string s = string.Empty; foreach (Excel.Worksheetwk in this.Application.Worksheets) { s = s + https://www.wendangku.net/doc/e710094477.html, + "\n"; } MessageBox.Show("工作簿中含有以下工作表:" + "\n" + s); 24-1 在工作表中向下翻页 Excel.Sheetsshs=Globals.ThisWorkbook.Worksheets; Excel.WorksheetwkThis = shs.Application.ActiveSheet; Excel.WorksheetwkNext; intwkIndex = wkThis.Index; intwkCount = shs.Count; if (wkIndex 代码一 1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键 JavaScript 经典代码大全
可用于Table 2. 取消选取、防止复制 3. onpaste="return false" 不准粘贴 4. oncopy="return false;" oncut="return false;" 防止复制 5. IE地址栏前换成自己的图标 6. 可以在收藏夹中显示出你的图标 7. 关闭输入法 8. 永远都会带着框架 9. 防止被人frame 10. 网页将不能被另存为 11. 12.删除时确认 删除 13. 取得控件的绝对位置 //javascript //VBScript ”); } } 如果写在页面端，则用户刷新一次，访问人数就增加 voidSession_Start(object sender, EventArgs e) { // Code that runs when a new session is started //在新会话启动时运行的代码 //取出application中的值 Application.Lock(); int count = (int)Application["count"]; count++; Application["count"] = count; //将此返回服务器Response.Write("你是第" + Application["count"] + "位访客"); Application.UnLock(); }no
网页设计代码大全
段落标记background:网页背景图像… bgcolor：网页背景颜色align:left right center text:字体颜色强制换行标记link：可链接文字的色彩alink：被鼠标点中时可链接文字的颜色预排格式标记vlink：已经单击过的可链接文字的颜色 leftmargin：页面左边距插入水平线标记topmargin：页面上边距
Vlink：已经单击过的可链接文字的颜色文本缩标记Leftmargin：页面左边距
…Topmargin：页面上边距列表标记 标题格式标记 1.无序
- align：left(左) right(右) center(中)
- 列1 bottom(底) top(顶)
- 列2文字格式标记……… color=“颜色”>文字 type:disc● circle○ square■字形设置标记 2.有序字形 粗 字形 下划线
- 字形 斜 字形文字增大
- 列1
字形删除线 - 列2 字形 文字减小………字形 上标 字形下标
字形 闪烁 字形斜 - 条目1
- 条目1的说明字形 特别强调………
Excel VBA常用代码总结1
Excel VBA常用代码总结1 改变背景色 Range("A1"). = xlNone ColorIndex一览 改变文字颜色 Range("A1"). = 1 获取单元格 Cells(1, 2) Range("H7") 获取范围 Range(Cells(2, 3), Cells(4, 5)) Range("a1:c3") '用快捷记号引用单元格 Worksheets("Sheet1").[A1:B5] 选中某sheet Set NewSheet = Sheets("sheet1") 选中或激活某单元格 '“Range”对象的的Select方法可以选择一个或多个单元格，而Activate方法可以指定某一个单元格为活动单元格。 '下面的代码首先选择A1:E10区域，同时激活D4单元格： Range("a1:e10").Select
Range("d4:e5").Activate '而对于下面的代码： Range("a1:e10").Select Range("f11:g15").Activate '由于区域A1:E10和F11:G15没有公共区域，将最终选择F11:G15，并激活F11单元格。 获得文档的路径和文件名 '路径 '名称 '路径＋名称 '或将ActiveWorkbook换成thisworkbook 隐藏文档 = False 禁止屏幕更新 = False 禁止显示提示和警告消息 = False 文件夹做成 strPath = "C:\temp\" MkDir strPath 状态栏文字表示 = "计算中" 双击单元格内容变换 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If>= 5And<= 8) Then If= "●"Then = "" Else = "●" End If Cancel = True End If End Sub 文件夹选择框方法1 Set objShell = CreateObject("") Set objFolder = (0, "文件", 0, 0) If Not objFolder Is Nothing Then path= & "\" end if
EXCELVBA常用代码实战大全共393页word资料
VBA常用技巧代码解析 yuanzhuping 1VBA VBAVBA VBA常用 常用常用 常用技巧 技巧技巧 技巧 目录 目录目录 目录 VBA VBAVBA VBA常用技巧 常用技巧常用技巧 常用技巧 ------------------------------------------------------------------------------------------------------- 1 第1章 Range（单元格）对象 -------------------------------------------------------------------- 10 技巧1 单元格的引用方法 ---------------------------------------------------------------------- 10 1-1 使用Range属性 ----------------------------------------------------------------------- 10 1-2 使用Cells属性 ------------------------------------------------------------------------ 11 1-3 使用快捷记号 -------------------------------------------------------------------------- 11 1-4 使用Offset属性 ----------------------------------------------------------------------- 12 1-5 使用Resize属性 ----------------------------------------------------------------------- 13 1-6 使用Union方法 ----------------------------------------------------------------------- 14 1-7 使用UsedRange属性 ---------------------------------------------------------------- 14 1-8 使用CurrentRegion属性 ------------------------------------------------------------ 15 技巧2 选定单元格区域的方法---------------------------------------------------------------- 15 2-1 使用Select方法 ----------------------------------------------------------------------- 15 2-2 使用Activate方法 -------------------------------------------------------------------- 16 2-3 使用Goto方法 ------------------------------------------------------------------------- 17 技巧3 获得指定行、列中的最后一个非空单元格 -------------------------------------- 17 技巧4 定位单元格 ------------------------------------------------------------------------------- 20
https://www.wendangku.net/doc/e710094477.html,常用代码
1.//弹出对话框.点击转向指定页面 Response.Write(""); Response.Write(""); 2.//弹出对话框 Response.Write(""); 3.//删除文件 string filename ="20059595157517.jpg"; pub.util.DeleteFile(HttpContext.Current.Server.MapPath("../file/")+filename); 4.//绑定下拉列表框datalist System.Data.DataView dv=conn.Exec_ex("select -1 as code,'请选择经营模式' as content from dealin union select code,content from dealin"); this.dealincode.DataSource=dv; this.dealincode.DataTextField="content"; this.dealincode.DataValueField="code"; this.dealincode.DataBind(); this.dealincode.Items.FindByValue(dv[0]["dealincode"].ToString()).Selected=true; 5.//时间去秒显示 <%# System.DateTime.Parse(DataBinder.Eval(Container.DataItem,"begtime").ToString()).ToShortDate String()%> 6.//标题带链接 <%# ""+ DataBinder.Eval(Container.DataItem,"proname")+""%> 7.//修改转向 <%# ""+"修改"+""%>
Excel VBA编程的常用代码
用过VB的人都应该知道如何声明变量，在VBA中声明变量和VB中是完全一样的！ 使用Dim语句 Dim a as integer '声明a为整型变量 Dim a '声明a为变体变量 Dim a as string '声明a为字符串变量 Dim a as currency ,b as currency ,c as currency '声明a,b,c为货币变量 ...... 声明变量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（当前不支持）、Date、String（只限变长字符串）、String * length（定长字符串）、Object、Variant、用户定义类型或对象类型。 强制声明变量 Option Explicit 说明：该语句必在任何过程之前出现在模块中。 声明常数 用来代替文字值。 Const ' 常数的默认状态是 Private。 Const My = 456 ' 声明 Public 常数。 Public Const MyString = "HELP" ' 声明 Private Integer 常数。 Private Const MyInt As Integer = 5 ' 在同一行里声明多个常数。 Const MyStr = "Hello", MyDouble As Double = 3.4567 选择当前单元格所在区域 在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就
可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。 Sub My_Select Selection.CurrentRegion.Select End sub 返回当前单元格中数据删除前后空格后的值 sub my_trim msgbox Trim(ActiveCell.Value) end sub 单元格位移 sub my_offset ActiveCell.Offset(0, 1).Select'当前单元格向左移动一格 ActiveCell.Offset(0, -1).Select'当前单元格向右移动一格 ActiveCell.Offset(1 , 0).Select'当前单元格向下移动一格 ActiveCell.Offset(-1 , 0).Select'当前单元格向上移动一格 end sub 如果上述程序产生错误那是因为单元格不能移动，为了解除上述错误，我们可以往 sub my_offset 之下加一段代码 on error resume next 注意以下代码都不再添加sub “代码名称” 和end sub请自己添加! 给当前单元格赋值 ActiveCell.Value = "你好！！！" 给指定单元格赋值 例如：Ａ１单元格内容设为"ＨＥＬＬＯ" Range("a1").value="hello" 又如：你现在的工作簿在sheet1上，你要往sheet2的Ａ１单元格中插入"ＨＥＬＬＯ" 1. sheets("sheet2").select
Flash常用按钮代码大全
Flash按钮代码大全在2,0中制作 1、转下一帧并继续播放 on (release) { play(); } 2、转第三帧并播放 on (release) { gotoAndPlay(03);//数字是代表的帧数 stopAllSounds(); } 3、全屏播放 fscommand("fullscreen", "true"); 4、退出 on (release) { if (substring(_root._url, 8, 1) == "/") { fscommand("quit"); } else { getURL("javascript:window.close()"); } // end if } 5、返回第一帧 on (release) { gotoAndPlay(01); stopAllSounds(); }
FLASH脚本代码大全- Go to 跳转到指定的帧 - Play 播放 - Stop 停止 - Toggle High Quality 在高画质和低画质间切换 - Stop All Sounds 停止所有声音的播放 - Get URL 跳转至某个超联结 - FSCommand 发送FSCommand命令 - Load Movie 装载影片 - Unload Movie 卸载影片 - Tell Target 告知目标 - If Frame Is Loaded ..判断帧是否被完全载入 - On Mouse Event 鼠标事件 。其他Actions。包括： - break 跳出循环 - call 调用指定帧（一般喊有某个特定函数） - comment 注释 - continue 继续循环 - delete 删除一个对象(Object)中的变量
Asp常用代码
第一篇 1. 打开新的窗口并传送参数： 传送参数： response.write("
- 列1