Mensajes

Código [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()

List1.AddItem "Rosso"
List1.AddItem "Nero"
List1.AddItem "Bianco"

List1.Selected(0) = True

End Sub

Private Sub List1_Click()
Me.Caption = List1.ListIndex
If List1.ListIndex = 0 Then Me.BackColor = vbRed
If List1.ListIndex = 1 Then Me.BackColor = vbBlack
If List1.ListIndex = 2 Then Me.BackColor = vbWhite

End Sub



Es una idea, adaptala a lo que quieras hacer

[sk8erboi]

para que queires bootear en msdos si tienes instalado xp debes de tener el hdd en ntfs y el ms-dos no reconoce el sistema de archivo ntfs

Hola sk8erboi, no quiere ver ningun archivo del xp, quire reponer la imagen de la particion del xp desde DOS.

mulder86: si creas al final del disco rigido una particion Fat 32 con DOS, la imagen del XP y los archivos que crea el Ghost para hacer un CD de soporte (supongo que Ghost te da esa posibilidad), yo hago algo parecido a esto pero con Drive Image.

Saludos

Hola novalida, no creo que puedas hacer bootear un pendrive tal como viene de fabrica y solo copiando los archivos de arranque , la particion que trae no es primaria y por lo tanto no puede ser activada, el HP es un excelente soft para esto, espero que te sirva, saludos

 

Tal vez el método sea viejo, pero yo por lo menos no lo conocía, gracias por el aporte.

PD: El viento tambien es viejo y cada vez sopla mas.

Saludos

 

Hola Leandro, podrias subirlo a rapishared (nunca pude bajar algo  de uploadsourcecode)

Gracias y Saludos

Hola Fabricio, para mí tenes que vaciar las dos matrices  (Matriz_Volume y matriz_ESN) antes de cmdDetectar_Click(), de esta manera "refrescas" y volves a detectar todos los cambios desde cero.

PD: A mí me funciona bien de esta manera, (hasta puse el code del button cmdDetectar en un timer para que se actualize automaticamente).

Saludos

Creo que no es eso vivachapas, ya que mariana_87 habla de un textbox multiline en su pregunta, seguro que es  el Chr(10).

Saludos y a no olvidarse del glorioso VB6 

linefuction ???, no será  Multiline=True

Hola, Son saltos de linea

Text1 = Replace(Text1, Chr(10), vbNewLine)

saludos