DUVIDA NO DRIVEV LIST BOX

KELLYSOUSA 28/08/2010 17:24:23
#351575
COMO EU POSSO HABILITAR OU DESABILITAR OS DRIVES PRESENTES NA COMBO DO DRIVE LIST BOX?
POR PADRAO, APARECEM OS DRIVES DE DISQUETE (A:), DISCO LOCAL (C:) E DRIVE DE CD/DVD (D:), GOSTARIA DE HABILITAR PARA USO OS DRIVES C: E D:, ADICIONANDO SEUS ARQUIVOS NA DIR LIST BOX, E O QUANDO O DRIVE A: FOR ESCOLHIDO, APARECER UMA MSG BOX DIZENDO QUE O DRIVE ESTA DESABILITADO PRA USO
COMO POSSO FAZER ISSO???
MARCELO.TREZE 28/08/2010 19:07:06
#351583 Resposta escolhida
vc pode fazer via código assim

Private Sub Drive1_LostFocus()
If Drive1.Drive = [Ô]a:[Ô] Then
MsgBox [Ô]A unidade a: está desabilitada.[Ô]
Exit Sub
End If
End Sub


veja que coloquei no evento lostfocus, porém vc pode adapta-lo conforme sua necessidade
GERARDA 28/08/2010 19:23:05
#351584
ve se funciona

Private Sub Drive1_Change()
If Left(Drive1.Drive, 2) <> [Ô]d:[Ô] And Left(Drive1.Drive, 2) <> [Ô]e:[Ô] Then
MsgBox [Ô]O Drive [Ô] & UCase(Drive1.Drive) & [Ô] Esta Desabilitado [Ô] & vbCrLf & [Ô]Utilize os Drives D: ou E: [Ô], vbInformation + vbOKOnly, Me.Caption
Drive1.Drive = [Ô]D:[Ô]
End If
End Sub
KELLYSOUSA 31/08/2010 01:00:27
#351774
e como fazer quando o usuario clicar no drive de cd/dvd, se nao tiver nenhum cd, ele abrir o drive??
Tópico encerrado , respostas não são mais permitidas
Voltar