Results 1 to 3 of 3
Thread: VIsual Basic
Hybrid View
-
5th October 2014 10:33 #1Registered User
Join Date: Jun:2011
Location: varna
Posts: 23
VIsual Basic
, , group box , - , ?
Code:Public Class Form1 Dim Rate As Single Dim CurrencyType As String Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter End Sub Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles txtUSD.TextChanged End Sub Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles txtEUR.TextChanged End Sub Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles txtSUM.TextChanged End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged Rate = Val(txtGBP.Text) CurrencyType = "" End Sub Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged Rate = Val(txtUSD.Text) CurrencyType = "" End Sub Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged Rate = Val(txtCHF.Text) CurrencyType = "" End Sub Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged Rate = Val(txtEUR.Text) CurrencyType = "" End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click txtGBP.Enabled = True txtCHF.Enabled = True txtEUR.Enabled = True txtUSD.Enabled = True End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click MsgBox(" " & txtSUM.Text & " " & Format(Val(txtSUM.Text) / Rate, "### ###.00") & CurrencyType, 0, "!") End Sub Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click End Sub End Class
?



????
-
5th October 2014 11:52 #2
, ..
"", Rate . .
, , , "". - "".
- , , .
-
6th October 2014 00:47 #3
Join Date: Apr:2006
Location:
Posts: 8,666
, decimal point ...
Rate = Val(txtEUR.Text) 1- 156.




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in