📄 flash_vb.js

📁 电子备课系统

💻 JS

字号:

Function VBGetSwfVer(i)
	on error resume next
	Dim swControl, swVersion
	swVersion = 0
	set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
	if (IsObject(swControl)) then
		swVersion = swControl.GetVariable("$version")
	end if
	VBGetSwfVer = swVersion
End Function

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -