Visual Basic

s426 wrote:

Sir I have worked alot on C++ and .net2003

dateTimePicker1.Value = DateTime.Now.AddDays(10)

Public Class cTxtBoxProperties

        <Category("Misc")> <Description("Displays the type of data associated with the control")> _
    <TypeConverter(GetType(MyDataType))> _
    Public Property DataType()
        Get
            Return _DataType
        End Get
        Set(ByVal value As Object)          
            _DataType = value
        End Set
    End Property
    <Category("Misc")> <TypeConverter(GetType(NumberFormats))> _
    <Description("Displays the format of the control")> _
    Public Property Format() As String
        Get
            Return _Format
        End Get
        Set(ByVal value As String)
            _Format = value
        End Set
    End Property    
End Class
Dim tPropertyName As String = "DataType"
            Dim objTxt As Type = GetType(cTextBoxProperties)
            Dim PiInfo As PropertyInfo = objTxt.GetType.GetProperty("DataType")
            Dim ObjPropertyValue As Object = PiInfo.GetValue(objTxt, Nothing)



Public Class NumberFormats : Inherits System.ComponentModel.StringConverter

    Dim alist As New ArrayList
    Dim ControlNames() As String

    Public Overloads Overrides Function GetStandardValues(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.ComponentModel.TypeConverter.StandardValuesCollection
        alist = New ArrayList
        alist = GetNumberFormats()
         ControlNames = CType(alist.ToArray(GetType(System.String)), String())
        Return New StandardValuesCollection(ControlNames)
    End Function

    Public Overloads Overrides Function GetStandardValuesSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function

    Public Overloads Overrides Function GetStandardValuesExclusive(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function

    Protected Friend Function GetNumberFormats() As ArrayList
        GetNumberFormats = Nothing
        Dim objFStream As FileStream = Nothing
        Dim objReader As StreamReader = Nothing
        Dim fiInfo As FileInfo = Nothing
        Dim tFontSizeFilePath As String = ""
        Dim tNumberFormats() As String
        Dim alist As New ArrayList
        Dim CTextbox As cTextBoxProperties = Nothing
        Dim tFileName As String = ""

        Try

'' Here Raising the ERROR 

            Dim tPropertyName As String = "DataType"
            Dim objTxt As Type = GetType(cTxtBoxProperties)
            Dim PiInfo As PropertyInfo = objTxt.GetType.GetProperty("DataType")
            Dim ObjPropertyValue As Object = PiInfo.GetValue(objTxt, Nothing)
         
<b>'' Here Raising the ERROR </b>          
                tFontSizeFilePath = String.Concat(AppDomain.CurrentDomain.SetupInformation.ApplicationBase, tFileName)
            
            fiInfo = New FileInfo(tFontSizeFilePath)
            If fiInfo.Exists Then
                objFStream = New FileStream(tFontSizeFilePath, FileMode.OpenOrCreate, FileAccess.Read)
                objReader = New StreamReader(objFStream)
                While objReader.Peek <> -1
                    alist.Add(objReader.ReadLine.ToString.Trim)
                End While
                objReader.Close()
                objFStream.Close()
                Return alist
            Else
                MsgBox(tFileName & "is not existed in Application Path.")
                Exit Try
            End If
        Catch ex As Exception
            MsgBox("GetNumberFormats : " & Err.Description, MsgBoxStyle.Critical)
        Finally
            If Not fiInfo Is Nothing Then fiInfo = Nothing
            If Not objFStream Is Nothing Then objFStream = Nothing
            If Not objReader Is Nothing Then objReader = Nothing
            If Not CTextbox Is Nothing Then CTextbox = Nothing
            Erase tNumberFormats
        End Try

    End Function
End Class

O.G.I. wrote:

I'm currently learning C++ but I'm only on the beginning so I can't move that fast to XNA, cause as I know XNA requires C++ or C#.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'add a group box and stuff with button controls
    For Each ctl As Control In GroupBox1.Controls
        ctl.Visible = True
    Next

    GroupBox1.Visible = False
End Sub

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
    If e.Node.Index = 5 Then
        GroupBox1.Visible = True
    End If
End Sub