home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 November / Chip_2001-11_cd1.bin / internet / convert / c_app.vbs < prev    next >
Text File  |  2000-07-21  |  394b  |  17 lines
  1. Option Explicit
  2.  
  3. Sub cmdOK_OnClick
  4.    Dim i, Txt
  5.    Txt = ""
  6.    For i = 0 to cboJednotka.Options.Length - 1
  7.       Txt = Txt & txtIn.Value * cboJednotka.Value / cboJednotka.Options(i).Value & " (" & cboJednotka.Options(i).Text & ")" & Chr(10) & Chr(13)
  8.    Next
  9.    lstOut.Value = Txt
  10.    txtIn.Focus
  11.    txtIn.Select
  12. End Sub
  13.  
  14. Sub Window_OnLoad
  15.    txtIn.Focus
  16.    txtIn.Select
  17. End Sub