25 lines
790 B
VB.net
25 lines
790 B
VB.net
Public Class Form2
|
|
Public Shared ans As String
|
|
Public Shared NewParamValue As String
|
|
|
|
|
|
Private Sub Form2_Loaded(ByVal sender As Object, ByVal e As EventArgs) Handles MyClass.Loaded
|
|
Label1.Content = "A " & MainWindow.ParamNameD & " paraméternek alapérték van beállítáva, szeretnéd módosítanin?"
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub MaterialRaisedButton1_Click(sender As Object, e As RoutedEventArgs) Handles MaterialRaisedButton1.Click
|
|
ans = "ok"
|
|
End Sub
|
|
|
|
Private Sub MaterialRaisedButton2_Click(sender As Object, e As RoutedEventArgs) Handles MaterialRaisedButton2.Click
|
|
ans = "notok"
|
|
End Sub
|
|
|
|
Private Sub TextBox_TextChanged(sender As Object, e As TextChangedEventArgs)
|
|
NewParamValue = TextBox1.Text
|
|
End Sub
|
|
|
|
End Class |