Advertisement
Guest User

Untitled

a guest
Jun 19th, 2019
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.66 KB | None | 0 0
  1. Private Sub btnConvert_Click(sender As Object, e As EventArgs) Handles btnConvert.Click
  2.  
  3. Dim dValueOfTxtBoxFrom As Double = 0
  4.  
  5. If Me.cboFrom.SelectedIndex = -1 AndAlso Me.cboTo.SelectedIndex = -1 Then
  6. MessageBox.Show("Please select temperature units to convert from and to.", "Error: 10001", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
  7. 'btnReset.Select() 'works fine
  8.  
  9. ElseIf cboFrom.SelectedIndex = -1 OrElse cboTo.SelectedIndex = -1 Then
  10. MessageBox.Show("Please select temperature units to convert from and to.", "Error: 10001", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
  11. 'btnExit.Select() 'works fine
  12.  
  13. End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement