printgdi.vb

Programming the .NET Compact Framework with vb 源代码

' PrintGdi.vb - Main form for print with GDI sample.
'
' Code from _Programming the .NET Compact Framework with C#_
' and _Programming the .NET Compact Framework with VB_
' (c) Copyright 2002-2003 Paul Yao and David Durant. 
' All rights reserved.

Imports System
Imports System.Text               '  StringBuilder
Imports System.Drawing            '  FontStyle
Imports System.Windows.Forms      '  DialogResult
Imports Microsoft.WindowsCE.Forms ' InputPanel
Imports System.IO                 '  Directories, Files, Streams
Imports YaoDurant.Win32           '  Heap, focus, Win32 I/O
Imports YaoDurant.Drawing         '  Native drawing support

Namespace PrintGdi
Public Class FormMain
   Inherits System.Windows.Forms.Form
      Friend WithEvents cmenuMain As ContextMenu
      Friend WithEvents mitemProgramMenu As MenuItem
      Friend WithEvents mitemToolbar As MenuItem
      Friend WithEvents ilistCommands As ImageList
      Friend WithEvents menuMain As MainMenu
      Friend WithEvents mitemFilePopup As MenuItem
      Friend WithEvents mitemFileOpen As MenuItem
      Friend WithEvents mitemFileSave As MenuItem
      Friend WithEvents mitemFileSaveAs As MenuItem
      Friend WithEvents mitemFileFormat As MenuItem
      Friend WithEvents mitemFFAscii As MenuItem
      Friend WithEvents mitemFFUnicode As MenuItem
      Friend WithEvents mitemFFUtf7 As MenuItem
      Friend WithEvents mitemFFUtf8 As MenuItem
      Friend WithEvents mitemFFDefault As MenuItem
      Friend WithEvents mitemEditPopup As MenuItem
      Friend WithEvents mitemEditFont As MenuItem
      Friend WithEvents mitemToolsPopup As MenuItem
      Friend WithEvents mitemToolsOptions As MenuItem
      Friend WithEvents mitemSettingsPopup As MenuItem
      Friend WithEvents mitemSettingsSave As MenuItem
      Friend WithEvents mitemSettingsRestore As MenuItem
      Friend WithEvents mitemSettingsInit As MenuItem
      Friend WithEvents tbarCommands As ToolBar
      Friend WithEvents tbbEditFormat As ToolBarButton
      Friend WithEvents tbbViewOptions As ToolBarButton

#Region " Windows Form Designer generated code "

      Public Sub New()
         MyBase.New()

         'This call is required by the Windows Form Designer.
         InitializeComponent()

         'Add any initialization after the InitializeComponent() call

      End Sub

      'Form overrides dispose to clean up the component list.
      Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
         MyBase.Dispose(disposing)
      End Sub

      'NOTE: The following procedure is required by the Windows Form Designer
      'It can be modified using the Windows Form Designer.  
      'Do not modify it using the code editor.
      Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
      Friend WithEvents mitemFilePrint As System.Windows.Forms.MenuItem
      Friend WithEvents tboxInput As System.Windows.Forms.TextBox
      Friend WithEvents mitemCut As System.Windows.Forms.MenuItem
      Friend WithEvents mitemCopy As System.Windows.Forms.MenuItem
      Friend WithEvents mitemPaste As System.Windows.Forms.MenuItem
      Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
      Friend WithEvents mitemClear As System.Windows.Forms.MenuItem
      Friend WithEvents mitemUndo As System.Windows.Forms.MenuItem
      Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
      Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(FormMain))
Me.tboxInput = New System.Windows.Forms.TextBox
Me.cmenuMain = New System.Windows.Forms.ContextMenu
Me.mitemProgramMenu = New System.Windows.Forms.MenuItem
Me.mitemToolbar = New System.Windows.Forms.MenuItem
Me.ilistCommands = New System.Windows.Forms.ImageList
Me.menuMain = New System.Windows.Forms.MainMenu
Me.mitemFilePopup = New System.Windows.Forms.MenuItem
Me.mitemFileOpen = New System.Windows.Forms.MenuItem
Me.mitemFileSave = New System.Windows.Forms.MenuItem
Me.mitemFileSaveAs = New System.Windows.Forms.MenuItem
Me.mitemFileFormat = New System.Windows.Forms.MenuItem
Me.mitemFFAscii = New System.Windows.Forms.MenuItem
Me.mitemFFUnicode = New System.Windows.Forms.MenuItem
Me.mitemFFUtf7 = New System.Windows.Forms.MenuItem
Me.mitemFFUtf8 = New System.Windows.Forms.MenuItem
Me.mitemFFDefault = New System.Windows.Forms.MenuItem
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.mitemFilePrint = New System.Windows.Forms.MenuItem
Me.mitemEditPopup = New System.Windows.Forms.MenuItem
Me.mitemCut = New System.Windows.Forms.MenuItem
Me.mitemCopy = New System.Windows.Forms.MenuItem
Me.mitemPaste = New System.Windows.Forms.MenuItem
Me.MenuItem5 = New System.Windows.Forms.MenuItem
Me.mitemClear = New System.Windows.Forms.MenuItem
Me.mitemUndo = New System.Windows.Forms.MenuItem
Me.MenuItem8 = New System.Windows.Forms.MenuItem
Me.mitemEditFont = New System.Windows.Forms.MenuItem
Me.mitemToolsPopup = New System.Windows.Forms.MenuItem
Me.mitemToolsOptions = New System.Windows.Forms.MenuItem
Me.mitemSettingsPopup = New System.Windows.Forms.MenuItem
Me.mitemSettingsSave = New System.Windows.Forms.MenuItem
Me.mitemSettingsRestore = New System.Windows.Forms.MenuItem
Me.mitemSettingsInit = New System.Windows.Forms.MenuItem
Me.tbarCommands = New System.Windows.Forms.ToolBar
Me.tbbEditFormat = New System.Windows.Forms.ToolBarButton
Me.tbbViewOptions = New System.Windows.Forms.ToolBarButton
'
'tboxInput
'
Me.tboxInput.Location = New System.Drawing.Point(-1, -1)
Me.tboxInput.Multiline = True
Me.tboxInput.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.tboxInput.Size = New System.Drawing.Size(242, 250)
Me.tboxInput.Text = "Some text inside a textbox."
'
'cmenuMain
'
Me.cmenuMain.MenuItems.Add(Me.mitemProgramMenu)
Me.cmenuMain.MenuItems.Add(Me.mitemToolbar)
'
'mitemProgramMenu
'
Me.mitemProgramMenu.Text = "Program Menu"
'
'mitemToolbar
'
Me.mitemToolbar.Text = "Toolbar"
'
'ilistCommands
'
Me.ilistCommands.Images.Add(CType(resources.GetObject("resource"), System.Drawing.Image))
Me.ilistCommands.Images.Add(CType(resources.GetObject("resource1"), System.Drawing.Image))
Me.ilistCommands.ImageSize = New System.Drawing.Size(16, 16)
'
'menuMain
'
Me.menuMain.MenuItems.Add(Me.mitemFilePopup)
Me.menuMain.MenuItems.Add(Me.mitemEditPopup)
Me.menuMain.MenuItems.Add(Me.mitemToolsPopup)
Me.menuMain.MenuItems.Add(Me.mitemSettingsPopup)
'
'mitemFilePopup
'
Me.mitemFilePopup.MenuItems.Add(Me.mitemFileOpen)
Me.mitemFilePopup.MenuItems.Add(Me.mitemFileSave)
Me.mitemFilePopup.MenuItems.Add(Me.mitemFileSaveAs)
Me.mitemFilePopup.MenuItems.Add(Me.mitemFileFormat)
Me.mitemFilePopup.MenuItems.Add(Me.MenuItem1)
Me.mitemFilePopup.MenuItems.Add(Me.mitemFilePrint)
Me.mitemFilePopup.Text = "File"
'
'mitemFileOpen
'
Me.mitemFileOpen.Text = "Open..."
'
'mitemFileSave
'
Me.mitemFileSave.Text = "Save"
'
'mitemFileSaveAs
'
Me.mitemFileSaveAs.Text = "SaveAs..."
'
'mitemFileFormat
'
Me.mitemFileFormat.MenuItems.Add(Me.mitemFFAscii)
Me.mitemFileFormat.MenuItems.Add(Me.mitemFFUnicode)
Me.mitemFileFormat.MenuItems.Add(Me.mitemFFUtf7)
Me.mitemFileFormat.MenuItems.Add(Me.mitemFFUtf8)
Me.mitemFileFormat.MenuItems.Add(Me.mitemFFDefault)
Me.mitemFileFormat.Text = "Format"
'
'mitemFFAscii
'
Me.mitemFFAscii.Text = "Ascii"
'
'mitemFFUnicode
'
Me.mitemFFUnicode.Text = "Unicode"
'
'mitemFFUtf7
'
Me.mitemFFUtf7.Text = "Utf7"
'
'mitemFFUtf8
'
Me.mitemFFUtf8.Text = "Utf8"
'
'mitemFFDefault
'
Me.mitemFFDefault.Text = "Default"
'
'MenuItem1
'
Me.MenuItem1.Text = "-"
'
'mitemFilePrint
'
Me.mitemFilePrint.Text = "Print..."
'
'mitemEditPopup
'
Me.mitemEditPopup.MenuItems.Add(Me.mitemCut)
Me.mitemEditPopup.MenuItems.Add(Me.mitemCopy)
Me.mitemEditPopup.MenuItems.Add(Me.mitemPaste)
Me.mitemEditPopup.MenuItems.Add(Me.MenuItem5)
Me.mitemEditPopup.MenuItems.Add(Me.mitemClear)
Me.mitemEditPopup.MenuItems.Add(Me.mitemUndo)
Me.mitemEditPopup.MenuItems.Add(Me.MenuItem8)
Me.mitemEditPopup.MenuItems.Add(Me.mitemEditFont)
Me.mitemEditPopup.Text = "Edit"
'
'mitemCut
'
Me.mitemCut.Text = "Cut"
'
'mitemCopy
'
Me.mitemCopy.Text = "Copy"
'
'mitemPaste
'
Me.mitemPaste.Text = "Paste"
'
'MenuItem5
'
Me.MenuItem5.Text = "-"
'
'mitemClear
'
Me.mitemClear.Text = "Clear"
'
'mitemUndo
'
Me.mitemUndo.Text = "Undo"
'
'MenuItem8
'
Me.MenuItem8.Text = "-"
'
'mitemEditFont
'
Me.mitemEditFont.Text = "Font..."
'
'mitemToolsPopup
'
Me.mitemToolsPopup.MenuItems.Add(Me.mitemToolsOptions)
Me.mitemToolsPopup.Text = "Tools"
'
'mitemToolsOptions
'
Me.mitemToolsOptions.Text = "Options..."
'
'mitemSettingsPopup
'
Me.mitemSettingsPopup.MenuItems.Add(Me.mitemSettingsSave)
Me.mitemSettingsPopup.MenuItems.Add(Me.mitemSettingsRestore)
Me.mitemSettingsPopup.MenuItems.Add(Me.mitemSettingsInit)
Me.mitemSettingsPopup.Text = "Settings"
'
'mitemSettingsSave
'
Me.mitemSettingsSave.Text = "Save"
'
'mitemSettingsRestore
'
Me.mitemSettingsRestore.Text = "Restore"
'
'mitemSettingsInit
'
Me.mitemSettingsInit.Text = "Initialize"
'
'tbarCommands
'
Me.tbarCommands.Buttons.Add(Me.tbbEditFormat)
Me.tbarCommands.Buttons.Add(Me.tbbViewOptions)
Me.tbarCommands.ImageList = Me.ilistCommands
'
'tbbEditFormat
'
Me.tbbEditFormat.ImageIndex = 0
'
'tbbViewOptions
'
Me.tbbViewOptions.ImageIndex = 1
'
'FormMain
'
Me.ContextMenu = Me.cmenuMain
Me.Controls.Add(Me.tboxInput)
Me.Controls.Add(Me.tbarCommands)
Me.Menu = Me.menuMain
Me.MinimizeBox = False
Me.Text = "PrintGdi"

      End Sub

#End Region

      Private Sub FormMain_Load( _
      ByVal sender As Object, _
      ByVal e As EventArgs) Handles MyBase.Load
         mitemSettingsRestore_Click(Me, EventArgs.Empty)
         SaveSettingsToFile()
         ReadSettingsFromFile()

         ' Set focus to text box window.
         tboxInput.Focus()

         ' Fetch window handle of text box.
         Dim hwndEditor As IntPtr = WinFocus.GetFocus()

         ' Create message structure for sending Win32 messages
         m_msg = Message.Create(hwndEditor, 0, IntPtr.Zero, _
            IntPtr.Zero)
      End Sub

#Region "Settings Menu Handlers"
      ' mitemEditFont - Respond to menu selection Edit->Font...
      Private Sub mitemEditFont_Click( _