匿名使用者
匿名使用者 發問時間: 電腦與網際網路程式設計 · 2 0 年前

vb問題(textbox)

如何用vb寫出筆記本程式??

如何用vb寫出筆記本程式??

3 個解答

評分
  • 匿名使用者
    2 0 年前
    最佳解答

    筆記本...

    文字編輯器吧

    應具有基本的開啟舊檔,儲存檔案,剪下,複製,貼上唄

    ' -----------------------------------------------

    ' 開啟舊檔 -

    ' -----------------------------------------------

    Private Sub cmdOpen_Click()

    On Error GoTo ErrHandler ' 按取消鈕則跳至ErrHandler

    CmDialog1.Filter = "Text files(*.txt) | *.txt"

    CmDialog1.FilterIndex = 1

    CmDialog1.Action = 1 ' 開啟舊檔對話方塊

    Open CmDialog1.filename For Input As #1 ' 開檔

    While Not EOF(1) ' 讀檔

    Line Input #1, Lstr

    txtDemo.Text = txtDemo.Text + Lstr + Chr(13) + Chr(10)

    Wend

    Close #1 ' 關檔

    ErrHandler:

    Exit Sub

    End Sub

    ' -----------------------------------------------

    ' 另存新檔 -

    ' -----------------------------------------------

    Private Sub cmdSave_Click()

    On Error GoTo ErrHandler ' 按取消鈕則跳至ErrHandler

    CmDialog1.Filter = "Text files(*.txt) | *.txt"

    CmDialog1.FilterIndex = 1

    CmDialog1.Action = 2 ' 存檔對話方塊

    Open CmDialog1.filename For Output As #1

    Print #1, txtDemo.Text ' 存檔

    Close #1 ' 關檔

    ErrHandler:

    Exit Sub

    End Sub

    ' -----------------------------------------------

    ' 物件名稱:cmdCopy 事件名稱:Click -

    ' -----------------------------------------------

    Private Sub cmdCopy_Click()

    Clipboard.Clear

    Clipboard.SetText txtDemo.SelText

    End Sub

    ' -----------------------------------------------

    ' 物件名稱:cmdCut 事件名稱:Click -

    ' -----------------------------------------------

    Private Sub cmdCut_Click()

    Clipboard.Clear ' 先清除剪貼簿

    Clipboard.SetText txtDemo.SelText ' 放至剪貼簿

    txtDemo.SelText = "" ' 清除所選字串

    End Sub

    ' -----------------------------------------------

    ' 物件名稱:cmdPaste 事件名稱:Click -

    ' -----------------------------------------------

    Private Sub cmdPaste_Click()

    txtDemo.SelText = Clipboard.GetText()

    End Sub

    2005-01-03 21:39:38 補充:

    超過5分鐘的就不寫啦=o=

    真的想學的不會這樣問啦=o=

  • 匿名使用者
    2 0 年前

    辛苦你了

    為啥不要給它網址讓它自己去翻資料阿~"~....

  • UML魔人你真的是蠻花時間的幫人做作業辛苦你了。

還有問題?馬上發問,尋求解答。