renamedialog.vb

Pocket Image Editor v0.1源码(.NET源码)

Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms

Namespace OpenNETCF.Windows.Forms

    '/ <summary>
    '/ Summary description for RenameDialog.
    '/ </summary>
    Public Class RenameDialog
        Inherits System.Windows.Forms.Form
        Private lblName As System.Windows.Forms.Label
        Private txtName As System.Windows.Forms.TextBox
        Private mnuRename As System.Windows.Forms.MainMenu
        Private WithEvents mnuDone As System.Windows.Forms.MenuItem
        Private WithEvents mnuCancel As System.Windows.Forms.MenuItem
        Private m_name As String


        Public Sub New()
            '
            ' Required for Windows Form Designer support
            '
            InitializeComponent()

            '
            ' TODO: Add any constructor code after InitializeComponent call
            '
            m_name = ""
        End Sub 'New

        '/ <summary>
        '/ The FileName to be renamed
        '/ </summary>
        Public Property FileName() As String
            Get
                Return m_name
            End Get
            Set(ByVal Value As String)
                m_name = Value
                txtName.Text = m_name
            End Set
        End Property

        '/ <summary>
        '/ Clean up any resources being used.
        '/ </summary>
        Protected Overloads Sub Dispose(ByVal disposing As Boolean)
            MyBase.Dispose(disposing)
        End Sub 'Dispose

#Region "Windows Form Designer generated code"

        '/ <summary>
        '/ Required method for Designer support - do not modify
        '/ the contents of this method with the code editor.
        '/ </summary>
        Private Sub InitializeComponent()
            Me.lblName = New System.Windows.Forms.Label
            Me.txtName = New System.Windows.Forms.TextBox
            Me.mnuRename = New System.Windows.Forms.MainMenu
            Me.mnuDone = New System.Windows.Forms.MenuItem
            Me.mnuCancel = New System.Windows.Forms.MenuItem
            ' 
            ' lblName
            ' 
            Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25F, System.Drawing.FontStyle.Bold)
            Me.lblName.Location = New System.Drawing.Point(8, 8)
            Me.lblName.Text = "Name:"
            ' 
            ' txtName
            ' 
            Me.txtName.Location = New System.Drawing.Point(8, 32)
            Me.txtName.Text = ""
            ' 
            ' mnuRename
            ' 
            Me.mnuRename.MenuItems.Add(Me.mnuDone)
            Me.mnuRename.MenuItems.Add(Me.mnuCancel)
            ' 
            ' mnuDone
            ' 
            Me.mnuDone.Text = "Done"
            ' 
            ' mnuCancel
            ' 
            Me.mnuCancel.Text = "Cancel"
            ' 
            ' RenameDialog
            ' 
            Me.ClientSize = New System.Drawing.Size(170, 255)
            Me.Controls.Add(txtName)
            Me.Controls.Add(lblName)
            Me.Menu = Me.mnuRename
            Me.Text = "Rename file"
        End Sub 'InitializeComponent

#End Region

        Private Sub RenameDialog_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
            'adjust for device screen size
            txtName.Bounds = New Rectangle(4, 22, Screen.PrimaryScreen.WorkingArea.Width - 8, 20)
        End Sub 'RenameDialog_Resize

        Private Sub mnuDone_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuDone.Click
            'update filename property
            FileName = txtName.Text

            'user finished ok
            DialogResult = DialogResult.OK
        End Sub 'mnuDone_Click

        Private Sub mnuCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuCancel.Click
            'cancelled by user
            DialogResult = DialogResult.Cancel
        End Sub 'mnuCancel_Click
    End Class 'RenameDialog
End Namespace