这些代码是什么意思？
&script&type=&text/javascript&&(function()&{var&selfurl=window.location.href,siteurl,regex=/(^\w+:\/\/)((\w|\.)+)(:\d+)?\//;var&results=regex.exec(&selfurl+&/&&);if&(results==null)&siteurl&=&&else&siteurl&=&results[1]+results[2];document.write(&&scr&+&ipt&src=\&&+&&&charset=\&UTF-8\&&&/scr&+&ipt&&);})();&/script&
11-04-01 &
去这里看一下吧&
请登录后再发表评论!本帖子已过去太久远了，不再提供回复功能。这些代码是什么意思？
onClipEvent (load) { image_num = 21; sumnail_size = 50; x_revision = 2; y_revision = 8; main_x = 695; main_y = 270; ratio = 0.3; friction = 0.6; total_depth = 30; now_clip = 0; for (counter=1; counter&=image_ counter++) { this.attachMovie(&imageClip&, &imageClip&+counter, counter); this[&imageClip&+counter].attachMovie(&image&+counter, &image&, 1); this[&imageClip&+counter]._xscale = this[&imageClip&+counter]._yscale=12; this[&imageClip&+counter].run = this[&imageClip&+counter].first = } counter = 1; for (h_counter=1; h_counter&=Math.ceil(image_num/3); h_counter++) { for (v_counter=1; v_counter&=3; v_counter++) { this[&imageClip&+counter]._x = this[&imageClip&+counter].origin_x=(17.5*v_counter)+(sumnail_size*v_counter)-x_ this[&imageClip&+counter]._y = this[&imageClip&+counter].origin_y=(2*h_counter)+(sumnail_size*h_counter)-y_ counter++; if (counter&image_num) {
} } } MovieClip.prototype.imageShow = function() { if (run) { if (first) { this.swapDepths(++_parent.total_depth); next_x = -(random(50)+50); next_y = random(200)-100; first = gotoAndStop(2); } next_x = ((_parent.main_x-_x)*_parent.ratio+next_x)*_parent. next_y = ((_parent.main_y-_y)*_parent.ratio+next_y)*_parent. _x += next_x; _y += next_y; if (Math.abs(_x-_parent.main_x)&0.2 && Math.abs(_y-_parent.main_y)&0.2) { _x = main_x; _y = main_y; run = } } else { next_scale = (100-_xscale)*_parent. _xscale = _yscale += next_ if (next_scale&0.01) { _xscale = _yscale=100; system = } } }; MovieClip.prototype.imageOff = function() { if (_currentframe == 2) { gotoAndStop(1); counter = 1; } if (counter&30) { next_x = (origin_x-_x)*_parent. next_y = (origin_y-_y)*_parent. _x += next_x; _y += next_y; next_scale = (12-_xscale)*_parent. _xscale = _yscale += next_ if (Math.abs(next_scale)&0.01) { _xscale = _yscale=12; } if (Math.abs(next_x)&0.01 && Math.abs(next_y&0.01)) { _x = origin_x; _y = origin_y; system = } } else { imageShow(); system = counter++; } }; } onClipEvent (enterFrame) { for (counter=1; counter&=image_ counter++) { if (this[&imageClip&+counter].image_on) { this[&imageClip&+counter].imageShow(); } else { this[&imageClip&+counter].imageoff(); } } } this._parent.zqthis._parent.zq
08-11-04 &
太长了，懒得看……你直接复制到FLASH中用代码试试看看嘛。
请登录后再发表评论!匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。查看: 1217|回复: 3
为什么打开一个新文件簿中间含有这些代码？什么意思？起到什么作用？
阅读权限30
在线时间 小时
Option Explicit
Const sResourcePrefix As String = &RES_&
'Get Culture
Private Function GetATPUICultureTag() As String
& & Dim shTemp As Worksheet
& & Dim sCulture As String
& & Dim sSheetName As String
& &
& & sCulture = Application.International(xlUICultureTag)
& & sSheetName = sResourcePrefix + sCulture
& &
& & On Error Resume Next
& & Set shTemp = ThisWorkbook.Worksheets(sSheetName)
& & On Error GoTo 0
& & If shTemp Is Nothing Then sCulture = GetFallbackTag(sCulture)
& &
& & GetATPUICultureTag = sCulture
End Function
'Entry point for RibbonX button click
Sub ShowATPDialog(control As IRibbonControl)
& & Application.Run (&fDialog&)
End Sub
'Callback for RibbonX button label
Sub GetATPLabel(control As IRibbonControl, ByRef label)
& & label = ThisWorkbook.Sheets(sResourcePrefix + GetATPUICultureTag()).Range(&RibbonCommand&).Value
End Sub
'Callback for screentip
Public Sub GetATPScreenTip(control As IRibbonControl, ByRef label)
& & label = ThisWorkbook.Sheets(sResourcePrefix + GetATPUICultureTag()).Range(&ScreenTip&).Value
End Sub
'Callback for Super Tip
Public Sub GetATPSuperTip(control As IRibbonControl, ByRef label)
& & label = ThisWorkbook.Sheets(sResourcePrefix + GetATPUICultureTag()).Range(&SuperTip&).Value
End Sub
Public Sub GetGroupName(control As IRibbonControl, ByRef label)
& & label = ThisWorkbook.Sheets(sResourcePrefix + GetATPUICultureTag()).Range(&GroupName&).Value
End Sub
'Check for Fallback Languages
Private Function GetFallbackTag(szCulture As String) As String
& & 'Sorted alphabetically by returned culture tag, then input culture tag
& & Select Case (szCulture)
& && &&&Case &rm-CH&
& && && && &GetFallbackTag = &de-DE&
& && &&&Case &ca-ES&, &ca-ES-valencia&, &eu-ES&, &gl-ES&
& && && && &GetFallbackTag = &es-ES&
& && &&&Case &lb-LU&
& && && && &GetFallbackTag = &fr-FR&
& && &&&Case &nn-NO&
& && && && &GetFallbackTag = &nb-NO&
& && &&&Case &be-BY&, &ky-KG&, &tg-Cyrl-TJ&, &tt-RU&, &uz-Latn-UZ&
& && && && &GetFallbackTag = &ru-RU&
& && &&&Case Else
& && && && &GetFallbackTag = &en-US&
& & End Select
End Function
复制代码这样的代码
_094522.png (80.1 KB, 下载次数: 24)
09:46 上传
为什么打开一个新文件簿中间含有这些代码？什么意思？起到什么作用？
(5.58 KB, 下载次数: 4)
09:47 上传
点击文件名下载附件
阅读权限20
在线时间 小时
& & & & & & & &
这不是在工作簿1里的，你仔细看左边的栏，这是一个加载宏（.xlam）。
阅读权限30
在线时间 小时
& & & & & & & &
这不是在工作簿1里的，你仔细看左边的栏，这是一个加载宏（.xlam）。
这个 宏有哪些作用？
阅读权限95
在线时间 小时
这个 宏有哪些作用？
细品RibbonX(1-59) (转)
(出处: ExcelHome技术论坛)
看看这个帖子吧。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师