Visual Basic

Public MyDialogClass

Private MyDialogClass

The Mighty Atom wrote:

Lol, you're Dutch too!

The Mighty Atom wrote:

Anyway, just to make sure i understand, i need to change

Private Property SomeColor As Color
  Get
    Return Me._someColor
  End Get
  Set
    Me._someColor = value
  End Set
End Property

Public Class Form1
    Private MyPanel As New MyPanelClass ' we create a new variable from our class
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        MyPanel.Parent = Me
        MyPanel.Dock = DockStyle.Fill
        MsgBox(MyPanel.BackColor.ToString) ' Exception, since MyPanel.BackColor returns Nothing
    End Sub
End Class
Public Class MyPanelClass
    Inherits Panel ' let's extend the panel

    <System.ComponentModel.BrowsableAttribute(False)> _
    <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)> _
    Shadows ReadOnly Property BackColor
        Get
            Return Nothing
        End Get
    End Property
End Class

Friend Class MyDialogForm
    Inherits Form
    .
    .  yada, yada, yada
    .
End Class

Public Class MyDialog
    Implements IDisposable
 
    ' This keeps an instance of your dialog internal to
    ' this class, hiding EVERYTHING about it from the consumer.

    Private _dialogForm As New MyDialogForm
 
    ' Now you just have to give the consumer exactly the things
    ' you want to expose.

    Public Function ShowDialog() As DialogResult
        Return _dialogForm.ShowDialog()
    End Function
 
    ' You can expose any other properties you want.  You can even
    ' use the internal form object as a backing field for your
    ' properties, where appropriate.

    Public Property BackColor As Color
        Get
            Return _dialogForm.BackColor
        End Get
        Set(value as Color)
            _dialogForm.BackColor = Value
        End Set
    End Property

    ' A form shown with ShowDialog has to be Disposed when you're
    ' done with it, so in the Dispose code, just look for the line
    ' that says "TODO: dispose managed state (managed objects)." and
    ' put this line under it:
    _dialogForm.Dispose

End Class

Dim d As New MyDialog
Dim result As DialogResult

result = d.ShowDialog()

Friend Class BaseDialogForm

Form Designer code here, nothing else

End Class

Public Class DialogForm
    Implements IDisposable

    Private _dialogForm As New BaseDialogForm

    Public Function ShowDialog() As DialogResult
        Return _dialogForm.ShowDialog()
    End Function

    Public Property CustomProperty As String
        Get
            Return _dialogForm.Text
        End Get
        Set(ByVal value As String)
            _dialogForm.Text = value
        End Set
    End Property

 IDisposable Support code here

End Class

faravani wrote:

hi for all

faravani wrote:

I want select a file in my disk by openfiledialog tool in vb.net

faravani wrote:

then copy selected file

faravani wrote:

<layer>in a special path

faravani wrote:

with any format

Bastard Programmer from Hell

Class Base
  Public Function GetClassName() As String
    Return System.Reflection.MethodBase.GetCurrentMethod().ReflectedType.Name.ToLower()
  End Function
  Public Function GetCallingMethodName() As String
    Return New StackTrace().GetFrame(1).GetMethod().Name
  End Function
  Public Function GetMethodName() As String
    Return New StackTrace().GetFrame(0).GetMethod().Name
  End Function
End Class

Class SubClass ' "Sub" is a reserved word and hence not a good idea as a classname
  Inherits Base

  ' Some unrelated code
End Class

Module Module1
  Sub main()
    Dim s As New SubClass
    Console.WriteLine(s.GetClassName()) ' prints the classname
    Console.WriteLine(s.GetCallingMethodName()) ' prints the methodname (main)
    Console.WriteLine(s.GetMethodName()) ' prints the methodname that's currently executed
    Console.ReadKey()
  End Sub
End Module

Bastard Programmer from Hell