Kann mir jemand weiter helfen?

Ich möchte wissen wie ich es machen muss damit ein CommandButten auf ein a oder h reagiert.

Danke im voraus !?!

Brauche dingend HILFE bitte, bitte, bitte!

Dann is mein Programm fertig.

Das haettest du auch in das andere Thema schreiben koennen, ohne dass es jetzt einen weiteren sinnlosen, fast doppelthread gibt.

Probiers mal hiermit:
Dim pmove As Integer
If KeyCode = vbKeyS Then pmove = 1
If pmove = 1 Then...
Bei vbKeyS kannst du anstatt dem S auch h oder irgendwas anderes hinschreiben. Unde nach Then schreibst du einfach das was dann passieren soll.

Ich probiers vielen Dank.

1. Wohin soll ich das Dim pmove hinschreiben ?
2. Soll ich den CommandButten bei Click lassen oder auf KeyPress stellen ?
3. Wenn ich das Programm auf S zum Beispiel Beenden will dann schreib ich in den Butten:
If KeyCode = vbKeyS Then
pmove = 1
If pmove = 1 Then
End
End if
End If

Vielen Dank für die Tipps.

1.Dim pmove As Integer: musst du ganz nach oben schreiben.Und nichts anderes dazu also nicht Private Sub oder so was.
2.Ich würde ihn auf KeyPress stellen.
3.Ja so würde ich es auch machen.
Hoffentlich funktioniert es.

Hat nicht geklappt.
Es hat nicht reagiert.
Ich habs auch mit verschiedenen Keys probiert.

Trotzdem Danke für die Tipps.

Schreibe: If KeyCode = vbKeyS Then...
mal in einen Timer und stelle den Timer auf 1.
Vieleicht geht es so.

Warum schreibst du nicht einfach:

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode = or Keycode = then End

End Sub

Da musst du dann halt die entsprechenden KeyCodes für die Tasten einsetzen (google).

mfG,

[_()|<!

Danke für die Tipps probiers gleich aus!

Danke Loki, deins geht. Ich hab mir so ein Programm runtergeladen.
Neo 23, deins geht nicht aber auch Danke.
Noch 2 Fragen:
1.Kann ich mit Visual Basic ein Programm irgendwie als exe umschreiben (so das es von alleine abläuft)?
2. Geht das selbe (wenn ich z.B. g drück passiert etwas) ohne CommandButten?

Hi, ->Ben<-.

1.) Im Unterpunkt "Datei" wirst du einen Punkt finden, der lautet "[Projektname].exe erstellen" (zumindest wenn du die Vollversion von Visual Basic besitzt). Wenn du darauf klickst, kannst du das Programm kompilieren.

2.) Geht etwa so:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode = then End

End Sub

Da gilt wieder: googlen (ich kenn die KeyCodes nicht auswendig).

mfG,

[_()|<!

Leider habe ich nicht die Vollversion, weil ich Visual Basic mit Buch gelernt habe und da war halt keine Vollversion drin.
Aber das mit der Form (Nr. 2) geht. Vielen Dank !

Noch eine frage:
Wie kann ich, wenn ein CommandButten drücke eine, eine Musik (Geräusch) abspielen?

Dieser Link dürfte dir weiter helfen.

mfG,

[_()|<!

1. Wo soll ich das hinschreiben (in den CommandButten oder in Algemein):

Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

2. Was soll ich wo hin schreiben:
Const SND_ASYNC = &H1
Const SND_LOOP = &H8
Const SND_SYN = &H0

3. Wie muss ich es programmieren damit er weiß welche Wave-Datei er benutzen soll.

Ein Beispiel:
Die Musik ist Laufwerk C\Musik\ und die Wave-Datei heißt "Hallo".
Durch einen druck eines CommandButten (CommandButten1) soll es abgespielt einmal abgespielt werden.

(SND_ASYNC: Die Sounddatei wird asynchrous abgespielt, d.h. die Anwendung läuft parallel dazu weiter
SND_LOOP: Die Sounddatei wird solange abgespielt (wiederholt), bis die sndPlaySound-Funktion erneut mit dem Parameter lpszSoundName = "" aufgerufen wird
SND_SYN: Die Anwendung wird erst nach Abspielung der Sounddatei fortgesetzt

Könntest du mir bitte (musst du nicht wäre aber nett)
den Prgrammtext dazu schreiben!



Danke im Voraus,
mit freundlichen Gruß
->Ben<-

Die Deklarationen kommen zuerst:

Private Declare Function sndPlaySound Lib "winmm.dll" Alias _

"sndPlaySoundA" (ByVal lpszSoundName As String, _

ByVal uFlags As Long) As Long



Const SND_ASYNC = &H1

Const SND_LOOP = &H8

Const SND_SYN = &H0



Private Sub Command1_Click()

     Call sndPlaySound ("C:\Musik\Hallo.wav", SND_ASYNC)

End Sub

Tja wenn du statt "SND_ASYNC" dann einfach "SND_LOOP" angibst, wiederholt sich die Wave-Datei immer wieder bis du sie erneut aufrufst mit einem "" als Dateinamen.

mfG,

[_()|<!

Erste Sahne!
[c = red]Danke Loki
Ich hätte nie gedacht dass das geht.
Jetzt hab ich von einer CD (die ist auf meiner Festplatte) eine Art Music Player gemacht.
Noch ein
paar Fragen:

1.Wenn ich ein Music-Stück ablaufen lasse und
währenddessen Beende dann läuft es einfach weiter bis es zuende ist. Kann ich das beheben ?

2. Kann ich etws machen um die Lautstärke zu beeinflussen ?

3.Kann ich die Zeit von dem gerade ablaufenden Musik-Stück einbauen ?



Zaubertinte: [VIELEN DANK]

mit feundlichen Grüßen,

->Ben<-

Hallo, ->Ben<-.

Die Fragen kann ich dir leider nicht beantworten. Wenn du magst, kannst du mal hier vorbeischauen, das ist ein spezielles Visual Basic Forum.

mfG,

[_()|<!

Hi Loki

Das Problem ist jetzt ich hab dieses Programm gespeichert, will es jetzt starten und der Computer erkennt anscheinend den Pfad nicht (vorher gings und ich hab nicht von den Musik-Daten umbennant oder verschoben). Aber wenn ich es neu programmiere, dann gehts!

Könntest du mir bitte weiterhelfen?

mit freundlichen Grüßen,

->Ben<-

Ich weiß grad nich, was du meinst. Wenn es geht, ist es doch okay!

mfG,

[_()|<!

Also, ich hab eine neue Form geöffnet und dann programmiere ich das so das ich z.B. auf Knopfdruck ein Lied abspielen kann. Nachdem speicher ich es. Beende Visual Basic und lade dann das Gespeicherte. Jetzt gehts dann nicht mehr (anscheinend erkennt er den Pfad nicht mehr).

Kannst du mir sagen wie ich das umendern soll das es geht?

Dabke im Voraus

mit freundlichen Grüßen,

->Ben<-