Проблема с отображением чисел в метках.Visual Basic - PullRequest
Новая
       10

Проблема с отображением чисел в метках.Visual Basic

0 голосов
/ 24 октября 2018

В настоящее время я зачислен в базовый класс по визуу в моем университете, и у меня возникли проблемы с одним из назначенных мне упражнений.Мне нужно отобразить стоимость товара для компании, и я не могу ничего отобразить на этикетке.

Это код 

Option Explicit On
Option Strict On
Option Infer Off

Public Class MainForm

    Private Sub BtnCalc_Click(sender As Object, e As EventArgs) Handles BtnCalc.Click

        Dim intCost As Double

        If RadTwin.Checked Then
            intCost = 39.99
        ElseIf RadFull.Checked Then
            intCost = 49.99
        ElseIf RadQueen.Checked Then
            intCost = 49.99
        ElseIf RadKing.Checked Then
            intCost = 69.99
        End If

        lblCost.Text = intCost.ToString("n")
    End Sub

    Private Sub BtnExit_Click(sender As Object, e As EventArgs) Handles BtnExit.Click
        Me.Close()
    End Sub

    Private Sub RadTwin_CheckedChanged(sender As Object, e As EventArgs) Handles RadTwin.CheckedChanged
        lblCost.Text = String.Empty
    End Sub

    Private Sub RadFull_CheckedChanged(sender As Object, e As EventArgs) Handles RadFull.CheckedChanged
        lblCost.Text = String.Empty
    End Sub

    Private Sub RadQueen_CheckedChanged(sender As Object, e As EventArgs) Handles RadQueen.CheckedChanged
        lblCost.Text = String.Empty
    End Sub

    Private Sub RadKing_CheckedChanged(sender As Object, e As EventArgs) Handles RadKing.CheckedChanged
        lblCost.Text = String.Empty
    End Sub
End Class

Мне нужно отобразить стоимость каждого товара.пункт в lblCost, когда выбран переключатель.Я работал над тем, чтобы заставить это работать часами, но я недостаточно осведомлен, чтобы знать, что делать.Если у кого-то есть идеи, как заставить этот код работать, я был бы очень признателенВероятно, что-то глупое простое, что мне не хватает, но я хочу узнать, как решить эту проблему, если это случится снова в будущем.

...