2007/03/16(Fri) 19:50:44 編集(投稿者)
↑ 投稿ミス&ノーパスワードにつき編集不可状態
たとえばこんな感じ。
VBは書けないのでC#で書きます。
列挙体を定義:
enum UnitType
{
Meter,
MilliMeter,
}
フィールドを定義:
private UnitType MyUnitType;
ボタンクリック:
try
{
switch(MyUnitType)
{
//m to mm
case MyUnitType.Meter:
MyUnitType = MyUnitType.MilliMeter;
MyTextBox.Text = (Double.Parse(MyTextBox.Text) * 1000.0).ToString();
MyLabel.Text = "mm";
//mm to m
case MyUnitType.MilliMeter:
MyUnitType = MyUnitType.Meter;
MyTextBox.Text = (Double.Parse(MyTextBox.Text) / 1000.0).ToString();
MyLabel.Text = "m";
}
catch
{
MessageBox.Show("整数または実数のみを入力できます。");
MyTextBox.Text = "0.0";
}
TextBoxの代わりにNumericalUpDownを使ってもよいです(変換の手間が省ける)。