Private Sub Convert_Click() If IsNumeric(Dollars) Then If OptFromUS = True Then If List.ListIndex = 0 Then Output = Format(1 / 0.628535 * Dollars, "currency") If List.ListIndex = 1 Then Output = Format(1 / 0.506001 * Dollars, "currency") If List.ListIndex = 2 Then Output = Format(1 / 0.864797 * Dollars, "currency") End If If OptToUS = True Then If List.ListIndex = 0 Then Output = Format(0.628535 * Dollars, "currency") If List.ListIndex = 1 Then Output = Format(0.506001 * Dollars, "currency") If List.ListIndex = 2 Then Output = Format(0.864797 * Dollars, "currency") End If Else error.Caption = "Please input a value for conversion!" End If End Sub
MsgBox
Page 1 of 14 Replies - 4669 Views - Last Post: 28 May 2002 - 07:13 PM
#1
MsgBox
Posted 05 February 2002 - 11:04 AM
Could someone do a quick rundown for me on how to format a MsgBox properly? I'm trying to make one pop-up on a error 13 when people click Convert without entering in a value. This is what I have already and I must say it's rather lame using a label.
Replies To: MsgBox
#3
Re: MsgBox
Posted 19 February 2002 - 09:09 PM
Hey Ruck... I think I can help you if you still need it but I'll need your porject you can contact me on aim.
#4
Re: MsgBox
Posted 20 February 2002 - 10:43 PM
Umm, okay. It's at school though and I'm on break. So the earliest that I'd be able to post it is next Monday.
#5
Re: MsgBox
Posted 28 May 2002 - 07:13 PM
Is this the code for the error:
error.Caption = "Please input a value for conversion!"
If it is, here is how you would make that a MsgBox:
error.Caption = MsgBox("Please input a value for conversion!")
If you would like to add a label,buttons, and an icon for the MsgBox then reply and I will fill in on how.
Page 1 of 1
|
|

New Topic/Question
Reply




MultiQuote



|