Mensajes

Hola, mira este source...

Código (vb) [Seleccionar] Expandir



Private Sub Form_Load()
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\SecurityCenter")
Set colItems = oWMI.ExecQuery("Select * from AntiVirusProduct")
For Each objAntiVirusProduct In colItems
msg = msg & "CompanyName: " & objAntiVirusProduct.CompanyName & vbCrLf
msg = msg & "DisplayName: " & objAntiVirusProduct.DisplayName & vbCrLf
msg = msg & "InstanceGuid: " & objAntiVirusProduct.instanceGuid & vbCrLf
msg = msg & "OnAccessScanningEnabled: " & objAntiVirusProduct.onAccessScanningEnabled & vbCrLf
msg = msg & "ProductUptoDate: " & objAntiVirusProduct.productUptoDate & vbCrLf
msg = msg & "VersionNumber: " & objAntiVirusProduct.versionNumber & vbCrLf
msg = msg & vbCrLf
Next
MsgBox msg, vbInformation, "Info Antivirus"
Unload Me
End Sub



No se cargo la pelicula flash!

Por cierto tienes el source de ese juego? Que dices que es codigo libre, asi lo estudiamos aqui!

Esto es VB6.0 no .Net

Buenisimo, si hay muchas cosas fabulosas. Acá es mucho lo que puedes aprender. Saludos

Ok, te explico lo que está en el codigo...

Código (vb) [Seleccionar] Expandir


With Picture1
   'Si es mayor o igual a 0, busca la foto 1.jpg
   If val(Text7.text) >= "0" Then
      .Picture = LoadPicture("E:\1.jpg")
   Else
      'Si es negativo, busca la foto 2.jpg
      .Picture = LoadPicture("E:\2.jpg")
   End If
End With


Luego pides que te gustaría tener la imagen en objetos pictures ocultos y que se carguen desde allí, bueno la solución que te dio black es:

Agrega 2 pictures más, renombra los pictures asignados por Pic_nega y Pic_posi, luego asignales las imagenes y coloca los pictures ocultos.

Código (vb) [Seleccionar] Expandir


'Luego coloca el codigo y listo
With Picture1
   If val(Text7.text) >= "0" Then
      .Picture = Pic_nega.picture
   Else
      .Picture = Pic_posi.picture
   End If
End With


te adjunto un ejemplo que arme hace mucho tiempo y bueno me toco desempolvarlo, jaja.

Puede mejorarse, fue un requerimiento que me hicieron y lo hice así tal cual.

Bajalo aqui:  http://www.megaupload.com/?d=1GJLM7CH Ya no funka...

No se porqué razón megaupload lo desactivo... Dejame ver donde puedo subirlo... Ya posteo...

a ver desde aquí: http://www.gigasize.com/get.php?d=b8fo6cc4lqc

Yo creo que Seba y el coco publicaron algo respecto a eso... Si lo encuentro lo posteo...

Jajajaja... Buenisimo Cobein...!

Si se puede. Pero hablo que es mucho mejor hacerlo con MySQL o SQL Server.

Para ello lo mejor es usar MySQL o SQL Server. En elguille o la web del programador creo ver un ejemplo como tú lo necesitas. Cualquier cosa si lo encuentro te lo posteo.