揽清枫 發表於 2012-10-10 21:39:00

VB简易记事本实现代码

事件实现代码： <BR><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code12954"> <BR>Private Sub mQuit_Click() <BR>Text1.Text = "" <BR>End <BR>End Sub <br><br>Private Sub mNew_Click() <BR>Text1.Text = "" <BR>Form1.Caption = "未命名" <BR>End Sub <BR>Private Sub mopen_Click() <BR>CommonDialog1.ShowOpen <BR>Frame = CommonDialog1.FileName <BR>If fname &lt;&gt; "" Then <BR>Form1.Caption = fname <BR>Text1.Text = "" <BR>Open fname For Input As #1 <BR>b = "" <BR>Do Until EOF(1) <BR>Line Input #1, nextline <BR>b = b &amp; nextline &amp; Chr(13) &amp; Chr(10) <BR>Loop <BR>Close #1 <BR>Text1.Text = b <BR>End If <BR>End Sub <BR>Private Sub mSave_Click() <BR>If Form1.Caption = "未命名" Or Form1.Caption = "" Then <BR>CommonDialog1.ShowSave <BR>fname = CommonDialog1.FileName <BR>Else <BR>fname = Form1.Caption <BR>End If <BR>If fname &lt;&gt; "" Then <BR>Form1.Caption = fname <BR>Open fname For Output As #1 <BR>Print #1, Text1.Text <BR>Close #1 <BR>End If <BR>End Sub <BR>Private Sub mNewSave_Click() <BR>CommonDialog1.ShowSave <BR>If fname &lt;&gt; "" Then <BR>Form1.Caption = fname <BR>Open fname For Output As #1 <BR>Print #1, Text1.Text <BR>Close #1 <BR>End If <BR>End Sub <BR></div> <BR>需要用CommonDialog控件！ <BR>属性代码： <BR><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code4668"> <BR>Begin VB.Menu mFile <BR>Caption = "文件" <BR>Begin VB.Menu mNew <BR>Caption = "新建" <BR>End <BR>Begin VB.Menu mOpen <BR>Caption = "打开" <BR>End <BR>Begin VB.Menu mSave <BR>Caption = "保存" <BR>End <BR>Begin VB.Menu mNewSave <BR>Caption = "另存为" <BR>End <BR>Begin VB.Menu mQuit <BR>Caption = "退出" <BR>Shortcut = ^E <BR>End <BR>End <BR></div>
                           
                            <div class="art_xg">
                              <b>您可能感兴趣的文章:</b><ul><li>怎么运行用记事本写的java程序</li><li>使用Java制作一个简单的记事本</li><li>A notepad made in HTA(hta实现的记事本)</li><li>使用记事本编写java程序全过程图解</li><li>简单记事本java源码实例</li><li>EXTJS记事本 当CompositeField遇上RowEditor</li><li>Excel、记事本数据导入到数据库的实现方法</li><li>python3.5使用tkinter制作记事本</li><li>Python基于Tkinter实现的记事本实例</li><li>Android实现记事本功能（26）</li></ul>
                            </div>

                        </div>
                        <!--endmain-->
頁: [1]
查看完整版本: VB简易记事本实现代码