35 lines
1.2 KiB
VB.net
35 lines
1.2 KiB
VB.net
Public Class Form3
|
|
|
|
Private Sub Form3_Loaded(ByVal sender As Object, ByVal e As EventArgs) Handles MyClass.Loaded
|
|
|
|
TextBox1.Text = MainWindow.sresult
|
|
' MaterialLabel2.Text = "Hibák száma: " & MainWindow.HibakSzama
|
|
|
|
If MainWindow.HibakSzama = 0 Then
|
|
Label1.Foreground = Brushes.Green
|
|
Else
|
|
Label1.Foreground = Brushes.Red
|
|
If MainWindow.HibakSzama = 1 And MainWindow.ddas = False Then
|
|
Label1.Foreground = Brushes.Orange
|
|
End If
|
|
End If
|
|
HandleWindow.FocusWindowM("Elkészül", "t")
|
|
Me.Topmost = False
|
|
End Sub
|
|
|
|
Private Sub MaterialRaisedButton1_Click(sender As Object, e As EventArgs) Handles MaterialRaisedButton1.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub MaterialRaisedButton2_Click(sender As Object, e As EventArgs) Handles MaterialRaisedButton2.Click
|
|
Process.Start(MainWindow.workDir)
|
|
End Sub
|
|
|
|
Private Sub TextBox1_TextChanged(sender As Object, e As TextChangedEventArgs) Handles TextBox1.TextChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub MaterialRaisedButton1_Click_1(sender As Object, e As RoutedEventArgs) Handles MaterialRaisedButton1.Click
|
|
|
|
End Sub
|
|
End Class |