GDPicture WISAG Etc
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user