Introduction
Hello!
I think Burning Applications should tell their users for disc (DVD/CD) used space in an attractive way, for example like this control.
Background
With this control, you find used space of DVD in a Circle ProgressBar Control.
For example, Nero wants to tell users about DVD/CD used space. This is the best way, it isn't perfect, but nothing is perfect.
Control Properties and Methods
Here is a list of the primary properties:
Disc Type
With this property we change Type of Disc
example: from DVD(4500 MB) to CD(700 MB) Valuemb
Capacity of disc in MB
Using the Code
Now let us see the code:
Dim a as Double
a=(100 * Val(value_mb)) / 4500
Dim d_temp As Integer
d_temp = d - (d / 4)
d_per = ((a / 100) * d_temp) + d2
r_per = d_per / 2
e.Graphics.FillEllipse(color1, p - r_per, p - r_per, d_per, d_per)
a=(100 * Val(value_mb)) / 700
Dim d_temp As Integer
d_temp = d - (d / 4)
d_per = ((a / 100) * d_temp) + d2
r_per = d_per / 2
e.Graphics.FillEllipse(color1, p - r_per, p - r_per, d_per, d_per)
On resize width of control must be equal to height:
Me.Width = Me.Height
Me.Height = Me.Width
History
- Version 1.0 - 28 February 2009