⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 几款vb美化代码_㊣云林茶业㊣.htm

📁 自己总结的一些VB资料
💻 HTM
📖 第 1 页 / 共 2 页
字号:
🔍
12 
#usrbar A {
	LETTER-SPACING: normal
}
#usrbar A:link {
	LETTER-SPACING: normal
}
#usrbar A:visited {
	LETTER-SPACING: normal
}
#ft {
	LETTER-SPACING: normal
}
#ft A {
	LETTER-SPACING: normal
}
#ft A:link {
	LETTER-SPACING: normal
}
#ft A:visited {
	LETTER-SPACING: normal
}
</STYLE>

<DIV id=usrbar><NOBR><A href="http://www.baidu.com/" target=_blank>百度首页</A> | <A 
id=hi_index href="http://hi.baidu.com/" target=_blank>百度空间</A>
<SCRIPT type=text/javascript>
		document.write('| <a href="http://passport.baidu.com/?login&tpl=sp&tpl_reg=sp&u=http://hi.baidu.com' + encodeURI('/yunlintea/blog/item/1f5cbddc2a4eb7a7cd1166d2%2Ehtml') + '">登录</a>');
		</SCRIPT>
 </NOBR></DIV>
<DIV id=main align=left><!--[if IE]>
<SCRIPT>
var objmain = document.getElementById("main");
function updatesize(){ var bodyw = window.document.body.offsetWidth; if(bodyw <= 790) objmain.style.width="772px"; else if(bodyw >= 1016) objmain.style.width="996px"; else objmain.style.width="100%"; }
updatesize(); window.onresize = updatesize;
</SCRIPT>
<![endif]-->
<DIV id=header>
<DIV class=lc>
<DIV class=rc></DIV></DIV>
<DIV class=tit><A class=titlink 
title="yunlintea的空间 http://hi.baidu.com/yunlintea" 
href="http://hi.baidu.com/yunlintea">㊣云林茶业㊣</A></DIV>
<DIV class=desc>男人最痛是有苦说不出口，有泪却不能流！这里所有软件均来自网络，如有侵犯您的版权，请您留言告知，我会立即删除。</DIV>
<DIV id=tabline></DIV>
<DIV id=tab><A href="http://hi.baidu.com/yunlintea">主页</A><A class=on 
href="http://hi.baidu.com/yunlintea/blog">博客</A><A 
href="http://hi.baidu.com/yunlintea/album">相册</A><SPAN>|</SPAN><A 
href="http://hi.baidu.com/yunlintea/profile">个人档案</A> <SPAN>|</SPAN><A 
href="http://hi.baidu.com/yunlintea/friend">好友</A> </DIV></DIV>
<DIV class=stage>
<DIV class=stagepad>
<DIV style="WIDTH: 100%">
<TABLE class=modth cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD class=modtl width=7>&nbsp;</TD>
    <TD class=modtc noWrap>
      <DIV class=modhead><SPAN class=modtit>查看文章</SPAN></DIV></TD>
    <TD class=modtc noWrap align=right></TD>
    <TD class=modtr width=7>&nbsp;</TD></TR></TBODY></TABLE>
<DIV class=modbox id=m_blog>
<DIV class=tit>几款VB美化代码</DIV>
<DIV class=date>2008年07月20日 星期日 17:24</DIV>
<TABLE style="TABLE-LAYOUT: fixed">
  <TBODY>
  <TR>
    <TD>
      <DIV class=cnt id=blog_text>
      <H2>几款VB美化代码</H2>
      <DIV class=t_msgfont>窗体半透明效果<BR>Private Declare Function GetWindowLong Lib 
      "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) 
      As Long<BR>Private Declare Function SetWindowLong Lib "user32" Alias 
      "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal 
      dwNewLong As Long) As Long<BR>Private Declare Function 
      SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey 
      As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long<BR>Private 
      Const WS_EX_LAYERED = &amp;H80000<BR>Private Const GWL_EXSTYLE = 
      (-20)<BR>Private Const LWA_ALPHA = &amp;H2<BR>Private Const LWA_COLORKEY = 
      &amp;H1<BR><BR>Private Sub Command1_Click()<BR>&nbsp;&nbsp; Dim rtn As 
      Long<BR>&nbsp;&nbsp; rtn = GetWindowLong(hwnd, 
      GWL_EXSTYLE)<BR>&nbsp;&nbsp; rtn = rtn Or WS_EX_LAYERED<BR>&nbsp;&nbsp; 
      SetWindowLong hwnd, GWL_EXSTYLE, rtn<BR>&nbsp;&nbsp; 
      SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA<BR>End 
      Sub<BR>二。窗体靠边自动隐藏<BR>Option Explicit<BR><BR>Private Declare Function 
      GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long<BR>Private Declare 
      Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) 
      As Long<BR>Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd 
      As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, 
      ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As 
      Long<BR><BR>Private Type RECT<BR>Left As Long<BR>Top As Long<BR>Right As 
      Long<BR>Bottom As Long<BR>End Type<BR>Private Type POINTAPI<BR>X As 
      Long<BR>Y As Long<BR>End Type<BR><BR>Private Const HWND_TOPMOST = 
      -1<BR>Private Const SWP_NOSIZE = &amp;H1<BR>Private Const SWP_NOMOVE = 
      &amp;H2<BR>Private Const HWND_TOP = 0<BR>Private Const SWP_NOACTIVATE = 
      &amp;H10<BR>Private Const SWP_SHOWWINDOW = &amp;H40<BR><BR><BR>Private Sub 
      Form_Load()<BR>'窗体放在最前面<BR>SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, 
      SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE<BR>End Sub<BR><BR>Private Sub 
      Timer1_Timer()<BR>Dim p As POINTAPI<BR>Dim f As RECT<BR>GetCursorPos p 
      '得到MOUSE位置<BR>GetWindowRect Me.hwnd, f '得到窗体的位置<BR>If Me.WindowState 
      &lt;&gt; 1 Then<BR>If p.X &gt; f.Left And p.X &lt; f.Right And p.Y &gt; 
      f.Top And p.Y &lt; f.Bottom Then<BR>'MOUSE 在窗体上<BR>If Me.Top &lt; 0 
      Then<BR>Me.Top = -10<BR>Me.Show<BR>ElseIf Me.Left &lt; 0 Then<BR>Me.Left = 
      -10<BR>Me.Show<BR>ElseIf Me.Left + Me.Width &gt;= Screen.Width 
      Then<BR>Me.Left = Screen.Width - Me.Width + 10<BR>Me.Show<BR>End 
      If<BR><BR>Else<BR>If f.Top &lt;= 4 Then<BR>Me.Top = 40 - 
      Me.Height<BR>ElseIf f.Left &lt;= 4 Then<BR>Me.Left = 40 - 
      Me.Width<BR>ElseIf Me.Left + Me.Width &gt;= Screen.Width - 4 
      Then<BR>Me.Left = Screen.Width - 40<BR>End If<BR>End If<BR>End 
      If<BR><BR>End Sub</DIV></DIV></TD></TR></TBODY></TABLE><BR>
<DIV class=opt><A title=查看该分类中所有文章 
href="http://hi.baidu.com/yunlintea/blog/category/vb&frac14;&frac14;&Ccedil;&Eacute;">类别：vb技巧</A> | <A 
title=将此文章添加到百度搜藏 onclick="return addToFavor();" 
href="http://cang.baidu.com/do/add" target=_blank>添加到搜藏</A> | 浏览(<SPAN 
id=result></SPAN>) | <A 
href="http://hi.baidu.com/yunlintea/blog/item/1f5cbddc2a4eb7a7cd1166d2.html#send">评论</A>&nbsp;(0)
<SCRIPT language=javascript>/*<![CDATA[*/var pre = [true,'VB编程的8个优良习惯[3]', 'VB编程的8个优良习惯[3]','/yunlintea/blog/item/c37728223e072da24623e8d1.html'];var post = [true,'博客日志群发机，真正的破解版，原创破解','博客日志群发机，真正的破解版，...', '/yunlintea/blog/item/d48673d19670b73e9b5027a2.html'];if(pre[0] || post[0]){	document.write('<div style="height:5px;line-height:5px;">&nbsp;</div><div id="in_nav">');	if(pre[0]){		document.write('上一篇：<a href="' + pre[3] + '" title="' + pre[1] + '">' +  pre[2] + '</a>&nbsp;&nbsp;&nbsp;&nbsp;');	}	if(post[0]){		document.write('下一篇：<a href="' + post[3] + '" title="' + post[1] + '">' +  post[2] + '</a>');	}	document.write('</div>');}/*]]>*/</SCRIPT>
 </DIV>
<DIV class=line></DIV>
<SCRIPT language=JavaScript>allkey=allkey+"386f3eecd48673d12f2e21a7_1f5cbddc2a4eb7a7cd1166d2_";</SCRIPT>

<DIV id=in_comment><A name=comment></A>
<DIV class=tit>网友评论：</DIV>
<SCRIPT>function writecmt(type,id,cmtname,cmturl,portraitId){	var html1="";	if(type==1){			html1="<a href='"+cmturl+"' target='_blank' title='"+cmturl+"'><img  border='0' src='http://himg.baidu.com/sys/portraitn/item/"+portraitId+".jpg'><br>"+cmtname+"</a>";	}else{		if(cmtname=="" || cmtname=="匿名网友"){			if(cmturl==""){				html1="<a>匿名网友</a>";			}else{				html1="<a href='"+cmturl+"' target='_blank' title='"+cmturl+"'>"+cmtname+"</a>";			}		}else{			if(cmturl==""){				html1="<div class='f14' style='display:inline'>网友:<a>"+cmtname+"</a></div>";			}else{				html1="<div class='f14' style='display:inline'>网友:<a href='"+cmturl+"' target='_blank' title='"+cmturl+"'>"+cmtname+"</a></div>";			}		}	}	document.write(html1);}</SCRIPT>

<DIV id=page></DIV></DIV>
<DIV id=in_send><A name=send></A>
<FORM id=popFormSubmit name=form1 onsubmit="return checkcmtform()" 
action=/yunlintea/commit method=post><INPUT type=hidden value=8 name=ct> <INPUT 
type=hidden value=1 name=cm> <INPUT type=hidden value=1f5cbddc2a4eb7a7cd1166d2 
name=spBlogID>
<SCRIPT language=JavaScript>	document.write("<input type='hidden' name='spRefURL' value='"+encodeURI(window.location.href)+"'>");</SCRIPT>
 
<DIV class=tit>发表评论：</DIV>
<TABLE cellSpacing=5 cellPadding=0 width=620 border=0>
  <TBODY>
  <TR>
    <TD class=f14>姓　名：</TD>
    <TD><INPUT id=spBlogCmtor style="WIDTH: 220px" onfocus=hidErr(1); 
      tabIndex=1 maxLength=49 onchange="checkname('spBlogCmtor')" 
      name=spBlogCmtor>
      <SCRIPT>document.write(" &nbsp;&nbsp; <a href='http://passport.baidu.com/?reg&tpl=sp&return_method=get&skip_ok=1&u=http://hi.baidu.com/sys/reg/' target='_blank'>注册</a>");document.write(" | <a href='http://passport.baidu.com/?login&tpl=sp&tpl_reg=sp&u="+myref+"'>登录</a>");</SCRIPT>
       
      <DIV id=nmerror style="DISPLAY: none">*姓名最长为50字节</DIV></TD></TR>
  <TR id=1_err style="DISPLAY: none">
    <TD>&nbsp;</TD>
    <TD>
      <DIV class=error id=1_err_con></DIV></TD></TR>
  <TR>
    <TD class=f14>网址或邮箱：</TD>
    <TD><INPUT id=spBlogCmtURL style="WIDTH: 360px" onfocus=hidErr(2); 
      tabIndex=2 maxLength=128 onchange="checkeandu('spBlogCmtURL')" 
      name=spBlogCmtURL> (选填)</TD>
    <SCRIPT>G("spBlogCmtor").value="";G("spBlogCmtURL").value="";</SCRIPT>
  </TR>
  <TR id=2_err style="DISPLAY: none">
    <TD>&nbsp;</TD>
    <TD>
      <DIV class=error id=2_err_con></DIV></TD></TR>
  <TR>
    <TD class=f14 vAlign=top>内　容：</TD>
    <TD><TEXTAREA id=spBlogCmtText style="WIDTH: 520px; HEIGHT: 155px" onfocus=hidErr(3); tabIndex=3 name=spBlogCmtText></TEXTAREA>
      <SCRIPT>G("spBlogCmtor").value=G("spBlogCmtor").defaultValue;G("spBlogCmtText").value="";</SCRIPT>
       </TD></TR>
  <TR id=3_err style="DISPLAY: none">
    <TD>&nbsp;</TD>
    <TD>
      <DIV class=error id=3_err_con></DIV></TD></TR>
  <TR id=vercode>
    <TD class=f14 vAlign=top>验证码：</TD>
    <TD vAlign=top><INPUT type=hidden 
      value=CB15B22D53422C440BABC6543FD6DD450CC0AD2D1DF17FA1D8A8316645BEB08B9B2BAEF60DF4FE4819A97F83ACAFC9A4C37D369538CDB8773C31D678B8B7DDF2 
      name=spVcode> <INPUT id=spVerifyKey onfocus=f_focus() tabIndex=4 
      maxLength=4 size=6 name=spVerifyKey autocomplete="off"><BR>
      <SCRIPT type=text/javascript>/*<![CDATA[*/var imgsrc="http://hiup.baidu.com/cgi-bin/genimg?CB15B22D53422C440BABC6543FD6DD450CC0AD2D1DF17FA1D8A8316645BEB08B9B2BAEF60DF4FE4819A97F83ACAFC9A4C37D369538CDB8773C31D678B8B7DDF2";function f_focus(){	if(G('yanzheng').style.display=="none" ){		G('verifypic').src=imgsrc;		G('yanzheng').style.display="block";	}}function newverifypic(){	G("verifypic").src = imgsrc +"&t="+ Math.random();	return false;}/*]]>*/</SCRIPT>

      <DIV id=yanzheng style="DISPLAY: none"><IMG id=verifypic height=40 
      width=120><WBR><A title=看不清左边的字符 onfocus=this.blur(); 
      onclick="return newverifypic();" 
      href="http://hi.baidu.com/yunlintea/blog/item/1f5cbddc2a4eb7a7cd1166d2.html#">看不清?</A> 
      </DIV></TD></TR>
  <TR>
    <TD class=f14 vAlign=top>&nbsp;</TD>
    <TD class=f14 vAlign=top><INPUT id=btn_ok tabIndex=5 type=submit value=发表评论 name=btn_ok></TD></TR></TBODY></TABLE></FORM></DIV><BR></DIV>
<TABLE height=8 cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD class=modbl width=7>&nbsp;</TD>
    <TD class=modbc>&nbsp;</TD>
    <TD class=modbr width=7>&nbsp;</TD></TR></TBODY></TABLE></DIV></DIV></DIV></DIV>
<SCRIPT language=javascript><!--var hstr="/yunlintea/brwstat?key1=1";document.write("<script src='"+hstr+"&key2="+allkey+"'><\/script>");//--></SCRIPT>
<BR>
<CENTER>
<DIV id=ft>&copy;2008 Baidu</DIV></CENTER>
<SCRIPT>if(document.getElementById("m_blog")){	var imgarray = document.getElementById("m_blog").getElementsByTagName('img');	var imgw = document.getElementById("m_blog").offsetWidth;	imgw =imgw-40;	for(var i=0; i<imgarray.length; i++){	if(imgarray[i].className=="blogimg" && imgarray[i].width>=imgw) imgarray[i].width=imgw;	}}// Fix ff bugsvar blog_text = document.getElementById('blog_text');blog_text.innerHTML = blog_text.innerHTML.replace(/href\s*=\s*("|')?(\.\.\/\.\.\/)/gi,"href=$1../$2");</SCRIPT>
</CENTER><IMG style="DISPLAY: none" src=""> </BODY></HTML>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -