Delete e ListBox para arquivo

[KaotiX 0]

Duas perguntas...Uma, como faço para o delete logo acima das setinhas no teclado responder a um evento KeyPress? Só o do numpad responde quando ponho 127 ou vbKeyDelete...Outra, como faço para importar/exportar valores de uma série de listboxes em um form para um arquivo externo (ou vice-versa)?Muito obrigado :)

[preda 0]

No evento KeyDown ele entende por 46.

 

Exemplo:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Label1.Caption = KeyCodeEnd Sub

 

A partir daí acho que você já consegue o que quer !

 

Certo ?

[Luizgrs 0]

Para mexer com arquivos externos (tipo texto) sem nenhum componente adicional você pode fazer assim:

 

Open caminho_do_arquivo For Output As #1 'criar arquivo (caso exista vai sobrescrever)	Print #1, "lalala" 'a cada Print uma linha é criadaClose #1 'fecha o arquivoOpen caminho_do_arquivo For Input As #1 'abrir arquivo para leitura	While Not EOF(1) 'a cada volta você obtém uma linha		Line Input #1, txt 'o valo da linha é guardado na variável txt	WendClose #1