Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gilles RONSIN
"Iddir_ d'Alger" , le lun. 10 mai 2004 13:17:25, écrivait ceci:
Salut tous le monde,
Salut
Je voudrait savoir comment faire pour ouvrir la boite de dialogue de formattage d'une disquette à partir d'une application VB.
' formatage disk
Declare Function SHFormatDrive Lib "shell32" ( _ ByVal hwndOwner As Long, _ ByVal iDrive As Long, _ ByVal iCapacity As Long, _ ByVal iFormatType As Long _ ) As Long
' Format lResult = SHFormatDrive(Me.hwnd, 0, 0, 0) Select Case lResult Case Is = -3 MsgBox "Failure, drive can't be formatted", vbCritical, "ERROR" Exit Sub Case Is = -2 MsgBox "Operation has been cancelled" Exit Sub Case Is = -1 MsgBox "Operation attempted but completed unsuccessfully" Exit Sub End Select
-- Embryon de site : http://gilles.ronsin.free.fr Nouvelles astuces : Interprêtation des évenements XP en "français" (trad auto) Il est impossible pour un optimiste d'être agréablement surpris.
"Iddir_ d'Alger" <anonymous@discussions.microsoft.com>, le lun. 10 mai
2004 13:17:25, écrivait ceci:
Salut tous le monde,
Salut
Je voudrait savoir comment faire pour ouvrir la boite de
dialogue de formattage d'une disquette à partir d'une
application VB.
' formatage disk
Declare Function SHFormatDrive Lib "shell32" ( _
ByVal hwndOwner As Long, _
ByVal iDrive As Long, _
ByVal iCapacity As Long, _
ByVal iFormatType As Long _
) As Long
' Format
lResult = SHFormatDrive(Me.hwnd, 0, 0, 0)
Select Case lResult
Case Is = -3
MsgBox "Failure, drive can't be formatted",
vbCritical, "ERROR"
Exit Sub
Case Is = -2
MsgBox "Operation has been cancelled"
Exit Sub
Case Is = -1
MsgBox "Operation attempted but completed
unsuccessfully"
Exit Sub
End Select
--
Embryon de site : http://gilles.ronsin.free.fr
Nouvelles astuces : Interprêtation des évenements XP en "français"
(trad auto)
Il est impossible pour un optimiste d'être agréablement surpris.
"Iddir_ d'Alger" , le lun. 10 mai 2004 13:17:25, écrivait ceci:
Salut tous le monde,
Salut
Je voudrait savoir comment faire pour ouvrir la boite de dialogue de formattage d'une disquette à partir d'une application VB.
' formatage disk
Declare Function SHFormatDrive Lib "shell32" ( _ ByVal hwndOwner As Long, _ ByVal iDrive As Long, _ ByVal iCapacity As Long, _ ByVal iFormatType As Long _ ) As Long
' Format lResult = SHFormatDrive(Me.hwnd, 0, 0, 0) Select Case lResult Case Is = -3 MsgBox "Failure, drive can't be formatted", vbCritical, "ERROR" Exit Sub Case Is = -2 MsgBox "Operation has been cancelled" Exit Sub Case Is = -1 MsgBox "Operation attempted but completed unsuccessfully" Exit Sub End Select
-- Embryon de site : http://gilles.ronsin.free.fr Nouvelles astuces : Interprêtation des évenements XP en "français" (trad auto) Il est impossible pour un optimiste d'être agréablement surpris.
Patrice Henrio
Juste parce que la phrase de fin de texte me plaît bien. Pour ma part je l'utilise sous la forme : "imagine le pire, tu n'es jamais déçu"
"Gilles RONSIN" a écrit dans le message de news:
"Iddir_ d'Alger" , le lun. 10 mai 2004 13:17:25, écrivait ceci:
> Salut tous le monde, Salut
> Je voudrait savoir comment faire pour ouvrir la boite de > dialogue de formattage d'une disquette à partir d'une > application VB.
' formatage disk
Declare Function SHFormatDrive Lib "shell32" ( _ ByVal hwndOwner As Long, _ ByVal iDrive As Long, _ ByVal iCapacity As Long, _ ByVal iFormatType As Long _ ) As Long
' Format lResult = SHFormatDrive(Me.hwnd, 0, 0, 0) Select Case lResult Case Is = -3 MsgBox "Failure, drive can't be formatted", vbCritical, "ERROR" Exit Sub Case Is = -2 MsgBox "Operation has been cancelled" Exit Sub Case Is = -1 MsgBox "Operation attempted but completed unsuccessfully" Exit Sub End Select
-- Embryon de site : http://gilles.ronsin.free.fr Nouvelles astuces : Interprêtation des évenements XP en "français" (trad auto) Il est impossible pour un optimiste d'être agréablement surpris.
Juste parce que la phrase de fin de texte me plaît bien. Pour ma part je
l'utilise sous la forme : "imagine le pire, tu n'es jamais déçu"
"Gilles RONSIN" <nomail@please.invalid> a écrit dans le message de
news:c7o39m.238.2@d2r2.c6po...
"Iddir_ d'Alger" <anonymous@discussions.microsoft.com>, le lun. 10 mai
2004 13:17:25, écrivait ceci:
> Salut tous le monde,
Salut
> Je voudrait savoir comment faire pour ouvrir la boite de
> dialogue de formattage d'une disquette à partir d'une
> application VB.
' formatage disk
Declare Function SHFormatDrive Lib "shell32" ( _
ByVal hwndOwner As Long, _
ByVal iDrive As Long, _
ByVal iCapacity As Long, _
ByVal iFormatType As Long _
) As Long
' Format
lResult = SHFormatDrive(Me.hwnd, 0, 0, 0)
Select Case lResult
Case Is = -3
MsgBox "Failure, drive can't be formatted",
vbCritical, "ERROR"
Exit Sub
Case Is = -2
MsgBox "Operation has been cancelled"
Exit Sub
Case Is = -1
MsgBox "Operation attempted but completed
unsuccessfully"
Exit Sub
End Select
--
Embryon de site : http://gilles.ronsin.free.fr
Nouvelles astuces : Interprêtation des évenements XP en "français"
(trad auto)
Il est impossible pour un optimiste d'être agréablement surpris.
Juste parce que la phrase de fin de texte me plaît bien. Pour ma part je l'utilise sous la forme : "imagine le pire, tu n'es jamais déçu"
"Gilles RONSIN" a écrit dans le message de news:
"Iddir_ d'Alger" , le lun. 10 mai 2004 13:17:25, écrivait ceci:
> Salut tous le monde, Salut
> Je voudrait savoir comment faire pour ouvrir la boite de > dialogue de formattage d'une disquette à partir d'une > application VB.
' formatage disk
Declare Function SHFormatDrive Lib "shell32" ( _ ByVal hwndOwner As Long, _ ByVal iDrive As Long, _ ByVal iCapacity As Long, _ ByVal iFormatType As Long _ ) As Long
' Format lResult = SHFormatDrive(Me.hwnd, 0, 0, 0) Select Case lResult Case Is = -3 MsgBox "Failure, drive can't be formatted", vbCritical, "ERROR" Exit Sub Case Is = -2 MsgBox "Operation has been cancelled" Exit Sub Case Is = -1 MsgBox "Operation attempted but completed unsuccessfully" Exit Sub End Select
-- Embryon de site : http://gilles.ronsin.free.fr Nouvelles astuces : Interprêtation des évenements XP en "français" (trad auto) Il est impossible pour un optimiste d'être agréablement surpris.
Gilles RONSIN
"Patrice Henrio" , le lun. 10 mai 2004 18:13:49, écrivait ceci:
Salut,
Juste parce que la phrase de fin de texte me plaît bien. Pour ma part je l'utilise sous la forme : "imagine le pire, tu n'es jamais déçu"
;-))
-- Embryon de site : http://gilles.ronsin.free.fr Nouvelles astuces : Interprêtation des évenements XP en "français" (trad auto) Il est impossible pour un optimiste d'être agréablement surpris.
"Patrice Henrio" <patrice.henrio.pasdepub@laposte.net>, le lun. 10
mai 2004 18:13:49, écrivait ceci:
Salut,
Juste parce que la phrase de fin de texte me plaît bien. Pour ma
part je l'utilise sous la forme : "imagine le pire, tu n'es jamais
déçu"
;-))
--
Embryon de site : http://gilles.ronsin.free.fr
Nouvelles astuces : Interprêtation des évenements XP en "français" (trad
auto)
Il est impossible pour un optimiste d'être agréablement surpris.
"Patrice Henrio" , le lun. 10 mai 2004 18:13:49, écrivait ceci:
Salut,
Juste parce que la phrase de fin de texte me plaît bien. Pour ma part je l'utilise sous la forme : "imagine le pire, tu n'es jamais déçu"
;-))
-- Embryon de site : http://gilles.ronsin.free.fr Nouvelles astuces : Interprêtation des évenements XP en "français" (trad auto) Il est impossible pour un optimiste d'être agréablement surpris.
