Hallo,

ich weiß jetzt schon wie ich die Lautstärke über das Mausrad erhöhen kann, wenn man es nach oben bewegt und dabei das mausrad drückt. ein timer liest aus, ob die mitlere maustaste gedrückt ist und sendet dieses an das label Mousebuttons1:


Allerdings wird es auch lauter, wenn ich es nach unten drehe
er soll das jetzt lauter machen, wenn die mitlere taste gedrückt ist und das mausrad nach oben bewegt wird.
undleiser machen, wenn die mitlere taste gedrückt ist und das mausrad nach unten bewegt wird.

Ehm du solltest vll. hier:

das"Up" durch down ersetzen?

Nein, das sollte er nicht LOL. Sieht nicht so aus, als hättest du schon mal mit der keybd_event-API gearbeitet, henny...

EDIT: Was ist MouseButtons1 ?

lg SeriTools

nein, da er ja einmal das Down benötigt und anschließend wieder das UP durch KEYEVENTF_KEYDOWN, Up ist dabei nur die Taste welche simuliert werden soll...
Edit: zu langsam...xD

Anscheinend ist MouseButtons1.Text = " 4194303" , dass die mittlere Maustaste gedrückt wurde (oder?).

lg SeriTools

das hat er doch schon durch das MouseWheel?!
außerdem sicher, dass das Leerzeichen da hin kommt?:" 4194303"

Nee, man muss die mittlere Maustaste doch nicht gedrückt halten um zu scrollen.

lg SeriTools

EDIT:


So vielleicht?

achso mit gedrückter Scrollen? das find ich aber mal echt blöd...xD
das kann er doch mit e.Button regeln?->es sei denn es ist parallel eine andere Taste gedrückt^^

ja das lerzeichen ist mir da reingerutscht, soll nich so sein, aber mann soll drücken und scrollen, dazu das "4194303"

warum nimmst du im MouseWheel Event nicht e.Button zur Hand?

hallo,

jvbsl schrieb:

warum nimmst du im MouseWheel Event nicht e.Button zur Hand?

keine ahnung, bei mirgeht das manchmal nicht.

SeriTools schrieb:

VB.NET-Quellcode

1. Private Sub form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
2. If MouseButtons1.Text = "4194303" Then If e.Delta >= 120 Then
3. Call keybd_event(CByte(System.Windows.Forms.Keys.VolumeUp), 0, KEYEVENTF_KEYDOWN, 0)
4. Call keybd_event(CByte(System.Windows.Forms.Keys.VolumeUp), 0, KEYEVENTF_KEYUP, 0)
5. Else
6. Call keybd_event(CByte(System.Windows.Forms.Keys.VolumeDown), 0, KEYEVENTF_KEYDOWN, 0)
7. Call keybd_event(CByte(System.Windows.Forms.Keys.VolumeDown), 0, KEYEVENTF_KEYUP, 0)
8. End If
9. End Sub

geht bei mir irgendwie nich, da is immer else und end If unterkringelt

so hätte ich das gemacht...

Jo jvbsl, seh ich gerade
Das wollte ich selbst gerade schreiben, scrolle nach unten und sehe deinen Post

lg SeriTools

Hi,



Das ist mein überschaubarer Code, die Lautstärkeregelung über das mausrad geht aber immer nich nich
Könnt ihr mir nochmal helfen?

zur Thema API Deklaraionen habe ich hier was gepostet:
[VB 2008] Taste wählen die Simuliert werden soll
API Deklaration falsch !

Also was is da jetzt falsch?

wie Alex2000 bereits gesagt hat, die API Dekleration:

As Long wird zu As Integer...da in VB 6 ist As Long 32 Bit in .Net jedoch 64 Bit und Integer(Int32) 32 Bit...As Integer würde zu As Short(Int16) werden...

Jetzt habe ivh das ausgetauscht:



Geht immer noch nicht.
Ich betone: an sich ist ja alles in ordnung, die lautstärkeregelung über die Buttons geht ja schon, nur die Maus halt nicht.
Wenn ich den Elsekram wegmache, wird es lauter wenn ich nach oben oder unten drehe.
Ich verzweifel gleich an diesem Programm.

mach das raus...e.Button = MouseButtons.Middle Then
sonst müsstest du Scrollen und die Mausrad Taste gleichzeitig nach unten drücken...?!?

Hast recht, wenn ich das raustue gehts, war eigentlich als sicherung gedacht, aber dann überlege ich mir was neues. kann man das auch machen, das sich die lautstärke ändert, auch wenn das fenster nicht den fokus hat?