form1.vb

用Delphi做的读取医学图片的控件及代码

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim current_tool As Integer = 0
    Dim colourscheme As Integer = 1
    Dim is_smoothed As Boolean = False
    Dim is_header As Boolean = False
#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
        AxezDICOMX1.DCMtoolbar() = False
    End Sub

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

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    '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 Panel1 As System.Windows.Forms.Panel
    Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents OpenMenuItem As System.Windows.Forms.MenuItem
    Friend WithEvents SaveMenuItem As System.Windows.Forms.MenuItem
    Friend WithEvents ExitMenuItem As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents CopyMenuItem As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
    Friend WithEvents zBestFitMenuItem As System.Windows.Forms.MenuItem
    Friend WithEvents z50MenuItem As System.Windows.Forms.MenuItem
    Friend WithEvents z100MenuItem As System.Windows.Forms.MenuItem
    Friend WithEvents z150MenuItem As System.Windows.Forms.MenuItem
    Friend WithEvents z200MenuItem As System.Windows.Forms.MenuItem
    Friend WithEvents BWMenuItem As System.Windows.Forms.MenuItem
    Friend WithEvents HMMenuItem As System.Windows.Forms.MenuItem
    Friend WithEvents iBWMenuItem As System.Windows.Forms.MenuItem
    Friend WithEvents iHMMenuItem As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
    Friend WithEvents AxezDICOMX1 As AxezDICOMax.AxezDICOMX
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
    Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
    Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton4 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton5 As System.Windows.Forms.ToolBarButton
    Friend WithEvents SmoothMenuItem As System.Windows.Forms.MenuItem
    Friend WithEvents ShowHeaderMenuItem As System.Windows.Forms.MenuItem
    Friend WithEvents Mosaic2MenuItem As System.Windows.Forms.MenuItem
    Friend WithEvents Mosaic3MenuItem As System.Windows.Forms.MenuItem
    Friend WithEvents mosaic1MenuItem As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.AxezDICOMX1 = New AxezDICOMax.AxezDICOMX()
        Me.ToolBar1 = New System.Windows.Forms.ToolBar()
        Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton4 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton5 = New System.Windows.Forms.ToolBarButton()
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.MainMenu1 = New System.Windows.Forms.MainMenu()
        Me.MenuItem1 = New System.Windows.Forms.MenuItem()
        Me.OpenMenuItem = New System.Windows.Forms.MenuItem()
        Me.SaveMenuItem = New System.Windows.Forms.MenuItem()
        Me.ExitMenuItem = New System.Windows.Forms.MenuItem()
        Me.MenuItem2 = New System.Windows.Forms.MenuItem()
        Me.CopyMenuItem = New System.Windows.Forms.MenuItem()
        Me.MenuItem3 = New System.Windows.Forms.MenuItem()
        Me.MenuItem4 = New System.Windows.Forms.MenuItem()
        Me.zBestFitMenuItem = New System.Windows.Forms.MenuItem()
        Me.z50MenuItem = New System.Windows.Forms.MenuItem()
        Me.z100MenuItem = New System.Windows.Forms.MenuItem()
        Me.z150MenuItem = New System.Windows.Forms.MenuItem()
        Me.z200MenuItem = New System.Windows.Forms.MenuItem()
        Me.SmoothMenuItem = New System.Windows.Forms.MenuItem()
        Me.MenuItem6 = New System.Windows.Forms.MenuItem()
        Me.BWMenuItem = New System.Windows.Forms.MenuItem()
        Me.HMMenuItem = New System.Windows.Forms.MenuItem()
        Me.iBWMenuItem = New System.Windows.Forms.MenuItem()
        Me.iHMMenuItem = New System.Windows.Forms.MenuItem()
        Me.MenuItem7 = New System.Windows.Forms.MenuItem()
        Me.mosaic1MenuItem = New System.Windows.Forms.MenuItem()
        Me.Mosaic2MenuItem = New System.Windows.Forms.MenuItem()
        Me.Mosaic3MenuItem = New System.Windows.Forms.MenuItem()
        Me.ShowHeaderMenuItem = New System.Windows.Forms.MenuItem()
        Me.MenuItem9 = New System.Windows.Forms.MenuItem()
        Me.MenuItem10 = New System.Windows.Forms.MenuItem()
        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
        Me.Panel1.SuspendLayout()
        CType(Me.AxezDICOMX1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'Panel1
        '
        Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.AxezDICOMX1})
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel1.DockPadding.Top = 32
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(520, 497)
        Me.Panel1.TabIndex = 0
        '
        'AxezDICOMX1
        '
        Me.AxezDICOMX1.ContainingControl = Me
        Me.AxezDICOMX1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.AxezDICOMX1.Location = New System.Drawing.Point(0, 32)
        Me.AxezDICOMX1.Name = "AxezDICOMX1"
        Me.AxezDICOMX1.OcxState = CType(resources.GetObject("AxezDICOMX1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.AxezDICOMX1.Size = New System.Drawing.Size(520, 465)
        Me.AxezDICOMX1.TabIndex = 0
        '
        'ToolBar1
        '
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2, Me.ToolBarButton3, Me.ToolBarButton4, Me.ToolBarButton5})
        Me.ToolBar1.ButtonSize = New System.Drawing.Size(24, 24)
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(520, 27)
        Me.ToolBar1.TabIndex = 1
        '
        'ToolBarButton1
        '
        Me.ToolBarButton1.ImageIndex = 0
        Me.ToolBarButton1.Tag = "1"
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.ImageIndex = 1
        Me.ToolBarButton2.Tag = "2"
        '
        'ToolBarButton3
        '
        Me.ToolBarButton3.ImageIndex = 2
        Me.ToolBarButton3.Tag = "3"
        '
        'ToolBarButton4
        '
        Me.ToolBarButton4.ImageIndex = 3
        Me.ToolBarButton4.Tag = "4"
        '
        'ToolBarButton5
        '
        Me.ToolBarButton5.ImageIndex = 4
        Me.ToolBarButton5.Tag = "5"
        '
        'ImageList1
        '
        Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Olive
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3, Me.MenuItem9})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.OpenMenuItem, Me.SaveMenuItem, Me.ExitMenuItem})
        Me.MenuItem1.Text = "File"
        '
        'OpenMenuItem
        '
        Me.OpenMenuItem.Index = 0
        Me.OpenMenuItem.Shortcut = System.Windows.Forms.Shortcut.CtrlO
        Me.OpenMenuItem.Text = "Open"
        '
        'SaveMenuItem
        '
        Me.SaveMenuItem.Index = 1
        Me.SaveMenuItem.Shortcut = System.Windows.Forms.Shortcut.CtrlS
        Me.SaveMenuItem.Text = "Save as bitmap"
        '
        'ExitMenuItem
        '
        Me.ExitMenuItem.Index = 2
        Me.ExitMenuItem.Text = "E&xit"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 1
        Me.MenuItem2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.CopyMenuItem})
        Me.MenuItem2.Text = "Edit"
        '
        'CopyMenuItem
        '
        Me.CopyMenuItem.Index = 0
        Me.CopyMenuItem.Text = "Copy"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 2
        Me.MenuItem3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem4, Me.SmoothMenuItem, Me.MenuItem6, Me.MenuItem7, Me.ShowHeaderMenuItem})
        Me.MenuItem3.Text = "View"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 0
        Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.zBestFitMenuItem, Me.z50MenuItem, Me.z100MenuItem, Me.z150MenuItem, Me.z200MenuItem})
        Me.MenuItem4.Text = "Zoom"
        '
        'zBestFitMenuItem
        '
        Me.zBestFitMenuItem.Index = 0
        Me.zBestFitMenuItem.RadioCheck = True