| |

Visual-Basic EinsteigerMusik einspielen aufruf im form_load??? + Dateien öffnen,lesen,ändern etc. | |  | Autor: Herbert aschbacher | Datum: 01.08.06 20:03 |
| Hallo!
Also der titel sagt schon einiges über mein rieseiges problem aus,
1) in der form_Load eine musik einspielen..
habe zwar von hier was bekommen, aber what is ein API??
Audio Player Interface??
also das habe ich absolut ned gescheckt.. wie ich das anstellen soll.. einfach wenn das programm aufgerufen wird, soll eine schöne musik namens "musik" eignespielt werden..
2)problem
Dateien Öffnen,Speichern,Ändern
Wozu? Quasi eine Anmeldeoberfläche mit Benutzername und Passwort
und ja .. und dann auch noch für die Formulare.. Adressen Vornamen Nachnamen etc. speichern und laden können
beim passwort einfach speichern und die uhrzeit angeben, wann dieser jemand on gegangen ist (im coding habe ich es bereits beschränkt wer on darf und wer nicht..)
es soll nur in die datei geschrieben werden, wann dieser jemand einen login begangen hat.
ich hoffe Ihr hab das verstanden so wie ich das hier formuliert habe
falls nicht, einfach fragen.
(mein "ansatz")
Dim eingabe As String
Dim vorname As String
Dim nachname As String
Dim plz As String
Dim ort As String
Dim strasse As String
Dim leer As String
Dim Arec As String
Dim avorname As String
Dim anachname As String
Dim aort As String
Dim aplz As String
Dim astrasse As String
txtVorname.Text = vorname
txtnachame.Text = nachname
txtStrasse.Text = strasse
txtplz.Text = plz
txtOrt.Text = ort
'-------------------------------------------
Private Sub cmd_anzeigen_Click()
Open "C:\adress.dat" For Input As #1
While Not EOF(1)
Line Input #1, Arec
avorname = Left$(Arec, 15)
anachname = Mid$(Arec, 16, 15)
astrasse = Mid$(Arec, 31, 15)
aplz = Mid$(Arec, 46, 5)
aort = Mid$(Arec, 51, 15)
txtVorname.Text = avorname
txtnachname.Text = anachname
txtStrasse.Text = astrasse
txtplz.Text = aplz
txtplz.Text = aort
Wend
Close #1
End Sub
'#############################################################
Private Sub cmd_speichern_Click()
leer = Space$(15)
vorname = vorname + leer
vorname = Left(vorname, 15)
nachname = nachname + leer
nachname = Left(nachname, 15)
strasse = strasse + leer
strasse = Left(strasse, 15)
plz = plz + leer
plz = Left(plz, 15)
ort = ort + leer
ort = Left(ort, 15)
Record$ = vorname + nachname + strasse + plz + ort
Open "c:\adress.dat" For Append As #1
Write #1, Record$
End Sub
PS.: bitte um Coding, die Denkweise wie es gehen soll weis ich
mir fehlen nur die befehle dazu.. leider...
Danke schon mal im Vorraus
MFG
H.A.
so einfach wie n?tig, so kompliziert wie notwendig (einstein) |  |
 | 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 |
  |
|
sevZIP40 Pro DLL 
Zippen und Unzippen wie die Profis!
Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. Weitere InfosTipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) 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-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
|
|