form1.vb

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

        Me.zBestFitMenuItem.Text = "Best Fit"
        '
        'z50MenuItem
        '
        Me.z50MenuItem.Index = 1
        Me.z50MenuItem.RadioCheck = True
        Me.z50MenuItem.Text = "50%"
        '
        'z100MenuItem
        '
        Me.z100MenuItem.Checked = True
        Me.z100MenuItem.Index = 2
        Me.z100MenuItem.RadioCheck = True
        Me.z100MenuItem.Text = "100%"
        '
        'z150MenuItem
        '
        Me.z150MenuItem.Index = 3
        Me.z150MenuItem.RadioCheck = True
        Me.z150MenuItem.Text = "150%"
        '
        'z200MenuItem
        '
        Me.z200MenuItem.Index = 4
        Me.z200MenuItem.RadioCheck = True
        Me.z200MenuItem.Text = "200%"
        '
        'SmoothMenuItem
        '
        Me.SmoothMenuItem.Checked = True
        Me.SmoothMenuItem.Index = 1
        Me.SmoothMenuItem.Text = "Smooth"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 2
        Me.MenuItem6.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.BWMenuItem, Me.HMMenuItem, Me.iBWMenuItem, Me.iHMMenuItem})
        Me.MenuItem6.Text = "Color Scheme"
        '
        'BWMenuItem
        '
        Me.BWMenuItem.Checked = True
        Me.BWMenuItem.Index = 0
        Me.BWMenuItem.RadioCheck = True
        Me.BWMenuItem.Text = "Black and White"
        '
        'HMMenuItem
        '
        Me.HMMenuItem.Index = 1
        Me.HMMenuItem.RadioCheck = True
        Me.HMMenuItem.Text = "Hot Metal"
        '
        'iBWMenuItem
        '
        Me.iBWMenuItem.Index = 2
        Me.iBWMenuItem.RadioCheck = True
        Me.iBWMenuItem.Text = "Inverted Black and White"
        '
        'iHMMenuItem
        '
        Me.iHMMenuItem.Index = 3
        Me.iHMMenuItem.RadioCheck = True
        Me.iHMMenuItem.Text = "Inverted Hot Metal"
        '
        'MenuItem7
        '
        Me.MenuItem7.Index = 3
        Me.MenuItem7.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mosaic1MenuItem, Me.Mosaic2MenuItem, Me.Mosaic3MenuItem})
        Me.MenuItem7.Text = "Mosaic"
        '
        'mosaic1MenuItem
        '
        Me.mosaic1MenuItem.Checked = True
        Me.mosaic1MenuItem.Index = 0
        Me.mosaic1MenuItem.RadioCheck = True
        Me.mosaic1MenuItem.Text = "1x1"
        '
        'Mosaic2MenuItem
        '
        Me.Mosaic2MenuItem.Index = 1
        Me.Mosaic2MenuItem.RadioCheck = True
        Me.Mosaic2MenuItem.Text = "2x2"
        '
        'Mosaic3MenuItem
        '
        Me.Mosaic3MenuItem.Index = 2
        Me.Mosaic3MenuItem.RadioCheck = True
        Me.Mosaic3MenuItem.Text = "3x3"
        '
        'ShowHeaderMenuItem
        '
        Me.ShowHeaderMenuItem.Index = 4
        Me.ShowHeaderMenuItem.Text = "Show Header"
        '
        'MenuItem9
        '
        Me.MenuItem9.Index = 3
        Me.MenuItem9.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem10})
        Me.MenuItem9.Text = "About"
        '
        'MenuItem10
        '
        Me.MenuItem10.Index = 0
        Me.MenuItem10.Text = "ezDICOM in Visual Basic"
        '
        'SaveFileDialog1
        '
        Me.SaveFileDialog1.FileName = "doc1"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(520, 497)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ToolBar1, Me.Panel1})
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Menu = Me.MainMenu1
        Me.Name = "Form1"
        Me.Text = "ezDICOM in Visual Basic"
        Me.Panel1.ResumeLayout(False)
        CType(Me.AxezDICOMX1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub OpenMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenMenuItem.Click
        Dim fn As String
        OpenFileDialog1.ShowDialog()
        fn = OpenFileDialog1.FileName
        AxezDICOMX1.DCMfilename = fn
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        ToolBar1.Buttons([current_tool]).Pushed() = False
        current_tool = Convert.ToInt32(e.Button.Tag) - 1
        ToolBar1.Buttons([current_tool]).Pushed() = True
        AxezDICOMX1.DCMtool = 1 + current_tool
    End Sub

    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        MessageBox.Show("Visual Basic demo of EZDicom by Tom Womack. Demonstrates use of the ActiveX component " + AxezDICOMX1.DCMversionInfo)

    End Sub

    Private Sub SmoothOnMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmoothMenuItem.Click
        AxezDICOMX1.DCMsmoothOn = Not AxezDICOMX1.DCMsmoothOn
        SmoothMenuItem.Checked = AxezDICOMX1.DCMsmoothOn
    End Sub

    Private Sub ExitMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitMenuItem.Click
        Application.Exit()
    End Sub

    Private Sub CopyMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyMenuItem.Click
        Dim a As Boolean

        If AxezDICOMX1.DCMshowHeader Then
            a = AxezDICOMX1.DCMcopyHeader2Clipboard
        Else
            a = AxezDICOMX1.DCMcopyImage2Clipboard
        End If

    End Sub

    Private Sub SaveMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveMenuItem.Click
        Dim a As DialogResult
        SaveFileDialog1.Filter = "Bitmap file|*.BMP|JPEG file|*.JPG"
        a = SaveFileDialog1.ShowDialog()
        If (a = DialogResult.OK) Then
            AxezDICOMX1.DCMsaveToFile = SaveFileDialog1.FileName
        End If
    End Sub

    Private Sub ShowHeaderMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowHeaderMenuItem.Click
        AxezDICOMX1.DCMshowHeader = Not AxezDICOMX1.DCMshowHeader
        ShowHeaderMenuItem.Checked = AxezDICOMX1.DCMshowHeader
    End Sub

    Private Sub zBestFitMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zBestFitMenuItem.Click, z100MenuItem.Click, z50MenuItem.Click, z150MenuItem.Click, z200MenuItem.Click
        Dim x As MenuItem
        For Each x In MenuItem4.MenuItems
            x.Checked = False
        Next
        x = CType(sender, MenuItem)
        x.Checked = True

        If (x Is zBestFitMenuItem) Then
            AxezDICOMX1.DCMbestFitZoom = True
        Else
            AxezDICOMX1.DCMbestFitZoom = False
            If (x Is z50MenuItem) Then AxezDICOMX1.DCMzoomPct = 50
            If (x Is z100MenuItem) Then AxezDICOMX1.DCMzoomPct = 100
            If (x Is z150MenuItem) Then AxezDICOMX1.DCMzoomPct = 150
            If (x Is z200MenuItem) Then AxezDICOMX1.DCMzoomPct = 200
        End If
    End Sub

    Private Sub BWMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BWMenuItem.Click, HMMenuItem.Click, iBWMenuItem.Click, iHMMenuItem.Click
        Dim x As MenuItem

        For Each x In MenuItem6.MenuItems
            x.Checked = False
        Next
        CType(sender, MenuItem).Checked = True
        x = CType(sender, MenuItem)
        If (x Is BWMenuItem) Then AxezDICOMX1.DCMcolorScheme = 1
        If (x Is iBWMenuItem) Then AxezDICOMX1.DCMcolorScheme = -1
        If (x Is HMMenuItem) Then AxezDICOMX1.DCMcolorScheme = 2
        If (x Is iHMMenuItem) Then AxezDICOMX1.DCMcolorScheme = -2
    End Sub

    Private Sub mosaicMenuClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mosaic1MenuItem.Click, Mosaic2MenuItem.Click, Mosaic3MenuItem.Click
        Dim nmos As Integer, x As MenuItem

        For Each x In MenuItem7.MenuItems
            x.Checked = False
        Next

        x = CType(sender, MenuItem)
        If (x Is mosaic1MenuItem) Then nmos = 1
        If (x Is Mosaic2MenuItem) Then nmos = 2
        If (x Is Mosaic3MenuItem) Then nmos = 3

        x.Checked = True
        AxezDICOMX1.DCMmosaicRows = nmos
        AxezDICOMX1.DCMmosaicFirstSlice = 1
        AxezDICOMX1.DCMmosaicLastSlice = 9999
        AxezDICOMX1.DCMmosaicCols = nmos
    End Sub

End Class