24/08/08 14:31
grazie, ma voglio il form dove si decide il lettore.
P.S., deve comparire ogni volta, prima del main
------------------------------------------------------
come posso inserire, anche uno splash skeen, che dopo 2,5 sec. fa partire il form del drive list box?
Lo splash screen, deve essere un immagine, che creerò io.
Ultima modifica effettuata da 24/08/08 14:33
24/08/08 15:05
Overflow
si chiama Splash Screen e per aggiungerlo vai sulla voce Progetto(Project) nel menù di visual basic in alto e clicca su Aggiungi Form(Add Form) e tra i modelli di form che appaiono scegli Splash Screen.
Dopo nelle proprietà del progetto imposta come form principale(che appare per prima all'inizio) lo splash screen.
... per il problema del form dove si deve decidere da quale drive prendere la musica te lo sconsiglio. A questo punto permetti di leggere la musica da tutti i drive del pc senza sceglierne uno(potrebbe essere fastidioso).
Ultima modifica effettuata da Overflow 24/08/08 15:09
aaa
24/08/08 15:19
Quindi io devo mettere il codice dello stile xp sullo splash, giusto?
P.S.
Come faccio che dopo 2,5 sec. si apre il form normale?
Ultima modifica effettuata da 24/08/08 15:20
24/08/08 15:21
Approposito il codice che mi hai dato tu, lo devo mettere nella main?
24/08/08 15:26
GrG
mettici un timer con intervallo 2500
aaa
24/08/08 15:30
Overflow
nello splash screen devi metterci un timer come ha detto Grg con un intervallo di 2500 millisecondi poi nell'evento timer inserisci questo codice:
private sub Timer1_Timer()
'nell'evento timer di timer1
unload me
form1.show
'cosi si chiude lo splash screen e si apre il form vero e proprio dopo 2,5 secondi.
End Sub
Postato originariamente da Ultra Phonic 2:
Approposito il codice che mi hai dato tu, lo devo mettere nella main?
a quale codice ti riferisci?
Ultima modifica effettuata da Overflow 24/08/08 15:32
aaa
24/08/08 15:46
Quello del lett cd, invece di mettere una drive list box
24/08/08 16:01
Overflow
Postato originariamente da Overflow:
scusa ma ho trovato un API apposita per ottenere il tipo del drive (CD-ROM, disco fisso ec..):
Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" _
(ByVal nDrive As String) As Long
dichiara questa costante:
'questa è quella che ti serve
const DRIVE_CDROM = 5
'queste non credo ti servano
const DRIVE_FIXED = 3
const DRIVE_REMOVABLE = 2
adesso chiami la funzione
dim tdrive as long
dim drive as string
drive = "D:\"
tdrive = GetDriveType(drive)
if tdrive = DRIVE_CDROM then
msgbox drive & " è un lettore CD"
end if
se ti riferisci a questo si mettilo nella main.
Ultima modifica effettuata da Overflow 24/08/08 16:01
aaa
