Descargando, Siempre es bueno conseguir un ejemplo en Google Code. Gracias, Lo Revisaré.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPublic Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim searcher As New ManagementObjectSearcher( _
"root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
For Each queryObj As ManagementObject In searcher.Get()
Dim temp As Double = CDbl(queryObj("CurrentTemperature"))
temp = (temp - 2732) / 10.0
MessageBox.Show(temp.ToString)
Next
Catch err As ManagementException
MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
End Try
End Sub
End Class
Public Function ejemplo(ByVal ParamArray notas() As Integer) As Integer
Return notas.Average
End Function
[Spanish]
Button1=Presioname
Form1=Programa de Ejemplo
MessageBox1=Este es un mensaje
[English]
Button1=Push Me
Form1=Example Program
MessageBox1=This is a message