yet another notepad

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

yet another notepad

Logged in as: Guest

arrSession:exec spGetSession 2,16,47210

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> yet another notepad
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

yet another notepad - 5/18/2007 8:10:08 AM

SilentBob

Posts: 38
Score: 0
Joined: 3/27/2007
Status: offline

Yes, it's a notepad.
Actually, I was trying to make some kind of menu for..., well it turned out to be a notepad

.
It's only halve way, but the basics are there. I'm using a CommonDialog object, it works for me, but maybe not for others.?

stuff that doesn't work (yet)

Print
Find
Replace
Tabs in the textarea
Font change on just a selection
A statusbar that keeps track of cursor position
...

You can download the full program with all the bells here

So, here's the basic code

<html>
<head>
<title>NotePad HTA</title>
<HTA:APPLICATION
Application ID = "NotePadHTA"
APPLICATIONNAME = "NotePad HTA"
BORDER = "Thick"
BORDERSTYLE = "Normal"
CAPTION = "Yes"
CONTEXTMENU = "Yes"
ICON = "Notepad-HTA16.ico"
INNERBORDER = "Yes"
MAXIMIZEBUTTON = "Yes"
MINIMIZEBUTTON = "Yes"
NAVIGABLE = "No"
SCROLL = "No"
SCROLLFLAT = "No"
SELECTION = "No"
SHOWINTASKBAR = "Yes"
SINGLEINSTANCE = "No"
SYSMENU = "Yes"
VERSION = "0.5"
WINDOWSTATE = "Maximize"
/>
<link rel="stylesheet" href="Style.css" type="text/css" />
<SCRIPT type="text/vbscript">

Option Explicit
Dim blnMnuClicked : blnMnuClicked = False
Dim blnTextChanged : blnTextChanged = False
Dim strFileName

Sub Window_onLoad
 
 mnuBckGrd.Style.width = document.body.clientWidth
 txtArea.Style.width = document.body.clientWidth
 txtArea.Style.Height = document.body.clientHeight-20
 Document.Title = NotePadHTA.ApplicationName & "  -  " & "New File"
 blnTextChanged = False
 txtArea.Focus
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub Window_onScroll
 
 'Keep the menu topside
 mnuBckGrd.Style.Top = document.body.scrolltop
 mnuContainer.Style.Top = document.body.scrolltop
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub Window_onResize
 mnuBckGrd.Style.width = document.body.clientWidth
 txtArea.Style.width = document.body.clientWidth
 txtArea.Style.Height = document.body.clientHeight-20
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub Window_onActivate
 txtArea.Focus
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'a lot of repeatative code for the menu
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub mnuBckGrd_onMouseEnter
 blnMnuClicked = False
 MenuItem1.Style.borderstyle = "none"
 SubMenu1.Style.Visibility = "hidden"
 MenuItem2.Style.borderstyle = "none"
 SubMenu2.Style.Visibility = "hidden"
 MenuItem3.Style.borderstyle = "none"
 SubMenu3.Style.Visibility = "hidden"
 MenuItem4.Style.borderstyle = "none"
 SubMenu4.Style.Visibility = "hidden"
 
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub MenuItem1_onMouseEnter
 
 MenuItem2.Style.borderstyle = "none"
 SubMenu2.Style.Visibility = "hidden"
 MenuItem3.Style.borderstyle = "none"
 SubMenu3.Style.Visibility = "hidden"
 MenuItem4.Style.borderstyle = "none"
 SubMenu4.Style.Visibility = "hidden"    
 
 If blnMnuClicked = False Then
     
     With MenuItem1.Style
         .bordertopcolor = "white"
         .borderleftcolor = "white"
         .borderstyle = "solid"
     End With
 
 Else
     MenuItem1.Style.borderstyle = "inset"
     SubMenu1.Style.Visibility = "visible"
     SubMenu2.Style.Visibility = "hidden"
         
 End If
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub MenuItem1_onMouseLeave
     
 If blnMnuClicked = False Then
     MenuItem1.Style.borderstyle = "none"
     SubMenu1.Style.Visibility = "hidden"
 Else
     MenuItem1.Style.borderstyle = "none"
 End If
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub MenuItem1_onMouseDown

blnMnuClicked = Not blnMnuClicked
 
 if blnMnuClicked = True then
     MenuItem1.Style.borderstyle = "inset"
     SubMenu1.Style.Visibility = "visible"
 Else
     
     With MenuItem1.Style
     .bordertopcolor = "white"
     .borderleftcolor = "white"
     .borderstyle = "solid"
 End With
     SubMenu1.Style.Visibility = "hidden"
 End If

End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub SubMenu1_onMouseLeave

blnMnuClicked = Not blnMnuClicked
 
 SubMenu1.Style.Visibility = "hidden"
 MenuItem1.Style.borderstyle = "none"
 
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub MenuItem2_onMouseEnter
 
 MenuItem1.Style.borderstyle = "none"
 SubMenu1.Style.Visibility = "hidden"
 MenuItem3.Style.borderstyle = "none"
 SubMenu3.Style.Visibility = "hidden"
 MenuItem4.Style.borderstyle = "none"
 SubMenu4.Style.Visibility = "hidden"    
 
 If blnMnuClicked = False Then
 
     With MenuItem2.Style
         .bordertopcolor = "white"
         .borderleftcolor = "white"
         .borderstyle = "solid"
     End With
 
 Else
     MenuItem2.Style.borderstyle = "inset"
     SubMenu1.Style.Visibility = "hidden"
     SubMenu2.Style.Visibility = "visible"
         
 End If
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub MenuItem2_onMouseLeave
     
 If blnMnuClicked = False Then
     MenuItem2.Style.borderstyle = "none"
     SubMenu2.Style.Visibility = "hidden"
 Else
     MenuItem2.Style.borderstyle = "none"
 End If
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub MenuItem2_onMouseDown

blnMnuClicked = Not blnMnuClicked

if blnMnuClicked = True then
     MenuItem2.Style.borderstyle = "inset"
     SubMenu2.Style.Visibility = "visible"
 Else
     
     With MenuItem2.Style
         .bordertopcolor = "white"
         .borderleftcolor = "white"
         .borderstyle = "solid"
     End With
     SubMenu2.Style.Visibility = "hidden"
 End If

Sub SubMenu2_onMouseLeave

blnMnuClicked = Not blnMnuClicked
 
 SubMenu2.Style.Visibility = "hidden"
 MenuItem2.Style.borderstyle = "none"
 
End Sub

'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub MenuItem3_onMouseEnter
 
 MenuItem2.Style.borderstyle = "none"
 SubMenu2.Style.Visibility = "hidden"
 MenuItem1.Style.borderstyle = "none"
 SubMenu1.Style.Visibility = "hidden"
 MenuItem4.Style.borderstyle = "none"
 SubMenu4.Style.Visibility = "hidden"    
     
 If blnMnuClicked = False Then
     
     With MenuItem3.Style
         .bordertopcolor = "white"
         .borderleftcolor = "white"
         .borderstyle = "solid"
     End With
 
 Else
     MenuItem3.Style.borderstyle = "inset"
     SubMenu3.Style.Visibility = "visible"
     SubMenu2.Style.Visibility = "hidden"
         
 End If
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub MenuItem3_onMouseLeave
     
 If blnMnuClicked = False Then
     MenuItem3.Style.borderstyle = "none"
     SubMenu3.Style.Visibility = "hidden"
 Else
     MenuItem3.Style.borderstyle = "none"
 End If
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub MenuItem3_onMouseDown

blnMnuClicked = Not blnMnuClicked
 
 if blnMnuClicked = True then
     MenuItem3.Style.borderstyle = "inset"
     SubMenu3.Style.Visibility = "visible"
 Else
     
     With MenuItem3.Style
         .bordertopcolor = "white"
         .borderleftcolor = "white"
         .borderstyle = "solid"
     End With
     SubMenu3.Style.Visibility = "hidden"
 End If

Sub SubMenu3_onMouseLeave

blnMnuClicked = Not blnMnuClicked
 
 SubMenu3.Style.Visibility = "hidden"
 MenuItem3.Style.borderstyle = "none"
 
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub MenuItem4_onMouseEnter
 
 MenuItem2.Style.borderstyle = "none"
 SubMenu2.Style.Visibility = "hidden"
 MenuItem3.Style.borderstyle = "none"
 SubMenu3.Style.Visibility = "hidden"
 MenuItem1.Style.borderstyle = "none"
 SubMenu1.Style.Visibility = "hidden"    
     
 If blnMnuClicked = False Then
     
     With MenuItem4.Style
         .bordertopcolor = "white"
         .borderleftcolor = "white"
         .borderstyle = "solid"
     End With
 
 Else
     MenuItem4.Style.borderstyle = "inset"
     SubMenu4.Style.Visibility = "visible"

End If
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub MenuItem4_onMouseLeave
     
 If blnMnuClicked = False Then
     MenuItem4.Style.borderstyle = "none"
 Else
     MenuItem4.Style.borderstyle = "none"
 End If
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub MenuItem4_onMouseDown

blnMnuClicked = Not blnMnuClicked
 
 if blnMnuClicked = True then
     MenuItem4.Style.borderstyle = "inset"
     SubMenu4.Style.Visibility = "visible"
 Else
     
     With MenuItem4.Style
     .bordertopcolor = "white"
     .borderleftcolor = "white"
     .borderstyle = "solid"
 End With
     SubMenu4.Style.Visibility = "hidden"
 End If

Sub SubMenu4_onMouseLeave
 
 blnMnuClicked = Not blnMnuClicked
 
 SubMenu4.Style.Visibility = "hidden"
 MenuItem4.Style.borderstyle = "none"
 
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub txtArea_onChange
 blnTextChanged = True
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
' It's time to click some buttons
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub mnuNew_onClick

Document.Title = NotePadHTA.ApplicationName & "  -  " & "New File"
 
 If blnTextChanged = True Then
 
     Select Case Msgbox("File is not saved yet." & vbcrlf & "Do you want to save now?", vbQuestion + vbYesNoCancel, "Save")
         Case vbYes
             mnuSave_onClick
         Case vbNo
             txtArea.Value = ""
             txtArea.Focus
             blnTextChanged = False
         Case vbCancel
             txtArea.Focus
             Exit Sub
     End Select
 Else
     txtArea.Value = ""
     txtArea.Focus
     
 End If
 txtArea.Focus
 SubMenu1.Style.Visibility = "hidden"
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub mnuOpen_onClick
 Dim objFSO, objReadFile, strContent, strWindowName
 
 
 'File Open/Save Dialog Box Flags
 'Constant                         Value     Description
 'cdlOFNAllowMultiselect             &H200     Specifies that the File Name list box allows multiple selections.
 '                                    The user can select more than one file at run time by pressing the SHIFT key and using the 
 '                                    UP ARROW and DOWN ARROW keys to select the desired files. When this is done, the 
 '                                    FileName property returns a string containing the names of all selected files. The names in the 
 '                                    string are delimited by spaces.
 'cdlOFNCreatePrompt                 &H2000     Specifies that the dialog box prompts the user to create a file that doesn't currently exist. 
 '                                    This flag automatically sets the cdlOFNPathMustExist and cdlOFNFileMustExist flags.
 'cdlOFNExplorer                     &H80000     Use the Explorer-like Open A File dialog box template. Common dialogs that use this flag do not 
 '                                    work under Windows NT using the Windows 95 shell.
 'CdlOFNExtensionDifferent             &H400     Indicates that the extension of the returned filename is different from the extension 
 '                                    specified by the DefaultExt property. This flag isn't set if the DefaultExt property is Null, 
 '                                    if the extensions match, or if the file has no extension. This flag value can be checked upon 
 '                                    closing the dialog box.
 'cdlOFNFileMustExist                 &H1000     Specifies that the user can enter only names of existing files in the File Name text box. 
 '                                    If this flag is set and the user enters an invalid filename, a warning is displayed. 
 '                                    This flag automatically sets the cdlOFNPathMustExist flag.
 'cdlOFNHelpButton                 &H10     Causes the dialog box to display the Help button.
 'cdlOFNHideReadOnly                 &H4         Hides the Read Only check box.
 'cdlOFNLongNames                 &H200000     Use long filenames.
 'cdlOFNNoChangeDir                 &H8         Forces the dialog box to set the current directory to what it was when the dialog box was opened.
 'CdlOFNNoDereferenceLinks             &H100000     Do not dereference shell links (also known as shortcuts). By default, choosing a shell link 
 '                                    causes it to be dereferenced by the shell.
 'cdlOFNNoLongNames                 &H40000     Do not use long file names.
 'CdlOFNNoReadOnlyReturn             &H8000     Specifies that the returned file won't have the Read Only attribute set and won't be in 
 '                                    a write-protected directory.
 'cdlOFNNoValidate                 &H100     Specifies that the common dialog box allows invalid characters in the returned filename.
 'cdlOFNOverwritePrompt             &H2         Causes the Save As dialog box to generate a message box if the selected file already exists. 
 '                                    The user must confirm whether to overwrite the file.
 'cdlOFNPathMustExist                 &H800     Specifies that the user can enter only valid paths. If this flag is set and the user enters an 
 '                                    invalid path, a warning message is displayed.
 'cdlOFNReadOnly                 &H1         Causes the Read Only check box to be initially checked when the dialog box is created. 
 '                                    This flag also indicates the state of the Read Only check box when the dialog box is closed.
 'CdlOFNShareAware                 &H4000     Specifies that sharing violation errors will be ignored.
     
 With CommonDialog
     .DialogTitle = "Open File"
     .DefaultExt = ""
     .Filter = "VBScript files (*.vbs)|*.vbs|Html Application (*.hta)|*.hta|Text files (*.txt)|*.txt|All files (*.*)|*.*"
     .Flags = &H1000
     .InitDir = "C:\"
     .CancelError = True
     
 End With
 
 On Error Resume Next
 CommonDialog.ShowOpen
 
 If Err Then
     Exit Sub
 End If

Err.Clear
 
 strFileName = CommonDialog.FileName
 
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set objReadFile = objFSO.OpenTextFile(strFileName)
 strContent = objReadFile.ReadAll
 objReadFile.Close
 
 Document.Title = NotePadHTA.ApplicationName & "  -  " & objFSO.GetFileName(strFileName)
 
 txtArea.Value = strContent
 txtArea.Focus
 
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub mnuSave_onClick
 dim objFSO, objFile
 
 If strFileName = "" Then
     mnuSaveAs_onClick
 Else
     Set objFSO = CreateObject("Scripting.FileSystemObject")
     Set objFile = objFSO.CreateTextFile(strFileName, True)
     objFile.WriteLine(txtArea.Value)
     objFile.Close
     blnTextChanged = False
     SubMenu1.Style.Visibility = "hidden"
 End If
 txtArea.Focus
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

On Error Resume Next

CommonDialog.ShowSave
 strFileName = CommonDialog.FileName
 If Err Then
     Exit Sub
 End If

Err.Clear
 
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 
 Set objFile = objFSO.CreateTextFile(CommonDialog.FileName, False)
 objFile.WriteLine(txtArea.Value)
 objFile.Close
 blnTextChanged = False
 
 Document.Title = NotePadHTA.ApplicationName & "  -  " & objFSO.GetFileName(CommonDialog.FileName)
 txtArea.Focus
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub mnuPrint_onClick
 
 Dim strText : strText = txtArea.Value

'    Printer Dialog Box Flags
 'Constant                 Value     Description
 'cdlPDAllPages             &H0         Returns or sets the state of the All Pages option button.
 'cdlPDCollate             &H10     Returns or sets the state of the Collate check box.
 'cdlPDDisablePrintToFile     &H80000     Disables the Print To File check box.
 'cdlPDHelpButton             &H800     Causes the dialog box to display the Help button.
 'cdlPDHidePrintToFile         &H100000     Hides the Print To File check box.
 'cdlPDNoPageNums         &H8         Disables the Pages option button and the associated edit control.
 'cdlPDNoSelection         &H4         Disables the Selection option button.
 'cdlPDNoWarning         &H80     Prevents a warning message from being displayed when there is no default printer.
 'cdlPDPageNums             &H2         Returns or sets the state of the Pages option button.
 'cdlPDPrintSetup             &H40     Causes the system to display the Print Setup dialog box rather than the Print dialog box.
 'cdlPDPrintToFile             &H20     Returns or sets the state of the Print To File check box.
 'cdlPDReturnDC             &H100     Returns a device context for the printer selection made in the dialog box. The device context is returned in the 
 '                            dialog box's hDC property.
 'cdlPDReturnDefault         &H400     Returns default printer name.
 'cdlPDReturnIC             &H200     Returns an information context for the printer selection made in the dialog box. An information context 
 '                            provides a fast way to get information about the device without creating a device context. 
 '                            The information context is returned in the dialog box's hDC property.
 'cdlPDSelection             &H1         Returns or sets the state of the Selection option button. If neither cdlPDPageNums nor cdlPDSelection is 
 '                            specified, the All option button is in the selected state.
 'cdlPDUseDevModeCopies     &H40000     If a printer driver doesn't support multiple copies, setting this flag disables the copies edit control. 
 '                            If a driver does support multiple copies, setting this flag indicates that the dialog box stores the requested 
 '                            number of copies in the Copies property.
 
 '
 '    * Printing Landscape - Printer.Orientation = 2
 '    * Printing Portrait - Printer.Orientation = 1
 
 With CommonDialog
     .DialogTitle = "Print File"
     .Flags = &H8
     .PrinterDefault = False
     .CancelError = True
     
 End with
 
 On Error Resume Next
 
 CommonDialog.ShowPrinter
 
 If Err Then
     txtArea.Focus
     Exit sub
 End If
 
 MsgBox "Not implemented yet.  ", vbInformation, ""
 txtArea.Focus
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub mnuCopy_onClick
 Dim objSelection
 
 Set objSelection = Document.Selection.CreateRange
 objSelection.execCommand("Copy")
 SubMenu2.Style.Visibility = "hidden"
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub mnuCut_onClick
 Dim objSelection
 
 Set objSelection = Document.Selection.CreateRange
 objSelection.execCommand("Cut")
 SubMenu2.Style.Visibility = "hidden"
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub mnuPaste_onClick
 
 Dim WShell
 
'    This is a stupid solution I know, but I couldn't find an easy paste to cursor position in a textarea,
'    and CTRL+V still works in a textarea, so there ;-P keep it simple
 
 Set WShell = CreateObject("WScript.Shell")
 
 'txtArea lost focus when clicking the menu, so we have to take it back before pasting
 txtArea.Focus
 WShell.SendKeys "^v"
 
 SubMenu2.Style.Visibility = "hidden"
     
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub mnuFind_onClick
 MsgBox "Not implemented yet.  ", vbInformation, ""
 txtArea.Focus
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub mnuReplace_onClick
 MsgBox "Not implemented yet.  ", vbInformation, ""
 txtArea.Focus
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub mnuFont_onClick

'Fonts Dialog Box Flags
 'Constant                     Value            Description
 'cdlCFANSIOnly                 &H400         Specifies that the dialog box allows only a selection of the fonts that use the Windows character set. 
 '                                    If this flag is set, the user won't be able to select a font that contains only symbols.
 'cdlCFApply                 &H200         Enables the Apply button on the dialog box.
 'cdlCFBoth                     &H3             Causes the dialog box to list the available printer and screen fonts. The hDC property identifies the 
 '                                    device context associated with the printer.
 'cdlCFEffects                 &H100         Specifies that the dialog box enables strikethrough, underline, and color effects.
 'cdlCFFixedPitchOnly             &H4000         Specifies that the dialog box selects only fixed-pitch fonts.
 'cdlCFForceFontExist             &H10000         Specifies that an error message box is displayed if the user attempts to select a font or style 
 '                                    that doesn't exist.
 'cdlCFHelpButton                 &H4             Causes the dialog box to display a Help button.
 'cdlCFLimitSize                 &H2000         Specifies that the dialog box selects only font sizes within the range specified by 
 '                                    the Min and Max properties.
 'cdlCFNoFaceSel                 &H80000         No font name selected.
 'cdlCFNoSimulations             &H1000         Specifies that the dialog box doesn't allow graphic device interface (GDI) font simulations.
 'cdlCFNoSizeSel                 &H200000         No font size selected.
 'cdlCFNoStyleSel             &H100000         No style was selected.
 'cdlCFNoVectorFonts             &H800         Specifies that the dialog box doesn't allow vector-font selections.
 'cdlCFPrinterFonts             &H2             Causes the dialog box to list only the fonts supported by the printer, specified by the hDC property.
 'cdlCFScalableOnly             &H20000         Specifies that the dialog box allows only the selection of fonts that can be scaled.
 'cdlCFScreenFonts             &H1             Causes the dialog box to list only the screen fonts supported by the system.
 'cdlCFTTOnly                 &H40000         Specifies that the dialog box allows only the selection of TrueType fonts.
 'cdlCFWYSIWYG             &H8000         Specifies that the dialog box allows only the selection of fonts that are available on both 
 '                                    the printer and on screen. If this flag is set, the cdlCFBoth and cdlCFScalableOnly flags should also be set.
 With CommonDialog
     .DialogTitle = "Font"
     .Flags = &H2
     .CancelError = True
 End with

On Error Resume Next
 CommonDialog.ShowFont
 
 If Err Then
     txtArea.Focus
     Exit Sub
 End If

txtArea.Style.FontFamily = CommonDialog.FontName
 txtArea.Style.FontSize = CommonDialog.FontSize
 
 If CommonDialog.FontBold = True Then
     txtArea.Style.FontWeight = "bold"
 Else
     txtArea.Style.FontWeight = "normal"
 End If
 
 If CommonDialog.FontItalic = True Then
     txtArea.Style.FontStyle = "italic"
 Else
     txtArea.Style.FontStyle = "normal"
 End If
 txtArea.Focus        
         
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub mnuAbout_onClick
 
 window.showModalDialog "About.htm","","status:false;dialogWidth:300px;dialogHeight:400px;unadorned:yes;edge:raised;status:no;"
 
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub mnuExit_onClick
 self.close
End Sub

</SCRIPT>

</head>
<body>
<div id="mnuBckGrd"></div>
 <div id="mnuContainer">
     <div id="MenuItem1" align="center" unselectable="on">File
     </div>
     
         <div id="SubMenu1" align="Left" unselectable="on">
         <ul>
             <li><a href="#" id="mnuNew"><img src="icons\page_white.png"></img>New</a></li>
             <li><a href="#" id="mnuOpen"><img src="icons\folder_page.png"></img>Open</td></a></li>
             <li><a href="#" id="mnuSave"><img src="icons\disk.png"></img>Save</a></li>
             <li><a href="#" id="mnuSaveAs"><img src="icons\empty.ico"></img>Save As...</a></li>
             <li><hr></li>
             <li><a href="#" id="mnuPrint"><img src="icons\printer.png"></img>Print</a></li>
             <li><hr></li>
             <li><a href="#" id="mnuExit"><img src="icons\exit.png"></img>Exit</a></li>
         </ul>
         </div>

<div id="MenuItem2" align="center" unselectable="on">Edit
     </div>
         <div id="SubMenu2" align="Left" unselectable="on">
         <ul>
             <li><a href="#" id="mnuCopy"><img src="icons\page_copy.png"></img>Copy &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Ctrl+C</a></li>
             <li><a href="#" id="mnuCut"><img src="icons\cut_red.png"></img>Cut &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Ctrl+X</td></a></li>
             <li><a href="#" id="mnuPaste"><img src="icons\page_paste.png"></img>Paste &nbsp;&nbsp;&nbsp;&nbsp; Ctrl+V</a></li>
             <li><hr></li>
             <li><a href="#" id="mnuFind"><img src="icons\find.png"></img>Find</a></li>
             <li><a href="#" id="mnuReplace"><img src="icons\replace.png"></img>Replace</a></li>
         </ul>
         </div>
     
     
     <div id="MenuItem3" align="center" unselectable="on">Format
     </div>
         <div id="SubMenu3" align="Left" unselectable="on">
         <ul>
             <li><a href="#" id="mnuFont"><img src="icons\font.png"></img>Font</a></li>
         </ul>
         </div>
     
     
     <div id="MenuItem4" align="center" unselectable="on">Help
     </div>
         <div id="SubMenu4" align="Left" unselectable="on">
         <ul>
             <li><a href="#" id="mnuAbout"><img src="icons\empty.ico"></img>About</a></li>
         </ul>
         </div>
     
         
 </div>

<object id="CommonDialog" classid=clsid:F9043C85-F6F2-101A-A3C9-08002B2F49FB>
</object>

<!-- The StatusBar object
<object id="stbPanel" classid=clsid:8E3867A3-8586-11D1-B16A-00C0F0283628>
 <param NAME="_ExtentX" VALUE="14579">
 <param NAME="_ExtentY" VALUE="661">
 <param NAME="Style" VALUE="0">
 <param NAME="SimpleText" VALUE="Status">
 <param NAME="ShowTips" VALUE="-1">
 <param NAME="_Version" VALUE="393216">
 <param NAME="MousePointer" VALUE="0">
 <param NAME="Enabled" VALUE="1">
 <param NAME="OLEDropMode" VALUE="0">
 </object>

-->
</body>
</html>

And the Style.css sheet

body {background: Gainsboro ;
     }
 
 
 #TextDiv {position: absolute;
             top: 22px;
             left: 0px;
             bottom: 0px;
             z-index: -1;
         }
 
 hr    {
     margin: 0px;
     padding: 0px;
     }
     
 #mnuBckGrd {
             position: absolute;
             top: 0px;
             left: 0px;
             right: 0px;
             height: 24px;
             background-color: buttonface;
             border-Bottom-Style: groove;
             border-width: 2px;
         }
 
 #mnuContainer {
             position: absolute;
             top: 0px;
             left: 0px;
             right: 0px;
             font-family: arial;
             font-size: 10pt;
         }
         
 #MenuItem1 {
             position: absolute;
             top:  2px;
             left:  1px;
             height:  15px;
             width:  50px;
             background-color: #D4D0C8;
             border-width: 1px;
             margin: 0px;
             padding: 0px;
         }
         
 #SubMenu1 {
             position: absolute;
             top:  20px;
             left:  1px;
             height:  15px;
             width:  150px;
             background-color: #D4D0C8;
             border-width: 1px;
             border-style: solid;
             border-top-color: white;
             border-left-color: white;
             visibility: hidden;
         }
 
 #SubMenu1 ul {
             padding: 0px;
             margin: 0px;
             list-style-type: none;
             
         }
 #SubMenu1 a {
             display: block;
             border: ButtonFace;
             border-style: solid;
             border-width: 1px;
             margin: 1px;
             padding: 1px;
             width: 160px;
             color: black;
             text-decoration: none;
         }
 #SubMenu1 a:hover {
             background-color: LightSteelBlue;
             border: black;
             border-style: solid;
             border-width: 1px;
             margin: 1px;
             padding: 1px;
             cursor: default;
         }        
         
 #SubMenu1 a:link{
             color: black;
             text-decoration: none;
         }
 
 #SubMenu1 a:visited {
             color: black;
             text-decoration: none;
         }
 #SubMenu1 img {
             border: none;
             padding: 0px;
             margin-left: 5px;
             margin-right: 7px;
             align: left;
         }
         
 
 #MenuItem2 {
             position: absolute;
             top:  2px;
             left:  51px;
             height:  15px;
             width:  50px;
             background-color: #D4D0C8;
             border-width: 1px;
         }
 #SubMenu2 {
             position: absolute;
             top:  20px;
             left:  51px;
             height:  15px;
             width:  150px;
             background-color: #D4D0C8;
             border-width: 1px;
             border-style: solid;
             border-top-color: white;
             border-left-color: white;
             visibility: hidden;
         }
 
 
 #SubMenu2 ul {
             padding: 0px;
             margin: 0px;
             list-style-type: none;
             
         }
 #SubMenu2 a {
             display: block;
             border: ButtonFace;
             border-style: solid;
             border-width: 1px;
             margin: 1px;
             padding: 1px;
             width: 160px;
             color: black;
             text-decoration: none;
         }
         
 #SubMenu2 a:hover {
             background-color: LightSteelBlue;
             border: black;
             border-style: solid;
             border-width: 1px;
             margin: 1px;
             padding: 1px;
             cursor: default;
         }
         
 #SubMenu2 a:link{
             color: black;
             text-decoration: none;
         }
 
 #SubMenu1 a:visited {
             color: black;
             text-decoration: none;
         }
 #SubMenu2 img {
             border: none;
             padding: 0px;
             margin-left: 5px;
             margin-right: 7px;
             align: left;
         }
         
         
 
 #MenuItem3 {
             position: absolute;
             top:  2px;
             left:  101px;
             height:  15px;
             width:  50px;
             background-color: #D4D0C8;
             border-width: 1px;
             margin: 0px;
             padding: 0px;
         }
         
 #SubMenu3 {
             position: absolute;
             top:  20px;
             left:  101px;
             height:  15px;
             width:  150px;
             background-color: #D4D0C8;
             border-width: 1px;
             border-style: solid;
             border-top-color: white;
             border-left-color: white;
             visibility: hidden;
         }
 
 
 
 #SubMenu3 ul {
             padding: 0px;
             margin: 0px;
             list-style-type: none;
             
         }
 #SubMenu3 a {
             display: block;
             border: ButtonFace;
             border-style: solid;
             border-width: 1px;
             margin: 1px;
             padding: 1px;
             width: 160px;
             color: black;
             text-decoration: none;
         }
         
 #SubMenu3 a:hover {
             background-color: LightSteelBlue;
             border: black;
             border-style: solid;
             border-width: 1px;
             margin: 1px;
             padding: 1px;
             cursor: default;
         }        
         
         
 #SubMenu3 a:link {
             color: black;
             text-decoration: none;
         }
 
 #SubMenu1 a:visited {
             color: black;
             text-decoration: none;
         }
 #SubMenu3 img {
             border: none;
             padding: 0px;
             margin-left: 5px;
             margin-right: 7px;
             align: left;
         }
 
 #MenuItem4 {
             position: absolute;
             top:  2px;
             left:  151px;
             height:  15px;
             width:  50px;
             background-color: #D4D0C8;
             border-width: 1px;
             margin: 0px;
             padding: 0px;
         }
         
 #SubMenu4 {
             position: absolute;
             top:  20px;
             left:  151px;
             height:  15px;
             width:  150px;
             background-color: #D4D0C8;
             border-width: 1px;
             border-style: solid;
             border-top-color: white;
             border-left-color: white;
             visibility: hidden;
         }
 
 
 
 #SubMenu4 ul {
             padding: 0px;
             margin: 0px;
             list-style-type: none;
             
         }
 #SubMenu4 a {
             display: block;
             border: ButtonFace;
             border-style: solid;
             border-width: 1px;
             margin: 1px;
             padding: 1px;
             width: 160px;
             color: black;
             text-decoration: none;
         }
 #SubMenu4 a:hover {
             background-color: LightSteelBlue;
             border: black;
             border-style: solid;
             border-width: 1px;
             margin: 1px;
             padding: 1px;
             cursor: default;
         }        
         
 #SubMenu4 a:link {
             color: black;
             text-decoration: none;
         }
 
 #SubMenu1 a:visited {
             color: black;
             text-decoration: none;
         }
 #SubMenu4 img {
             border: none;
             padding: 0px;
             margin-left: 5px;
             margin-right: 7px;
             align: left;
         }

Updates will follow, and if you know a solution to any of the yet todo stuff, post it here

< Message edited by SilentBob -- 6/10/2007 7:21:47 AM >

_____________________________

If you're looking for the truth, STOP lying.

Revisions: 3 | Post #: 1

RE: yet another notepad - 5/18/2007 10:18:25 AM

dm_4ever

Posts: 2220
Score: 32
Joined: 6/29/2006
From: Orange County, California
Status: offline

That's pretty neat!

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to SilentBob)

Post #: 2

RE: yet another notepad - 5/25/2007 7:35:31 PM

SilentBob

Posts: 38
Score: 0
Joined: 3/27/2007
Status: offline

Version 0.7 is out. It's using MeadCo's ScriptX object, the free version offcourse

. I'm not posting the code here because of all the extra's it's using, just use the link in the first post

.

New feature are

Page setup
Print preview
Print
Undo
Redo

Still todo

Find
Replace
Tabs in the textarea
Font change on just a selection
A statusbar that keeps track of cursor position

don't know if those last 3 will ever be possible though.

_____________________________

If you're looking for the truth, STOP lying.

(in reply to dm_4ever)

Post #: 3

RE: yet another notepad - 5/26/2007 4:52:34 AM

dm_4ever

Posts: 2220
Score: 32
Joined: 6/29/2006
From: Orange County, California
Status: offline

Hi SilentBob,

For the Find and Replace I would probably recommend using Regular Expressions.

I was browsing through some of the ScriptingGuy's posts and found this one...
http://www.microsoft.com/technet/scriptcenter/resources/qanda/mar07/hey0321.mspx

That looks like it may give you more flexibility when it comes to editing certain areas as compared to using the textarea. It would also allow you to highlight keys words as a result to your "find"....
http://www.microsoft.com/technet/scriptcenter/resources/qanda/may07/hey0511.mspx

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to SilentBob)

Post #: 4

RE: yet another notepad - 6/10/2007 7:56:55 AM

SilentBob

Posts: 38
Score: 0
Joined: 3/27/2007
Status: offline

Due to a lack of time, this fun little project is coming to a premature ending

.

The 'find' feature works, kind off. Just do a search for File and you'll see what I mean

.

Did come across something nice though. Just adding a single line of code enabled a nice little drag n drop feature. Even dragging text from another application into the textarea works.
Just add the following line in the window onLoad event.

document.execCommand "2D-position", false, true

The full version is still here

If anyone feels the urgh to finish it, please do, cause I don't like leaving things hanging.

_____________________________

If you're looking for the truth, STOP lying.

(in reply to dm_4ever)

Post #: 5

RE: yet another notepad - 6/24/2007 12:47:33 PM

wanghuok

Posts: 17
Score: 0
Joined: 10/13/2005
Status: offline

the effect is very good.

but i dont know what are they mean underside.(i come from china ,so my english is poor)

factory.printing.header = "" factory.printing.footer = ""
mnuBckGrd.Style.width = document.body.clientWidth
txtArea.Style.width = document.body.clientWidth
txtArea.Style.Height = document.body.clientHeight-25

txtArea.Style.fontfamily = "arial"
txtArea.Style.fontsize = "10pt"

PrintText.Style.fontfamily = "arial"
PrintText.Style.fontsize = "10pt"

Document.Title = NotePadHTA.ApplicationName & " - " & "New File"
blnTextChanged = False
txtArea.Focus

< Message edited by wanghuok -- 6/24/2007 12:59:08 PM >

_____________________________

I come from China,This is a very beautiful country.

Welcome to China.

(in reply to SilentBob)