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

📄 1.htm

📁 vb基础教程源文件 处学者必备
💻 HTM
📖 第 1 页 / 共 3 页
字号:
🔍
123 

<p>因为事件的顺序是无法预测的，所以在代码中必须对执行时的<span lang=EN-US>“各种状态”作一定的假设。当作出某些假设时（例如，假设在运行来处理某一输入字段的过程之前，该输入字段必须包含确定的值），应该组织好应用程序的结构，以确保该假设始终有效（例如，在输入字段中有值之前禁止使用启动该处理过程的命令按钮）。
</span></p>

<p>在执行中代码也可以触发事件。例如，在程序中改变文本框中的文本将引发文本框的<span lang=EN-US> Change 事件。如果 Change 事件中包含有代码，则将导致该代码的执行。如果原来假设该事件仅能由用户的交互操作所触发，则可能会产生意料之外的结果。正因为这一原因，所以在设计应用程序时理解事件驱动模型并牢记在心是非常重要的。
</span></p>

<p><strong><span lang=EN-US>4 ．交互式开发 </span></strong></p>

<p>传统的应用程序开发过程可以分为三个明显的步骤：编码、编译和测试代码。但是<span lang=EN-US> Visual Basic 与传统的语言不同，它使用交互式方法开发应用程序，使三个步骤之间不再有明显的界限。
</span></p>

<p><span lang=EN-US>VB 在编程者输入代码时便进行解释，即时捕获并突出显示大多数语法或拼写错误。看起来就象一位专家在监视代码的输入。 </span></p>

<p>除即时捕获错误以外，<span lang=EN-US> VB 也在输入代码时部分地编译该代码。当准备运行和测试应用程序时，只需极短时间即可完成编译。如果编译器发现了错误，则将错误突出显示于代码中。这时可以更正错误并继续编译，而不需从头开始。
</span></p>

<p>由于<span lang=EN-US> VB 的交互特性，代码运行的效果可以在开发时进行测试，而不必等到编译完成以后。 </span></p>

<p align=center style='text-align:center'><strong><span lang=EN-US>1．4 利用 VB 开发应用程序的一般步骤
</span></strong></p>

<p>一个<span lang=EN-US> VB 程序也称为一个工程，由窗体、标准模块、自定义控件及应用所需的环境设置组成。开发步骤一般如下： </span></p>

<p><strong><span lang=EN-US>1． 创建程序的用户界面 </span></strong></p>

<p><strong><span lang=EN-US>2． 设置界面上各个对象的属性 </span></strong></p>

<p><strong><span lang=EN-US>3． 编写对象响应事件的程序代码 </span></strong></p>

<p><strong><span lang=EN-US>4． 保存工程 </span></strong></p>

<p><strong><span lang=EN-US>5． 测试应用程序，排除错误 </span></strong></p>

<p><strong><span lang=EN-US>6． 创建可执行程序 </span></strong></p>

<p align=center style='text-align:center'><strong><span lang=EN-US>1．5 创建 VB 程序示例
</span></strong></p>

<p><strong>实例名称： </strong><span lang=EN-US>VB 欢迎你！ </span></p>

<table border=0 cellspacing=0 cellpadding=0 style='mso-cellspacing:0cm;
 mso-padding-alt:0cm 0cm 0cm 0cm'>
 <tr>
  <td width=72 style='width:54.0pt;padding:0cm 0cm 0cm 0cm'>
  <p class=MsoNormal><![if !supportEmptyParas]>&nbsp;<![endif]><span
  lang=EN-US><o:p></o:p></span></p>
  </td>
 </tr>
 <tr>
  <td colspan=2 style='padding:0cm 0cm 0cm 0cm'>
  <p class=MsoNormal><span lang=EN-US><img width=404 height=317
  id="_x0000_i1027" src=image006.jpg></span></p>
  </td>
 </tr>
</table>

<p class=MsoNormal><span lang=EN-US><br>
<strong>1 ．创建程序的用户界面 </strong></span></p>

<p><strong><span lang=EN-US>2 ．设置界面上各个对象的属性 </span></strong></p>

<table border=0 cellspacing=0 cellpadding=0 style='mso-cellspacing:0cm;
 mso-padding-alt:0cm 0cm 0cm 0cm'>
 <tr>
  <td width=127 valign=top style='width:95.25pt;padding:0cm 0cm 0cm 0cm'>
  <p align=center style='text-align:center'><strong>控件 </strong></p>
  </td>
  <td width=144 valign=top style='width:108.0pt;padding:0cm 0cm 0cm 0cm'>
  <p align=center style='text-align:center'><strong>属性 </strong></p>
  </td>
  <td width=199 valign=top style='width:149.25pt;padding:0cm 0cm 0cm 0cm'>
  <p align=center style='text-align:center'><strong>设置值 </strong></p>
  </td>
 </tr>
 <tr>
  <td width=127 valign=top style='width:95.25pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Option1 </span></strong></p>
  </td>
  <td width=144 valign=top style='width:108.0pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Caption </span></strong></p>
  </td>
  <td width=199 valign=top style='width:149.25pt;padding:0cm 0cm 0cm 0cm'>
  <p>上课 </p>
  </td>
 </tr>
 <tr>
  <td width=127 valign=top style='width:95.25pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Option2 </span></strong></p>
  </td>
  <td width=144 valign=top style='width:108.0pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Caption </span></strong></p>
  </td>
  <td width=199 valign=top style='width:149.25pt;padding:0cm 0cm 0cm 0cm'>
  <p>复习 </p>
  </td>
 </tr>
 <tr>
  <td width=127 valign=top style='width:95.25pt;padding:0cm 0cm 0cm 0cm'>
  <p class=MsoNormal><![if !supportEmptyParas]>&nbsp;<![endif]><span
  lang=EN-US><o:p></o:p></span></p>
  </td>
  <td width=144 valign=top style='width:108.0pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>BackColor </span></strong></p>
  </td>
  <td width=199 valign=top style='width:149.25pt;padding:0cm 0cm 0cm 0cm'>
  <p><span lang=EN-US>&amp;H00C0E0FF&amp;&lt;/SPAN&gt; </span></p>
  </td>
 </tr>
 <tr>
  <td width=127 valign=top style='width:95.25pt;padding:0cm 0cm 0cm 0cm'>
  <p class=MsoNormal><![if !supportEmptyParas]>&nbsp;<![endif]><span
  lang=EN-US><o:p></o:p></span></p>
  </td>
  <td width=144 valign=top style='width:108.0pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Forecolor </span></strong></p>
  </td>
  <td width=199 valign=top style='width:149.25pt;padding:0cm 0cm 0cm 0cm'>
  <p><span lang=EN-US>&amp;H00FF0000&amp;&lt;/SPAN&gt; </span></p>
  </td>
 </tr>
 <tr>
  <td width=127 valign=top style='width:95.25pt;padding:0cm 0cm 0cm 0cm'>
  <p class=MsoNormal><![if !supportEmptyParas]>&nbsp;<![endif]><span
  lang=EN-US><o:p></o:p></span></p>
  </td>
  <td width=144 valign=top style='width:108.0pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Font </span></strong></p>
  </td>
  <td width=199 valign=top style='width:149.25pt;padding:0cm 0cm 0cm 0cm'>
  <p>宋体 小四 </p>
  </td>
 </tr>
 <tr>
  <td width=127 valign=top style='width:95.25pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Label1 </span></strong></p>
  </td>
  <td width=144 valign=top style='width:108.0pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Caption </span></strong></p>
  </td>
  <td width=199 valign=top style='width:149.25pt;padding:0cm 0cm 0cm 0cm'>
  <p>欢迎你学习<span lang=EN-US> VB ！！ </span></p>
  </td>
 </tr>
 <tr>
  <td width=127 valign=top style='width:95.25pt;padding:0cm 0cm 0cm 0cm'>
  <p class=MsoNormal><![if !supportEmptyParas]>&nbsp;<![endif]><span
  lang=EN-US><o:p></o:p></span></p>
  </td>
  <td width=144 valign=top style='width:108.0pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Forecolor </span></strong></p>
  </td>
  <td width=199 valign=top style='width:149.25pt;padding:0cm 0cm 0cm 0cm'>
  <p><span lang=EN-US>&amp;H000000FF&amp;&lt;/SPAN&gt; </span></p>
  </td>
 </tr>
 <tr>
  <td width=127 valign=top style='width:95.25pt;padding:0cm 0cm 0cm 0cm'>
  <p class=MsoNormal><![if !supportEmptyParas]>&nbsp;<![endif]><span
  lang=EN-US><o:p></o:p></span></p>
  </td>
  <td width=144 valign=top style='width:108.0pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Font </span></strong></p>
  </td>
  <td width=199 valign=top style='width:149.25pt;padding:0cm 0cm 0cm 0cm'>
  <p>隶书、二号 </p>
  </td>
 </tr>
 <tr>
  <td width=127 valign=top style='width:95.25pt;padding:0cm 0cm 0cm 0cm'>
  <p class=MsoNormal><![if !supportEmptyParas]>&nbsp;<![endif]><span
  lang=EN-US><o:p></o:p></span></p>
  </td>
  <td width=144 valign=top style='width:108.0pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>AutoSize </span></strong></p>
  </td>
  <td width=199 valign=top style='width:149.25pt;padding:0cm 0cm 0cm 0cm'>
  <p><span lang=EN-US>True （自动调整外框大小） </span></p>
  </td>
 </tr>
 <tr>
  <td width=127 valign=top style='width:95.25pt;padding:0cm 0cm 0cm 0cm'>
  <p class=MsoNormal><![if !supportEmptyParas]>&nbsp;<![endif]><span
  lang=EN-US><o:p></o:p></span></p>
  </td>
  <td width=144 valign=top style='width:108.0pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>BackStyle </span></strong></p>
  </td>
  <td width=199 valign=top style='width:149.25pt;padding:0cm 0cm 0cm 0cm'>
  <p><span lang=EN-US>0-Transparent ( 透明 ) </span></p>
  </td>
 </tr>
 <tr>
  <td width=127 valign=top style='width:95.25pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Command1 </span></strong></p>
  </td>
  <td width=144 valign=top style='width:108.0pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Caption </span></strong></p>
  </td>
  <td width=199 valign=top style='width:149.25pt;padding:0cm 0cm 0cm 0cm'>
  <p>学习之道 </p>
  </td>
 </tr>
</table>

<p><strong><span lang=EN-US>3． 编写对象响应事件的程序代码 </span></strong></p>

<p>双击各对象，在相应的代码窗口里输入需要的代码。 </p>

<table border=0 cellspacing=0 cellpadding=0 style='mso-cellspacing:0cm;
 mso-padding-alt:0cm 0cm 0cm 0cm'>
 <tr>
  <td width=157 valign=top style='width:117.75pt;padding:0cm 0cm 0cm 0cm'>
  <p align=center style='text-align:center'><strong>事件名称 </strong></p>
  </td>
  <td width=319 valign=top style='width:239.25pt;padding:0cm 0cm 0cm 0cm'>
  <p align=center style='text-align:center'><strong>过程代码 </strong></p>
  </td>
 </tr>
 <tr>
  <td width=157 style='width:117.75pt;padding:0cm 0cm 0cm 0cm'>
  <p align=center style='text-align:center'>命令按钮的单击事件 </p>
  </td>
  <td width=319 valign=top style='width:239.25pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Private Sub Command1_Click() </span></strong></p>
  <p><span lang=EN-US>Option1.Visible = True </span></p>
  <p><span lang=EN-US>Option2.Visible = True </span></p>
  <p><span lang=EN-US>Label1.ForeColor = RGB(0, 0, 255) </span></p>
  <p><span lang=EN-US>Label1.Caption = &quot; ？ ？ ？ &quot; </span></p>
  <p><strong><span lang=EN-US>End Sub </span></strong></p>
  </td>
 </tr>
 <tr>
  <td width=157 style='width:117.75pt;padding:0cm 0cm 0cm 0cm'>
  <p align=center style='text-align:center'>窗体的单击事件 </p>
  </td>
  <td width=319 valign=top style='width:239.25pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Private Sub Form_Click() </span></strong></p>
  <p><span lang=EN-US>Form1.Picture = LoadPicture(&quot;d:\sj\abc.jpg&quot;) </span></p>
  <p><span lang=EN-US>Option1.Visible = False </span></p>
  <p><span lang=EN-US>Option2.Visible = False </span></p>
  <p><span lang=EN-US>Label1.ForeColor = RGB(255, 0, 0) </span></p>
  <p><span lang=EN-US>Label1.Caption = &quot; 预祝大家成功，干杯！ &quot; </span></p>
  <p><strong><span lang=EN-US>End Sub </span></strong></p>
  </td>
 </tr>
 <tr>
  <td width=157 style='width:117.75pt;padding:0cm 0cm 0cm 0cm'>
  <p align=center style='text-align:center'>窗体的双击事件 </p>
  </td>
  <td width=319 valign=top style='width:239.25pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Private Sub Form_DblClick() </span></strong></p>
  <p><span lang=EN-US>Form1.Picture = LoadPicture(&quot;&quot;) </span></p>
  <p><span lang=EN-US>Label1.Caption = &quot; 欢迎你学习 VB ！！ &quot; </span></p>
  <p><strong><span lang=EN-US>End Sub </span></strong></p>
  </td>
 </tr>
 <tr>
  <td width=157 style='width:117.75pt;padding:0cm 0cm 0cm 0cm'>
  <p align=center style='text-align:center'>选项按钮<span lang=EN-US> 1 的单击事件 </span></p>
  </td>
  <td width=319 valign=top style='width:239.25pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Private Sub Option1_Click() </span></strong></p>
  <p><span lang=EN-US>Label1.Caption = &quot; 看清楚 听明白 记下来 &quot; </span></p>
  <p><strong><span lang=EN-US>End Sub </span></strong></p>
  </td>
 </tr>
 <tr>
  <td width=157 style='width:117.75pt;padding:0cm 0cm 0cm 0cm'>
  <p align=center style='text-align:center'>选项按钮<span lang=EN-US> 2 的单击事件 </span></p>
  </td>
  <td width=319 valign=top style='width:239.25pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Private Sub Option2_Click() </span></strong></p>
  <p><span lang=EN-US>Label1.Caption = &quot; 多上机 勤思考 善提问 &quot; </span></p>
  <p><strong><span lang=EN-US>End Sub </span></strong></p>
  </td>
 </tr>
</table>

<p class=MsoNormal><span lang=EN-US style='display:none;mso-hide:all'><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p>

<table border=0 cellspacing=0 cellpadding=0 style='mso-cellspacing:0cm;
 mso-padding-alt:0cm 0cm 0cm 0cm'>
 <tr>
  <td width=36 style='width:27.0pt;padding:0cm 0cm 0cm 0cm'>
  <p class=MsoNormal><![if !supportEmptyParas]>&nbsp;<![endif]><span
  lang=EN-US><o:p></o:p></span></p>
  </td>
 </tr>
 <tr>
  <td style='padding:0cm 0cm 0cm 0cm'>
  <p class=MsoNormal><span lang=EN-US><img width=358 height=415
  id="_x0000_i1028" src=image007.jpg></span></p>
  </td>
  <td style='padding:0cm 0cm 0cm 0cm'>
  <p class=MsoNormal><![if !supportEmptyParas]>&nbsp;<![endif]><span
  lang=EN-US><o:p></o:p></span></p>
  </td>
 </tr>
</table>

<p class=MsoNormal><span lang=EN-US><br>
<strong>4 ．保存工程 </strong></span></p>

<p>（<span lang=EN-US> 1 ）从 <strong>文件 </strong>菜单中选择 <strong>保存窗体 </strong>，将窗体保存成
vbwelcomeyou . frm </span></p>

<p>（<span lang=EN-US> 2 ）从 <strong>文件 </strong>菜单中选择 <strong>保存工程 </strong>，将工程保存成
vbwelcomeyou . vbp </span></p>

<p><strong><span lang=EN-US>5 ．测试应用程序，排除错误 </span></strong></p>

<p>根据设想的效果调试程序，直到满足要求为止。 </p>

<p><strong><span lang=EN-US>6 ．创建可执行程序 </span></strong></p>

<p>从 <strong>文件 </strong>菜单中选择 <strong>生成<span lang=EN-US> vbwelcomeyou . exe </span></strong>，既可生成一个可执行文件。
</p>

</div>

</body>

</html>
123

⌨️ 快捷键说明

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