ba13.htm

VB教程

                    　　 RowCount:=2;<br>
                    　　 end;<br>
                    　　 Button2.Enabled:=False;<br>
                    　　 Button3.Enabled:=False;<br>
                    　　end;<br>
                    　　procedure TForm1.NMSMTP1Failure(Sender: TObject);<br>
                    　　begin<br>
                    　　 StatusBar1.SimpleText:=‘Mail send failure!’;<br>
                    　　end;<br>
                    　　procedure TForm1.NMSMTP1SendStart(Sender: TObject);<br>
                    　　begin<br>
                    　　 StatusBar1.SimpleText:=‘Now Sending...’;<br>
                    　　end;<br>
                    　　procedure TForm1.NMSMTP1Success(Sender: TObject);<br>
                    　　begin<br>
                    　　 StatusBar1.SimpleText:=‘Send Success!’;<br>
                    　　end;<br>
                    　　end.<br>
                    　　Button1是“New Mail”按钮，Button 2是“Send”按钮，Button3是“Clear” 按钮。<br>
                    　　以下是Unit2代码清单：<br>
                    　　unit Unit2;<br>
                    　　interface<br>
                    　　uses<br>
                    　　 Windows, Messages, SysUtils, Classes, Graphics, Controls, 
                    Forms, <br>
                    Dialogs, StdCtrls;<br>
                    　　type<br>
                    　　 TForm2 = class(TForm)<br>
                    　　 OpenDialog1: TOpenDialog;<br>
                    　　 GroupBox1: TGroupBox;<br>
                    　　 GroupBox2: TGroupBox;<br>
                    　　 Edit1: TEdit;<br>
                    　　 Edit2: TEdit;<br>
                    　　 Edit3: TEdit;<br>
                    　　 Edit4: TEdit;<br>
                    　　 Edit5: TEdit;<br>
                    　　 Button1: TButton;<br>
                    　　 Button2: TButton;<br>
                    　　 Button3: TButton;<br>
                    　　 Label1: TLabel;<br>
                    　　 Label2: TLabel;<br>
                    　　 Label3: TLabel;<br>
                    　　 Label4: TLabel;<br>
                    　　 Label5: TLabel;<br>
                    　　 Label6: TLabel;<br>
                    　　　procedure Button1Click(Sender: TObject);<br>
                    　　 procedure Button2Click(Sender: TObject);<br>
                    　　 procedure Button3Click(Sender: TObject);<br>
                    　　 procedure FormActivate(Sender: TObject);<br>
                    　　 procedure FormCreate(Sender: TObject);<br>
                    　　 private<br>
                    　　 { Private declarations }<br>
                    　　 public<br>
                    　　 { Public declarations }<br>
                    　　 end;<br>
                    　　var<br>
                    　　 Form2: TForm2;<br>
                    　　implementation<br>
                    　　uses Unit1;<br>
                    　　{＄R ＊.DFM}<br>
                    　　procedure TForm2.FormCreate(Sender: TObject);<br>
                    　　begin<br>
                    　　 self.Caption:=‘New Mail’; <br>
                    　　 self.BorderStyle:=bsDialog;<br>
                    　　end;<br>
                    　　procedure TForm2.FormActivate(Sender: TObject);<br>
                    　　begin<br>
                    　　 Edit1.Text:=‘’;<br>
                    　　 Edit2.Text:=‘’;<br>
                    　　 Edit3.Text:=‘’;<br>
                    　　 Edit4.Text:=‘’;<br>
                    　　 Edit5.Text:=‘’;<br>
                    　　 Label1.Caption:=‘No File’;<br>
                    　　end;<br>
                    　　procedure TForm2.Button1Click(Sender: TObject);<br>
                    　　begin<br>
                    　　 if OpenDialog1.Execute then<br>
                    　　 Label1.Caption:=Opendialog1.Filename;<br>
                    　　end;<br>
                    　　procedure TForm2.Button2Click(Sender: TObject);<br>
                    　　var<br>
                    　　i:Integer;<br>
                    　　begin<br>
                    　　 if (Edit1.Text&lt;&gt;‘’) and (Edit2.Text&lt;&gt;‘’) and 
                    (Edit5.Text&lt;&gt;‘’) <br>
                    and (Label1.Caption&lt;&gt;‘No File’) then<br>
                    　　 begin<br>
                    　　 with Form1.StringGrid1 do<br>
                    　　 begin<br>
                    　　 RowCount:=RowCount＋1;<br>
                    　　 i:=RowCount－2;<br>
                    　　 Cells[0,i]:=Edit1.Text;<br>
                    　　 Cells[1,i]:=Edit2.Text;<br>
                    　　 Cells[2,i]:=Edit5.Text;<br>
                    　　 Cells[3,i]:=Edit3.Text;<br>
                    　　 Cells[4,i]:=Edit4.Text;<br>
                    　　 Cells[5,i]:=Label1.Caption;<br>
                    　　 end;<br>
                    　　 Form1.Button2.Enabled:=True;<br>
                    　　 Form1.Button3.Enabled:=True;<br>
                    　　 end;<br>
                    　　 self.Hide;<br>
                    　　end;<br>
                    　　procedure TForm2.Button3Click(Sender: TObject);<br>
                    　　begin<br>
                    　　 self.Hide; <br>
                    　　end;<br>
                    　　end.<br>
                    　　Edit1、Edit2、Edit3、Edit4、Edit5编辑框分别用于填写服务器名称、收件<br>
                    人地址、发件人名称、邮件主题和发件人地址。<br>
                    　　现在一个E－mail发送程序就完成了。你可以试一试，自已给自已发几封邮件，<br>
                    用FoxMail之类的软件是否能收到信。顺便说一句，本文就是用这个自编程序发到<br>
                    编辑部的。</font>
                </div>
              </td>
            </tr>
          </center>
          <tr> 
            <td width="100%" class="unnamed1"> 
              <p align=right><a href="ba12.htm">（上一页）</a>---<a href="ba14.htm">（下一页）</a></p>
            </td>
          </tr>
          <tr> 
            <td width="100%" class="unnamed1"> 
              <p 
    align=right><font 
      color=#ffa000><b>　[</b></font><a 
      href="javascript:window.close();"> </a><font 
      color=#ffa000><b>］</b></font></p>
            </td>
          </tr>
        </table>
        <div align=center></div>
        <div align="center"> 　-------------------  </a> 
          | <a href="../cuiyunfeng.htm" target="_blank">版权声明</a> | <a href="../bbs/index.asp"> </a> 
          |<a href="../../paddy.myrice.com/pcbyte.reg" 
      onMouseOver="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.pcbyte.net/');" 
      title=把本站加为首页,方便浏览>设为首页</a> |<a href="2c.htm"> </a>&nbsp;-------------------<br>
          <font size="-1">
          <script language="JavaScript">
var tc_user="pcbyte";var tc_class="2";</script>
          <script src="../../stat.t2t2.com/stat.js">
</script>
          </font> <font size="-1"> </font></span></div>
    </div>
      </td>
  </tr>
  <!--msnavigation--></tbody>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>