Visual Basic

ASPnoob wrote:

If so how do I display one box while hiding other boxes

public enum Sizes
   [width]
   [height]
   wallth
   outrad
end enum

public function rmt(rmtsize as string, iSizes as Sizes) as double
     select case rmtsize
         case "3 x 2 x 3/16"
             select case iSizes
                 case sizes.height: return 2.0
                 .
                 .
                 .
             end select
         .
         .
         .
      end select
end function                

Public Class RmtInfo

   Private _width As Double
   Private _height As Double
   Private _wallThickness As Double
   Private _outerRadius As Double

   Public Sub New(size As String)
      Dim s As String() = size.Split(New Char() { "x"C, "/"C})
      _width = Double.Parse(s(0).Trim())
      _height = Double.Parse(s(1).Trim())
      _wallThickness = Double.Parse(s(2).Trim()) / Double.Parse(s(3).Trim())
      _outerRadius = _wallThickness * 2
   End Sub

   Public ReadOnly Property Width As Double
      Get
         Return _width
      End Get
   End Property

   Public ReadOnly Property Height
      Get
         Return _height
      End Get
   End Property

   Public ReadOnly Property WallThickness
      Get
         Return _wallThickness
      End Get
   End Property

   Public ReadOnly Property OuterRadius
      Get
         Return _outerRadius
      End Get
   End Property

End Class

Dim info As New RmtInfo("3 x 2 x 3/16")
MessageBox.Show("The height is " + info.Height.ToString())