?? vb9.htm

?? VB學習教程VB學習教程VB學習教程VB學習教程VB學習教程VB學習教程VB學習教程VB學習教程VB學習教程VB學習教程VB學習教程
?? HTM
字號:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0056)http://www.pconline.com.cn/experience/subject/VB/vb9.htm -->
<HTML><HEAD><TITLE>|><| 太平洋電腦信息網</TITLE><!-- #BeginTemplate "/Templates/0723.dwt" --><!-- #BeginEditable "doctitle" --><!-- #EndEditable -->
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK 
href="vb9.files/text.css" rel=stylesheet>
<STYLE type=text/css>.sfont {
	LINE-HEIGHT: 18pt
}
</STYLE>

<META content="MSHTML 5.00.2014.210" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="100%">
  <TBODY>
  <TR>
    <TD vAlign=top width="100%">
      <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
        <TBODY>
        <TR bgColor=#303880>
          <TD><A href="http://www.pconline.com.cn/"><IMG alt=太平洋電腦信息網 border=0 
            height=18 hspace=30 src="vb9.files/txtpconline.gif" 
            width=96></A><IMG height=10 src="vb9.files/blank.gif" 
        width=400></TD></TR></TBODY></TABLE></TD>
    <TD align=right background=vb9.files/bw.gif noWrap width=130><IMG 
      height=26 src="vb9.files/bw.gif" width=10><A 
      href="http://www.pconline.com.cn/sitemap/"><IMG alt=網站地圖 border=0 
      height=26 src="vb9.files/sitemap.gif" width=21></A><IMG height=26 
      src="vb9.files/bw.gif" width=10><A 
      href="http://www.pconline.com.cn/tpy/"><IMG alt=關于太平洋 border=0 height=26 
      src="vb9.files/aboutus.gif" width=21></A><IMG height=26 
      src="vb9.files/bw.gif" width=10><A 
      href="http://www.pconline.com.cn/tpy/tariff.html"><IMG alt=與我們聯系 border=0 
      height=26 src="vb9.files/contact.gif" width=21></A><IMG height=26 
      src="vb9.files/bw.gif" width=10></TD></TR></TBODY></TABLE><BR>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=760>
  <TBODY>
  <TR>
    <TD bgColor=#666666><IMG height=1 src="vb9.files/blank.gif" width=1></TD>
    <TD bgColor=#666666><IMG height=1 src="vb9.files/blank.gif" width=1></TD>
    <TD>&nbsp;</TD>
    <TD colSpan=2 noWrap><A 
      href="http://www.pconline.com.cn/experience/index.html"><IMG 
      align=absBottom alt=企業之窗 border=0 height=15 
      src="vb9.files/txtexperience.gif" width=68></A>　<A 
      href="http://www.pconline.com.cn/">首　　頁</A>　<A 
      href="http://www.pconline.com.cn/market/">今日報價</A>　<A 
      href="http://www.pconline.com.cn/recommend/">產品推介</A>　<A 
      href="http://www.pconline.com.cn/yp/">企業之窗</A>　<A 
      href="http://www.pconline.com.cn/news/">科技新聞</A>　<A 
      href="http://www.pconline.com.cn/product/">產品查詢</A>　<A 
      href="http://www.pconline.com.cn/download/">軟件下載</A></TD></TR>
  <TR>
    <TD><IMG height=1 src="vb9.files/blank.gif" width=1></TD>
    <TD><IMG height=1 src="vb9.files/blank.gif" width=1></TD>
    <TD><IMG height=1 src="vb9.files/blank.gif" width=21></TD>
    <TD bgColor=#ffa000 colSpan=2><IMG height=1 src="vb9.files/blank.gif" 
      width=1></TD></TR>
  <TR>
    <TD bgColor=#666666><IMG height=1 src="vb9.files/blank.gif" width=1></TD>
    <TD bgColor=#cdcdcd><IMG height=5 src="vb9.files/blank.gif" width=1></TD>
    <TD align=right colSpan=3><IMG height=6 src="vb9.files/ffa000.gif" 
    width=1></TD></TR>
  <TR>
    <TD bgColor=#666666><IMG height=1 src="vb9.files/blank.gif" width=1></TD>
    <TD align=right><A href="http://www.pconline.com.cn/"><IMG alt=太平洋電腦信息網 
      border=0 height=35 src="vb9.files/pconline.com.cn.gif" vspace=10 
      width=162></A></TD>
    <TD>&nbsp;</TD>
    <TD vAlign=bottom><!-- #BeginEditable "important_news" --><IMG height=40 
      src="vb9.files/blank.gif" width=350><!-- #EndEditable --></TD>
    <TD align=right vAlign=top><!-- #BeginEditable "adv_top" --><IMG alt=廣告位 
      height=43 src="vb9.files/icon.gif" 
  width=190><!-- #EndEditable --></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=760>
  <TBODY>
  <TR>
    <TD bgColor=#666666 width=1><IMG height=1 src="vb9.files/blank.gif" 
      width=1></TD>
    <TD vAlign=top width=170><!-- #BeginEditable "addons" --><!--替代為附加信息 --><!-- #EndEditable --></TD>
    <TD bgColor=#666666 width=1><IMG height=1 src="vb9.files/blank.gif" 
      width=1></TD>
    <TD><IMG height=1 src="vb9.files/blank.gif" width=21></TD>
    <TD colSpan=3 vAlign=top width=566><!-- #BeginEditable "1" --><IMG 
      height=1 src="vb9.files/blank.gif" width=566><BR><IMG height=1 
      src="vb9.files/666666.gif" width=420><BR><IMG height=13 
      src="vb9.files/blank.gif" width=1><A 
      href="http://www.pconline.com.cn/experience/">經驗共享</A> &gt; <SPAN 
      class=greenb><A 
      href="http://www.pconline.com.cn/experience/subject/VB/index.html">專題教程</A></SPAN><A 
      href="http://www.pconline.com.cn/experience/subject/VB/index.html"> 
      VB專區</A>&gt;<BR><IMG height=1 src="vb9.files/666666.gif" vspace=1 
      width=420><BR>
      <P align=center><B><FONT color=#000066><SPAN 
      class=sfont>VB5.0中實現字體閃爍效果</SPAN></FONT></B></P>
      <P align=left><SPAN class=sfont>　　 用Visual 
      Basic我們可設計出形形色色符合用戶要求的應用程序，它確實是一種很好的用戶程序開發工具，可VB提供的基本控件中都沒有閃爍屬性設置，使應用程序界面缺乏“活性”，近期筆者設計軟件封面時，就要求字體不斷地閃爍，為此，經反復分析、實踐，最后終于成功地實現字體閃爍效果，現將設計過程說明如下：<BR>　　(1)創建一個新目標文件(project1)，并建立一個窗體Form1。<BR>　　(2)在Form1上配置一個計時器控制Timer1、標簽控件Label1、命令控件Command1。<BR>　　(3)各控件屬性設置：<BR>　　Timer1的Enabled設置為True;<BR>　　Label1的Caption設置為需閃爍的字體：“江西省黎川縣職業中專電腦室設計”、<BR>Font設置字體及大小、Backstyle設置為“0－Transparent”；<BR>　　Command1中的Caption設置為“退出”。<BR>　　(4)程序代碼清單：<BR>　　Option 
      Explicit<BR>　　Private Sub Form_ 
      Load()<BR>　　Label1.Top=850　　<BR>　　　′設置閃爍字體的顯示位置<BR>　　Label1.Left=750<BR>　　Timer1.Interval=555　　<BR>　　′設置字體閃爍間隔時間<BR>　　Form1.Windowstate=2<BR>　　End 
      Sub<BR>　　′利用計時器控件Timer有規律地改變字體顏色(Forecolor)<BR>　　Private Sub 
      Timer1_Timer()<BR>　　Chc Label1,1,4,8<BR>　　End 
      Sub<BR>　　′Chc過程是循環地改變字體顏色(Forecolor)<BR>　　Sub Chc(Cont As Control,Color1 
      As Integer,Color2 As Integer,Color3 As Integer)<BR>　　If 
      Val(Cont.Tag)=Color1 Then<BR>　　Cont.Tag=Color2<BR>　　ElseIf 
      Val(Cont.Tag)=Color2 Then<BR>　　Cont.Tag=Color3<BR>　　ElseIf 
      Val(Cont.Tag)=Color3 
      Then<BR>　　Cont.Tag=Color1<BR>　　Else<BR>　　Cont.Tag=Color1<BR>　　End 
      If<BR>　　Cont.ForeColor=QBColor(Cont.Tag)<BR>　　End Sub<BR>　　Private Sub 
      Command1_Click()<BR>　　End<BR>　　End 
      Sub<BR>　　程序除標簽控件外，還適用于許多VB基本控件，實現諸多閃爍效果，例如：閃爍文本框、閃爍文件列表框等，極大豐富了VB應用程序界面，相當實用。<BR>　　此設計也適用VB3.0、VB4.0。　　<STRONG>(江西　范明之)</STRONG></SPAN></P>
      <P align=right><A 
      href="http://www.pconline.com.cn/experience/subject/VB/index.html">----更多的文章</A></P><!-- #EndEditable --></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=760>
  <TBODY>
  <TR>
    <TD bgColor=#666666 width=1><IMG height=1 src="vb9.files/blank.gif" 
      width=1></TD>
    <TD align=right vAlign=bottom width=170><IMG height=10 
      src="vb9.files/blank.gif" width=170><BR></TD>
    <TD bgColor=#666666 width=1><IMG height=1 src="vb9.files/blank.gif" 
      width=1></TD>
    <TD width=21><IMG height=1 src="vb9.files/blank.gif" width=21></TD>
    <TD bgColor=#eeeeee width=566><IMG height=10 src="vb9.files/blank.gif" 
      width=566><BR>版權所有&copy;1999 太平洋電腦信息網<BR><FONT 
      face="Arial, Helvetica, sans-serif"><A 
      href="mailto:exp@pconline.com.cn">exp@pconline.com.cn</A></FONT> <IMG 
      height=1 src="vb9.files/hhvisit.html" width=1> </TD></TR></TBODY></TABLE><!-- #EndTemplate --></BODY></HTML>
?? 文件大小 454 K
?? 上傳用戶 KuFly
?? 所屬分類電子書籍
??? 相關標簽

#教程
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? vb9.htm

?? 快捷鍵說明
