abbrechen bei Inputbox

Lars · 2008-09-05T14:43:00+00:00

Hallo zusammen, ich habe bei Inputboxen folgendes Problem: Beim anklicken der checkbox "Eingabe" erscheint ein Input Fenster. Wenn in dem Fenster keine Eingabe erfolgt und auf ok geklickt wird, soll das Fenster erneut aufgehen. Das klappt gut mit folgendem Code: Private Sub Eingabe_click() Frage = "bla bla" Titel = "bla bla" Eingabebox(Frage, Titel, var) Range("C38") = "Eingabe: " & var End Sub Private Sub Eingabebox(Frage, Titel, var) 100 var = InputBox(Frage, Titel) If var = "" Then GoTo 100 Else End If End Sub Wie kann ich jetzt erreichen, dass beim Klick auf Abbrechen die checkbox wieder auf Value=False gesetzt wird und in diesem Beispiel der text im Feld "C38" wieder gelöscht wird? Danke für die Hilfe Lars

Liebste K.Rola,
1. Den Ressourcen-Editor starten. In der Menüleiste unter Add-Ins den Add-In-Manager aufrufen und mit einem Doppelklick den Ressourcen-Editor aktivieren (oder bei Ladeverhalten die beiden oberen Häkchen setzen).
2. In der Menüleiste unter Exras kannst du den Ressourcen-Editor starten.
3. Eine "benutzerdefinieret Ressource" hinzufügen. Einfach auf das Icon links vom Fragezeichen klicken. Den Rest mit Explorer und Doppelklick muss ich ja wohl nicht erklären.
4. Die Datei wird unter der Rubric "CUSTOM" mit der fortlaufenden Nummer 101 abgelegt.
5. Ressourcendatei über das Diskettensymbol speicheren.
Die Ressource wird in einer eigenen Ressourcendatei (.RES) gespeichert und beim kompilieren in die .EXE eingebunden. Das ist dann eine Binärdatei, welche du per Put in eine Textdatei schreibe kannst um sie aus der EXE zu extrahieren.
Beispiel:

Private Sub Command1_Click()
    Dim bytResData() As Byte
    Dim intFile As Integer
    bytResData = LoadResData(101, "Custom")
    intFile = FreeFile
    Open App.Path & "\the show must go on.mp3" For Binary Access Write As intFile
    Put intFile, , bytResData
    Close intFile
End Sub

Aber wie schon geschrieben, wenn du sie auch abspielen willst, geht das mit einer WAV-Datei viel einfacher.
Beispiel:

Option Explicit

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

Private Const SND_ASYNC = &H1
Private Const SND_MEMORY = &H4
Private Const SND_NODEFAULT = &H2

Private bytResData() As Byte

Private Sub Command1_Click()
    bytResData = LoadResData(101, "CUSTOM")
    sndPlaySound bytResData(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY
End Sub

Ganz liebe Grüße
Nepumuk

Hallo,
habe auch mal mit mp3 in VB6 was gemacht.
Hier der Code (aus VB6),
in Excel muss aus "App.Path", ThisWorkbook.Path oder ActiveWorkbook.Path warden.

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" _
  Alias "mciSendStringA" (ByVal lpszCommand As String, _
  ByVal lpszReturnString As String, _
  ByVal cchReturnLength As Long, _
  ByVal hwndCallback As Long) As Long

Private Declare Function GetShortPathName Lib "kernel32" _
  Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
  ByVal lpszShortPath As String, _
  ByVal cchBuffer As Long) As Long

Dim strPfadMusik As String

Public Function MP3_Play(ByVal sFile As String, ByVal sAlias As String) As Boolean
Dim bResult As Boolean
Dim sBuffer As String
Dim lResult As Long

sBuffer = Space$(255)
lResult = GetShortPathName(sFile, sBuffer, Len(sBuffer))

  If lResult <> 0 Then
    sFile = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
    lResult = mciSendString("open " & sFile & " type MPEGVideo alias " & sAlias, 0, 0, 0)
    If lResult = 0 Then
      If mciSendString("play " & sAlias & " from 0", 0, 0, 0) = 0 Then
        bResult = True
      End If
    End If
  End If

MP3_Play = bResult
End Function

Sub MP3_Stop(ByVal sAlias As String)
  mciSendString "stop " & sAlias, 0, 0, 0
  mciSendString "close " & sAlias, 0, 0, 0
End Sub

Sub Mach_Musik(strDatei As String)
 MP3_Play strDatei, "MyAlias"
End Sub

Private Sub Form_Load()
strPfadMusik = IIf(Right$(App.Path, 1) = "\", App.Path, App.Path & "\")
End Sub

Private Sub Command1_Click() 'start Musik 
Mach_Musik (strPfadMusik & "01 Ronan Keating - If Tomorrow Never Comes.mp3")
End Sub

Private Sub Command2_Click() 'stop Musik 
MP3_Stop "MyAlias"
End Sub

Mit dem Verpackungsassistent von VB6,
kannst du ja die MP3 mit in den Ordner Installieren lassen.
Gruß Tino

Forumthread: abbrechen bei Inputbox

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

InputBox abfangen und abbrechen in VBA

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)