<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="10; url=http://www.cvery.com">
<title>非常世纪软件站下载文件说明</title>
<style>A {
FONT-SIZE: 12px; COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
COLOR: #ffcc00
}
A.blue {
COLOR: darkblue
}
body, p, td {
FONT-SIZE: 12px
}</style>
</head>
<body style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #000000 1px solid; MARGIN: 0pt; OVERFLOW: hidden; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid" bgColor="#009ace" leftMargin="0" topMargin="10">
<div align="center">
<center>
<p> </p>
<p> </p>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-style: dotted; border-width: 1" bordercolor="#000000" width="529" height="251" id="AutoNumber1">
<tr>
<td width="520" height="20" bgcolor="#000000"><font color="#FFFFFF"> ·非常世纪软件
& 下载说明</font></td>
</tr>
<tr>
<td width="529" height="210" bgcolor="#FFAD00" valign="top"><br>
您下载的该文件来自非常世纪||||http://www.cvery.com<br>
<br>
使用前请您先阅读以下条款，否则请勿使用本站提供的文件！<br>
1) 本站不保证所提供软件或程序的完整性和安全性。<br>
2) 请在使用前查毒 (这也是您使用其它网络资源所必须注意的) 。<br>
3) 近来部分国产软件、汉化安装程序捆绑流氓插件，请在安装过程中谨慎点击下一步。<br>
4) 如果本站提供的程序对您的网站或计算机造成损失或损害，本站概不负责。<br>
5) 转载本站提供的资源请勿删除本说明文件。<br>
6) 本站对提供下载的软件等不拥有任何权利，其版权归该下载资源的合法拥有者所有。。<br>
7) 本站提供的程序均为网上搜集，如果涉及或侵害到您的版权请立即联系我们。
<p> <a href="http://bbs.cvery.com">更多问题请到非常世纪论坛||http://bbs.cvery.com，在那里您可以得到更多的技术支持！</a></p>
<p> 联系管理员： <a href="mailto:cvery@yeah.net">cvery@yeah.net</a><br>
<a href="mailto:cvery@yeah.net"><span lang="en-us">
</span></a> <font size="2"><i>w</i></font><i><font size="2">ww.cvery.com</font><b><a href="http://www.cvery.com"><font size="2"><font color="#FF0000">！</font><font color="#FFFF00">！</font><font color="#009ACE">！</font></font></a></b></i></p>
</td>
</tr>
<tr>
<td width="529" height="16" bgcolor="#009BCE" bordercolor="#008000">
<marquee onmouseover="this.stop()" onmouseout="this.start()" scrollamount="50" scrolldelay="100" behavior="slide" loop="1">
<a href="http://www.cvery.com">C V E R Y . C O M Powered by cvery.STUDIO</a></marquee> </td>
</tr>
</table>
</center>
</div>
<p align="center">
</p>
<script language="JavaScript">
<!-- Begin
var rate = 20;
var obj;
var act = 0;
var elmH = 0;
var elmS = 128;
var elmV = 255;
var clrOrg;
var TimerID;
if (navigator.appName.indexOf("Microsoft",0) != -1 && parseInt(navigator.appVersion) >= 4) {
Browser = true;
} else {
Browser = false;
}
if (Browser) {
document.onmouseover = doRainbowAnchor;
document.onmouseout = stopRainbowAnchor;
}
function doRainbow()
{
if (Browser && act != 1) {
act = 1;
obj = event.srcElement;
clrOrg = obj.style.color;
TimerID = setInterval("ChangeColor()",100);
}
}
function stopRainbow()
{
if (Browser && act != 0) {
obj.style.color = clrOrg;
clearInterval(TimerID);
act = 0;
}
}
function doRainbowAnchor()
{
if (Browser && act != 1) {
obj = event.srcElement;
while (obj.tagName != 'A' && obj.tagName != 'BODY') {
obj = obj.parentElement;
if (obj.tagName == 'A' || obj.tagName == 'BODY')
break;
}
if (obj.tagName == 'A' && obj.href != '') {
act = 1;
clrOrg = obj.style.color;
TimerID = setInterval("ChangeColor()",100);
}
}
}
function stopRainbowAnchor()
{
if (Browser && act != 0) {
if (obj.tagName == 'A') {
obj.style.color = clrOrg;
clearInterval(TimerID);
act = 0;
}
}
}
function ChangeColor()
{
obj.style.color = makeColor();
}
function makeColor()
{
if (elmS == 0) {
elmR = elmV; elmG = elmV; elmB = elmV;
}
else {
t1 = elmV;
t2 = (255 - elmS) * elmV / 255;
t3 = elmH % 60;
t3 = (t1 - t2) * t3 / 60;
if (elmH < 60) {
elmR = t1; elmB = t2; elmG = t2 + t3;
}
else if (elmH < 120) {
elmG = t1; elmB = t2; elmR = t1 - t3;
}
else if (elmH < 180) {
elmG = t1; elmR = t2; elmB = t2 + t3;
}
else if (elmH < 240) {
elmB = t1; elmR = t2; elmG = t1 - t3;
}
else if (elmH < 300) {
elmB = t1; elmG = t2; elmR = t2 + t3;
}
else if (elmH < 360) {
elmR = t1; elmG = t2; elmB = t1 - t3;
}
else {
elmR = 0; elmG = 0; elmB = 0;
}
}
elmR = Math.floor(elmR);
elmG = Math.floor(elmG);
elmB = Math.floor(elmB);
clrRGB = '#' + elmR.toString(16) + elmG.toString(16) + elmB.toString(16);
elmH = elmH + rate;
if (elmH >= 360)
elmH = 0;
return clrRGB;
}
// End -->
</script>
</body>
</html>
VB 在自己窗体打开别人程序
4星 · 超过85%的资源 需积分: 9 111 浏览量
2008-09-22
01:28:36
上传
评论
收藏 9KB RAR 举报 
.rar （6个子文件） 
cvery.comvb64809044 
modHwnd.bas 2KB RunInMyForm.vbp 636B frmMain.frm 4KB
RunInMyForm.exe 24KB RunInMyForm.vbw 83B 下载说明.htm 5KB资源评论
hopfish2014-09-29可以用的，有源码
gaokeyan20052012-09-10操作系统自带的记事本可以实现，自己制作的EXE程序窗体不能实现，不知为什么，不过还是谢谢你的分享！
