GDPicture WISAG Etc

This commit is contained in:
2020-01-08 15:11:40 +01:00
parent ad1611802a
commit e71a0bf9d5
36 changed files with 5129 additions and 4134 deletions

View File

@@ -150,22 +150,6 @@ Public Class frmKonfig
MsgBox("Culture-Name: " & CultureInfo.CurrentCulture.Name & vbNewLine & "Culture-ThreeLetterISOLanguageName: " & CultureInfo.CurrentCulture.ThreeLetterISOLanguageName & vbNewLine &
"CurrentUICulture-Name: " & CultureInfo.CurrentUICulture.Name & vbNewLine & "CurrentUICulture-ThreeLetterISOLanguageName: " & CultureInfo.CurrentUICulture.ThreeLetterISOLanguageName)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim p As Process
Dim processes As Process()
processes = Process.GetProcesses()
Dim msg As String
For Each p In processes
If p.ProcessName <> "svchost" Then
msg = msg & p.ProcessName & vbNewLine
End If
Next
MsgBox("Liste der Processnames: " & vbNewLine & msg, MsgBoxStyle.Information)
End Sub
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs)
My.Settings.Save()
End Sub