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

📄 class_book_begin047.htm

📁 vb实例,很好很好用的哦,处学者的天堂这是第四部分
💻 HTM
字号:
🔍 
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
.redLink{ color:red;}
.blueLink{color:blue;}
A{font-size:12pt;text-decoration:none;}
P{font:12pt;line-height:22px;}
h2{font-size:30px;text-align:center;color:rgb(0,144,144);letter-spacing:.5em;font-weight:bold}
.whiteB{color:black;background-color:white;}
.blueB{color:yellow;background-color:blue;}
.blackB{color:white;background-color:black;}
</style>
<title>第四章：按钮</title>
</head>
<script langue="javascript">
<!--
var source;
var flagDU="Up";
var oldClass="";
function ChangeColor(){
 source=window.event.srcElement;
 if (source.className=="redLink"){
  source.className="blueLink";
 }
 else{
  source.className="redLink";
 }
}

function moveChangeBack(){
 source=window.event.srcElement;
 if (source.className==oldClass){oldClass=source.className; 
    if (flagDU=="Up"){
      if (source.className="whiteB"){
         source.className="blueB";
      }else{
      source.className="whiteB";
      }
   }else{source.className="blackB";
   }
 }else{//oldClass=source.className; 
   if (source.className=="whiteB"){
     source.className="blueB";
   }else{
     source.className="whiteB";
   }
 } 
}

function clickChangeBack(){
  index01.className="whiteB"
  index02.className="whiteB"
 source=window.event.srcElement;
 source.className="blackB";
  flagDU="Down";
oldClass=source.className; 
}

function returnValue(){
 index01.className="whiteB";
 index02.className="whiteB";
 flagDU="Up";
}

function getAppVersion()
                {
                appname= navigator.appName;
                appversion = navigator.appVersion;
                majorver = appversion.substring(0, 1);
                if ( (appname == "Netscape") && ( majorver >= 3 ) ) return 1;
                if ( (appname == "Microsoft Internet Explorer") && (majorver>= 4) ) return 1;
        return 0;
                }

function switchGraphic(num, imgname) {
  if (getAppVersion()) {
 document[imgname].src = img[num].src;
 }
}//-->
</script>


<body>
<script language="javascript">
<!--
imgsrc = new Array();
imgsrc[0] = "images/dot_blank.gif";
imgsrc[1] = "images/dot_filled.gif";
if (getAppVersion())
                {
        img = new Array();
        for (i = 0; i < imgsrc.length; i++)
                                {
                img[i] = new Image();
                img[i].src = imgsrc[i];
                        }
                }
//-->
</script>
<div align="center"><center>

<table border="0" cellpadding="8" cellspacing="0" width="100%">
  <tr>
    <td width="24%" valign="top"><h2><img src="../images/class_img.gif" WIDTH="160" HEIGHT="51"></h2>
    <hr size="4" color="#FF0000" width="75%">
    <p align="center"><img src="../images/menu_bar_jc_d.gif" WIDTH="150" HEIGHT="35"><img src="../images/dot_blank.gif" name="b1" WIDTH="10" HEIGHT="35"><br>
    <a href="../class_api.htm" onMouseOver="switchGraphic('1','b2')" onMouseOut="switchGraphic('0','b2')"><img src="../images/menu_bar_api.gif" border="0" WIDTH="150" HEIGHT="35"></a><img src="../images/dot_blank.gif" name="b2" WIDTH="10" HEIGHT="35"><br>
    <span align="center"><a href="../class_wz.htm" onMouseOver="switchGraphic('1','b5')" onMouseOut="switchGraphic('0','b5')"><img src="../images/menu_bar_wz.gif" border="0" WIDTH="150" HEIGHT="35"></a><img src="../images/dot_blank.gif" name="b5" WIDTH="10" HEIGHT="35"></span><br>
    <a href="../class_tip.htm" onMouseOver="switchGraphic('1','b3')" onMouseOut="switchGraphic('0','b3')"><img src="../images/menu_bar_tip.gif" border="0" WIDTH="150" HEIGHT="35"></a><img src="../images/dot_blank.gif" name="b3" WIDTH="10" HEIGHT="35"><br>
    <a href="../class_fqa.htm" onMouseOver="switchGraphic('1','b4')" onMouseOut="switchGraphic('0','b4')"><img src="../images/menu_bar_end_fqa.gif" border="0" WIDTH="150" HEIGHT="35"></a><img src="../images/dot_blank.gif" name="b4" WIDTH="10" HEIGHT="35"></p>
    <p align="center"><a href="../context.htm"><img src="../images/logo_return.jpg" border="0" WIDTH="70" HEIGHT="260"></a></td>
    <td width="76%" valign="top" align="center"><div align="center"><center><table border="0" cellpadding="8" cellspacing="0" width="27%" style="background-color: rgb(0,128,128)">
      <tr>
        <td width="100%" valign="top" align="center"><a name="top"><font size="5" color="#C0C0C0"><strong>VB入门教程</strong></font></a></td>
      </tr>
    </table>
    </center></div><p><a href="class_book_begin041.htm">第一页</a> <a href="class_book_begin042.htm">第二页</a> <a href="class_book_begin043.htm">第三页</a> 
    <a href="class_book_begin044.htm">第四页</a><br>
    <a href="class_book_begin045.htm">第五页</a> <a href="class_book_begin046.htm">第六页</a> 
    第七页 <a href="../class_book.htm">返回</a>&nbsp; <br>
    </p>
    <div align="center"><center><table border="0" cellpadding="8" cellspacing="0" width="100%">
      <tr>
        <td width="100%"><font size="3" color="#8000FF"><strong><em>第四章：按钮（7）</em></strong></font></td>
      </tr>
      <tr>
        <td width="100%" style="background-color: rgb(232,255,254)"><p ALIGN="JUSTIFY"><strong>下面给出完整的程序代码：</strong></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Dim Num1, Num2 As Single</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Dim StrNum1, StrNum2 As String</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Dim FirstNum As Boolean '判断是否是数字开头</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Dim PointFlag As Boolean '判断是否已有小数点</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Dim Runsign As Integer '储存运算符号</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Dim SignFlag As Boolean '判断是否已有运算符号</strong></font></p>
        <p ALIGN="JUSTIFY">　</p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Sub ClearData()</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Num1 = 0</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Num2 = 0</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>StrNum1 = &quot;&quot;</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>StrNum2 = &quot;&quot;</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>FirstNum = True</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>PointFlag = False</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Runsign = 0</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>SignFlag = False</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Text1.Text = &quot;0.&quot;</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>End Sub</strong></font></p>
        <p ALIGN="JUSTIFY">　</p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Sub Run()</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Num1 = Val(StrNum2)</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Num2 = Val(StrNum1)</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Select Case Runsign</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Case 1</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>equal = Num1 + Num2</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Case 2</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>equal = Num1 - Num2</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Case 3</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>equal = Num1 * Num2</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Case 4</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>equal = Num1 / Num2</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>End Select</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>StrNum2 = Str(equal)</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>StrNum1 = StrNum2</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Text1.Text = StrNum2</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>End Sub</strong></font></p>
        <p ALIGN="JUSTIFY">　</p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Private Sub about_Click()</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>MsgBox &quot;Create by 周晓阳。1998/7/27&quot;, 
        vbDefaultButton1, &quot;VB教程第四章范例&quot;</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>End Sub</strong></font></p>
        <p ALIGN="JUSTIFY">　</p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Private Sub Command1_Click(Index As 
        Integer)</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Select Case Index</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Case 0 To 9</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>If FirstNum Then</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>StrNum1 = Str(Index)</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>FirstNum = False</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Else</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>StrNum1 = StrNum1 + Str(Index)</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>End If</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Text1.Text = StrNum1</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Case 10</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>If Not PointFlag Then</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>If FirstNum Then</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>StrNum1 = &quot;0.&quot;</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>FirstNum = False</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Else</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>StrNum1 = StrNum1 + &quot;.&quot;</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>End If</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Else</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Exit Sub</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>End If</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>PointFlag = True</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Text1.Text = StrNum1</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Case 12 To 15</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>FirstNum = True</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>PointFlag = False</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>'还原标记值</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>If SignFlag Then</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Call Run</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Else</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>SignFlag = True</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>StrNum2 = StrNum1</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>StrNum1 = &quot;&quot;</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>End If</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Runsign = Index - 11</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Case 11</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>If Not SignFlag Then</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Text1.Text = StrNum1</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>equal = Val(StrNum1)</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>FirstNum = True</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>PointFlag = False</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Else</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Call Run</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>SignFlag = False</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>End If</strong></font></p>
        <p ALIGN="JUSTIFY">　</p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Case Else</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Call ClearData</strong></font></p>
        <p ALIGN="JUSTIFY">　</p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>End Select</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>End Sub</strong></font></p>
        <p ALIGN="JUSTIFY">　</p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Private Sub Form_Load()</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>Call ClearData</strong></font></p>
        <p ALIGN="JUSTIFY"><font color="#004080"><strong>End Sub</strong></font></td>
      </tr>
    </table>
    </center></div><p align="right"><strong><a href="#top"><img src="top2.gif" border="0" WIDTH="27" HEIGHT="30"></a></strong></td>
  </tr>
</table>
</center></div>

<p>　</p>
</body>
</html>
<!--webbot bot="HTMLMarkup" TAG="XBOT" StartSpan --></SCRIPT><!--webbot BOT="HTMLMarkup" endspan -->

⌨️ 快捷键说明

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