Örnek, Userform uzunluk çevrimi

[Asri]

Bir soru üzerine yazmıştım, soru kaybolmuş. Boşa gitmesin : )

Uzunluk çevrimi userform lu örnek çalışma.
Milimetre, Santimetre, Metre ve Kilometre çevrimi. İkinci listbox da seçimler değiştikçe sonuç değişecektir.

Userform a iki listbox, iki textbox ekleyiniz.

http://s4.dosya.tc/server2/z5qqh6/uzunluk_cevrim.zip.html

Private Sub ListBox2_Change()
    If ListBox1.Text = "Milimetre" And ListBox2.Text = "Milimetre" Then TextBox2.Text = Val(TextBox1.Text) * 1
    If ListBox1.Text = "Milimetre" And ListBox2.Text = "Santimetre" Then TextBox2.Text = Val(TextBox1.Text) / 10
    If ListBox1.Text = "Milimetre" And ListBox2.Text = "Metre" Then TextBox2.Text = Val(TextBox1.Text) / 1000
    If ListBox1.Text = "Milimetre" And ListBox2.Text = "Kilometre" Then TextBox2.Text = Val(TextBox1.Text) / 1000000
    
    If ListBox1.Text = "Santimetre" And ListBox2.Text = "Milimetre" Then TextBox2.Text = Val(TextBox1.Text) * 10
    If ListBox1.Text = "Santimetre" And ListBox2.Text = "Santimetre" Then TextBox2.Text = Val(TextBox1.Text) * 1
    If ListBox1.Text = "Santimetre" And ListBox2.Text = "Metre" Then TextBox2.Text = Val(TextBox1.Text) / 100
    If ListBox1.Text = "Santimetre" And ListBox2.Text = "Kilometre" Then TextBox2.Text = Val(TextBox1.Text) / 100000
        
    If ListBox1.Text = "Metre" And ListBox2.Text = "Milimetre" Then TextBox2.Text = Val(TextBox1.Text) * 1000
    If ListBox1.Text = "Metre" And ListBox2.Text = "Santimetre" Then TextBox2.Text = Val(TextBox1.Text) * 100
    If ListBox1.Text = "Metre" And ListBox2.Text = "Metre" Then TextBox2.Text = Val(TextBox1.Text) * 1
    If ListBox1.Text = "Metre" And ListBox2.Text = "Kilometre" Then TextBox2.Text = Val(TextBox1.Text) / 1000
    
    If ListBox1.Text = "Kilometre" And ListBox2.Text = "Milimetre" Then TextBox2.Text = Val(TextBox1.Text) * 1000000
    If ListBox1.Text = "Kilometre" And ListBox2.Text = "Santimetre" Then TextBox2.Text = Val(TextBox1.Text) * 100000
    If ListBox1.Text = "Kilometre" And ListBox2.Text = "Metre" Then TextBox2.Text = Val(TextBox1.Text) * 1000
    If ListBox1.Text = "Kilometre" And ListBox2.Text = "Kilometre" Then TextBox2.Text = Val(TextBox1.Text) * 1
End Sub

Private Sub UserForm_Initialize()
ListBox1.Clear
ListBox1.AddItem "Milimetre"
ListBox1.AddItem "Santimetre"
ListBox1.AddItem "Metre"
ListBox1.AddItem "Kilometre"

ListBox2.Clear
ListBox2.AddItem "Milimetre"
ListBox2.AddItem "Santimetre"
ListBox2.AddItem "Metre"
ListBox2.AddItem "Kilometre"

End Sub