|
-
Jan 24th, 2005, 12:43 PM
#1
Thread Starter
Lively Member
Window>Docu 1,docu 2,docu 3 Ect Ect
Hello all: included a small code for you to look at :
VB Code:
Private Sub tbToolBar_ButtonClick(ByVal Button As MSComCtlLib.Button)
On Error Resume Next
Select Case Button.Key
Case "New"
LoadNewDoc
Case "Open"
mnuFileOpen_Click
Case "Save"
mnuFileSave_Click
Case "Print"
mnuFilePrint_Click
Case "Cut"
mnuEditCut_Click
Case "Copy"
mnuEditCopy_Click
Case "Paste"
mnuEditPaste_Click
Case "Bold"
ActiveForm.rtfText.SelBold = Not ActiveForm.rtfText.SelBold
Button.Value = IIf(ActiveForm.rtfText.SelBold, tbrPressed, tbrUnpressed)
Case "Italic"
ActiveForm.rtfText.SelItalic = Not ActiveForm.rtfText.SelItalic
Button.Value = IIf(ActiveForm.rtfText.SelItalic, tbrPressed, tbrUnpressed)
Case "Underline"
ActiveForm.rtfText.SelUnderline = Not ActiveForm.rtfText.SelUnderline
Button.Value = IIf(ActiveForm.rtfText.SelUnderline, tbrPressed, tbrUnpressed)
Case "Align Left"
ActiveForm.rtfText.SelAlignment = rtfLeft
Case "Center"
ActiveForm.rtfText.SelAlignment = rtfCenter
Case "Align Right"
ActiveForm.rtfText.SelAlignment = rtfRight
Case "Back"
'another todo,add the screen back code
Case "Forward"
'ToDo: Add 'Forward' button code.
'So i want this button to move 1 Forward like from Document 1 towards document 2(without opening a new instance Just to goto the next one)
MsgBox "Add 'Forward' button code."
End Select
Okay what i want the forward and back code to do is move to the next instance of frmbrowser(like when you click on Windows> frmbrowser1 and then plus one)I hope you understand,Help me please :-(
Last edited by Neo-dark; Jan 24th, 2005 at 03:57 PM.
Reason: Wrong subject
i got kicked out of barnes and noble once for moving all the bibles into the fiction section"--FD
Of course I'm a real doctor! I'll draw up my own diploma some time to prove it!-Dr Dis
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|