| |
VB.NET - Ein- und UmsteigerRe: wenn Programm gestartet wird... | | | Autor: Orwell | Datum: 07.08.17 08:30 |
| Hallo,
hier mal meine Lösung:
Option Strict On
Imports System.Runtime.InteropServices
Public Class Form1
Private Const APPCOMMAND_VOLUME_MUTE As Integer = &H80000
Private Const APPCOMMAND_VOLUME_UP As Integer = &HA0000
Private Const APPCOMMAND_VOLUME_DOWN As Integer = &H90000
Private Const WM_APPCOMMAND As Integer = &H319
<DllImport("user32.dll")> Public Shared Function SendMessageW(ByVal hWnd _
As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As _
IntPtr) As IntPtr
End Function
Dim HScroll3 As Integer = 0
Dim Count As Integer = 0
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles _
Timer1.Tick
If System.Diagnostics.Process.GetProcessesByName( _
My.Settings.App).Length > 0 Then
Label1.Text = "Ein"
Else
Label1.Text = "Aus"
End If
End Sub
Private Sub Label1_TextChanged(sender As Object, e As EventArgs) Handles _
Label1.TextChanged
If Label1.Text = "Ein" Then
SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr( _
APPCOMMAND_VOLUME_MUTE))
Else
End If
End Sub
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs)
End Sub
Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As _
EventArgs)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.Text = My.Settings.App
WindowState = FormWindowState.Minimized
ShowInTaskbar = False
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles _
TextBox1.TextChanged
My.Settings.App = TextBox1.Text
My.Settings.Save()
My.Settings.Reload()
End Sub
Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) _
Handles CloseToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub ShowToolStripMenuItem_Click(sender As Object, e As EventArgs) _
Handles ShowToolStripMenuItem.Click
WindowState = FormWindowState.Normal
Me.Show()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
Button1.Click
SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr( _
APPCOMMAND_VOLUME_MUTE))
End Sub
End Class Gibt es eine andere Lösung als mit dem Timer ?
Gruß | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|