/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Nå ny ting i skal hjælper lille mig med
Fra : Jesper


Dato : 08-10-01 21:37

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



 
 
Jan Røhmer Christens~ (09-10-2001)
Kommentar
Fra : Jan Røhmer Christens~


Dato : 09-10-01 06:57

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
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste