|
| |
Fortgeschrittene Programmierung| Re: ersatz für AS Boolean ? | |  | | Autor: Exp-Soft | | Datum: 22.12.03 22:10 |
| kann mir ev. noch jemand sagen warum ich bei dem hier nen Error bekomme?
Declare Function ReleaseCapture Lib "user" () As Long
Declare Function SendMessage Lib "user" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function mciSendString Lib "winmm16.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim fForwardSpeed As Long
Dim fPlaying As Integer
Dim fCDLoaded As Integer
Dim numTracks As Integer
Dim track As Integer
Dim trackLength() As String
Dim min As Integer
Dim sic As Integer
Dim cmd As String
Dim startplay As Integer
Declare Function GetWindowsDirectory Lib "kernel" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Declare Function WritePrivateProfileString Lib "kernel" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Sub UpdateTimer()
Static cdmedia As String * 30
mciSendString "status cd media present", cdmedia, Len(cdmedia), 0
If (fCDLoaded = False) Then
r = mciSendString("status cd number of tracks wait", cdmedia, Len(cdmedia), 0)
If (numTracks = 1) Then
Exit Sub
End If
r = mciSendString("status cd length wait", cdmedia, Len(cdmedia), 0)
frmMain.lblTime.Caption = " Tracks: " & numTracks & " Time: " & cdmedia
Dim i As Integer
For i = 1 To numTracks
cmd = "status cd length track " & i
r = mciSendString(cmd, cdmedia, Len(cdmedia), 0)
trackLength(i) = cdmedia
Next
fCDLoaded = True
'r = mciSendString("seek cd to 1", 0, 0, 0)
startplay = True
End If
r = mciSendString("status cd position", cdmedia, Len(cdmedia), 0)
r = mciSendString("status cd mode", cdmedia, Len(cdmedia), 0)
startplay = True
If (fCDLoaded = True) Then
fCDLoaded = False
fPlaying = False
frmMain.lblTime.Caption = "No CD"
frmMain.lblTiming.Caption = "[00]00:00 - 00:00:00"
End If
End Sub
so bei allen mciSendString befehlen kommt folgende Meldung
( Duplicate procedure name ) mit alisa mciSendStringA hab ichs auch schon versucht gleiche meldung.
Thx 4 Help nochmal.
Wer nicht fragt bleibt dumm, wer sich sch?mt zu fragen, sch?n dumm  | |
 | 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 |
 |
|
sevGraph (VB/VBA) 
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 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
|
|
Sie sind aktuell nicht angemeldet.
