For mig ser du ud som om du vil lave en slags Editor som wordpad måske eller
et eller andet... er det rigtig??
Du kunne evt. kigge i denne kode så..
http://www.planet-source-code.com/xq/ASP/txtCodeId.13291/lngWId.1/qx/vb/scri
pts/ShowCode.htm
"Jesper" <jesper@ahasverusen.dk> skrev i en meddelelse
news:3bc20cde$0$42066$edfadb0f@dspool01.news.tele.dk...
> Jeg skal bruge noegn kode og jeg skrive lide dem ned oki.
>
>
> Private Sub tbToolBar_ButtonClick(ByVal Button As MSComCtlLib.Button)
> On Error Resume Next
> Select Case Button.Key
> Case "Back"
> 'ToDo: Add 'Back' button code.
> MsgBox "Add 'Back' button code."
> Case "Forward"
> 'ToDo: Add 'Forward' button code.
> MsgBox "Add 'Forward' button code."
> Case "Cut"
> mnuEditCut_Click
> Case "Copy"
> mnuEditCopy_Click
> Case "Paste"
> mnuEditPaste_Click
> Case "Delete"
> mnuFileDelete_Click
> End Select
> End Sub
>
> Private Sub mnuEditSelectAll_Click()
> 'ToDo: Add 'mnuEditSelectAll_Click' code.
> MsgBox "Add 'mnuEditSelectAll_Click' code."
> End Sub
>
> Private Sub mnuEditPaste_Click()
> 'ToDo: Add 'mnuEditPaste_Click' code.
> MsgBox "Add 'mnuEditPaste_Click' code."
> End Sub
>
> Private Sub mnuEditCopy_Click()
> 'ToDo: Add 'mnuEditCopy_Click' code.
> MsgBox "Add 'mnuEditCopy_Click' code."
> End Sub
>
> Private Sub mnuEditCut_Click()
> 'ToDo: Add 'mnuEditCut_Click' code.
> MsgBox "Add 'mnuEditCut_Click' code."
> End Sub
>
> Private Sub mnuFileClose_Click()
> 'unload the form
> Unload Me
>
> End Sub
>
> Private Sub mnuFileDelete_Click()
> 'ToDo: Add 'mnuFileDelete_Click' code.
> MsgBox "Add 'mnuFileDelete_Click' code."
> End Sub
>
> Private Sub mnuFileNew_Click()
> 'ToDo: Add 'mnuFileNew_Click' code.
> MsgBox "Add 'mnuFileNew_Click' code."
> End Sub
> er der nogen der kan hjælper mig med at finder nogen kode til dem her .
> Jesper@ahasverusen.dk
>
>