Отображение выходного текста без надписей и знаков

Question

Сценарий: Пользователь устанавливает тарифы для категорий билетов.

adults=100 
children=200 

Существует кнопка с пометкой continue?. Когда он нажимает на нее, открывается новая форма.

В таком виде мне нужно 2 отдельные этикетки, как:

The rate for Adults is 100. 
The rate for Children is 200. 
"are you sure you want to continue?" 

Как я могу добиться этого?

мой код

Module Main_Module 
Dim _adult As Decimal 
Public Property adult() As Decimal 
    Get 
     Return _adult 
    End Get 
    Set(ByVal value As Decimal) 
     _adult = value 
    End Set 
End Property 
Dim _children As Decimal 
Public Property children() As Decimal 
    Get 
     Return _children 
    End Get 
    Set(ByVal value As Decimal) 
     _children = value 
    End Set 
End Property 
Dim _nriadult As Decimal 
Public Property nriadult() As Decimal 
    Get 
     Return _nriadult 
    End Get 
    Set(ByVal value As Decimal) 
     _nriadult = value 
    End Set 
End Property 
Dim _nrichildren As Decimal 
Public Property nrichildren() As Decimal 
    Get 
     Return _nrichildren 
    End Get 
    Set(ByVal value As Decimal) 
     _nrichildren = value 
    End Set 
End Property 
Dim _camera As Decimal 
Public Property camera() As Decimal 
    Get 
     Return _camera 
    End Get 
    Set(ByVal value As Decimal) 
     _camera = value 
    End Set 
End Property 
Dim _handycam As Decimal 
Public Property handycam() As Decimal 
    Get 
     Return _handycam 
    End Get 
    Set(ByVal value As Decimal) 
     _handycam = value 
    End Set 
End Property 

End Module

Это основной модуль

объект Это форма 2 ..... Вот где пользователи установить значения для соответствующих категорий ,

Открытый класс Rate_setting_page

Private Sub adultrate_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles adultrate.TextChanged 
    adult = CDec(adultrate.Text) 
End Sub 

Private Sub childrenrate_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles childrenrate.TextChanged 
    children = CDec(childrenrate.Text) 
End Sub 

Private Sub nriadultrate_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nriadultrate.TextChanged 
    nriadult = CDec(nriadultrate.Text) 
End Sub 

Private Sub nrichildrenrate_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nrichildrenrate.TextChanged 
    nrichildren = CDec(nrichildrenrate.Text) 
End Sub 

Private Sub camerarate_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles camerarate.TextChanged 
    camera = CDec(camerarate.Text) 
End Sub 

Private Sub handycamrate_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles handycamrate.TextChanged 
    handycam = CDec(handycamrate.Text) 
End Sub 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Form2.Show() 
End Sub 

Private Sub Rate_setting_page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

End Sub 

End Class

Answer 1

Если вы просто хотите, чтобы проверить намерения пользователей, почему бы не использовать MessageBox?

Dim adults As Integer = 100 
Dim children As Integer = 200 ' have your own values here, of course! 
If MessageBox.Show(String.Format("The rate for Adults is {0}{1}The rate for Children is {2}", adults, ControlChars.NewLine, children), _ 
         "Continue?", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then 
     'continue 
Else 
     'abort 
End If 

Конечно, вы можете создать свою собственную форму Dialog, чтобы сделать это (см шаблона диалогового окна в Visual Studio), но мне кажется, это будет достаточно.

Зачем брать кувалду, чтобы взломать гайку, если вы можете использовать орех-сковороду?