Alternative Menu to a Form ( StartMenu Simulation)
Menu concept for a Form. It simulates the Windows Start Menu. No API calls , No Popup Menus. Uses a collection of new menu objects to dynamically build the menus on the form. Since I use labels , the menu can have a transparent background. It also has Icons for each menu line , contained in an ImageList.
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
Upload
<%
'
'I won’t brag about this code its all from MSDN
'Unlink many others that take code from there and post it for some credits
'I did post here cause i didnt really find codes like it on the web
'especially for the Footer thing... adding header and footer text
'
'U can use this code for word automation from asp
'or for generating reports from webpages
'
'
' .-=[ oOd|bOo ]=-.
'
Dim objWord
Set objWord = CreateObject("Word.Application")
'makes the file visible ie opens microsoft word
objWord.visible=True
'this is to open an existing file
'objWord.Documents.Open "c:\test.doc"
'save as new file
'objWord.ActiveDocument.SaveAs "c:\newtest.doc"
'creates a new file and adds content
objWord.Documents.Add.Content = "this code ws written by BOO. Use MSDN for more help"
'Get the number of words in the document
NumberOfWords = objWord.ActiveDocument.Words.count
'How many spelling errors are there in the document?
NumberOfErrors = objWord.ActiveDocument.SpellingErrors.Count
'add footer page numbers
objWord.ActiveDocument.Sections(1).Footers(1).PageNumbers.Add
'change page settings
objWord.ActiveDocument.Sections(1).PageSetup.LeftMargin = 30
objWord.ActiveDocument.Close
objWord.Quit
Set objWord = Nothing
%>
<html>
<head>
<title>Document Statistics</title>
</head>
<body>
<table>
<tr>
<td>Number of Spelling erros = <%=NumberOfErrors%></td>
</tr>
<tr>
<td>Number of Words in Doc = <%=NumberOfWords%></td>
</tr>
</table>
</body>
</html>
Original Comments (3)
Recovered from Wayback Machine