Mostrar Mensajes
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Private Sub txt_MOSTRAR_FECHA_TextChanged(sender As System.Object, e As System.EventArgs) Handles txt_MOSTRAR_FECHA.TextChanged
Dim datos() As String
'CON ESTO SEPARAMOS LA HORA DE LA FECHA
datos = Split(REGISTRO_TABLA, " ")
'DATOS(0) CONTIENE LA FECHA
'DATOS(1) CONTIENE LA HORA
txt_MOSTRAR_FECHA.TEXT = datos(0)
End Sub
===================================================================================================================
EN EL FORM - UN BOTON Y UN LABEL
===================================================================================================================
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim CPU As String
CPU = GetWmiDeviceSingleValue("Win32_Processor", "ProcessorID")
Label1.Text = CPU
End Sub
===================================================================================================================
EN UN MODULO
===================================================================================================================
Private m_mainWmi As Object
Private m_deviceLists As Collection
Private Function GetMainWMIObject() As Object
On Error GoTo eh
If m_mainWmi Is Nothing Then
m_mainWmi = GetObject("WinMgmts:")
End If
GetMainWMIObject = m_mainWmi
Exit Function
eh:
GetMainWMIObject = Nothing
End Function
Public Function WmiIsAvailable() As Boolean
WmiIsAvailable = CBool(Not GetMainWMIObject() Is Nothing)
End Function
Public Function GetWmiDeviceSingleValue(ByVal WmiClass As String, ByVal WmiProperty As String) As String
On Error GoTo done
Dim result As String
Dim wmiclassObjList As Object
wmiclassObjList = GetWmiDeviceList(WmiClass)
Dim wmiclassObj As Object
For Each wmiclassObj In wmiclassObjList
result = CallByName(wmiclassObj, WmiProperty, vbGet)
Exit For
Next
done:
GetWmiDeviceSingleValue = Trim(result)
End Function
Public Function GetWmiDeviceList(ByVal WmiClass As String) As Object
If m_deviceLists Is Nothing Then
m_deviceLists = New Collection
End If
On Error GoTo fetchNew
GetWmiDeviceList = m_deviceLists.Item(WmiClass)
Exit Function
fetchNew:
Dim devList As Object
devList = GetWmiDeviceListInternal(WmiClass)
If Not devList Is Nothing Then
Call m_deviceLists.Add(devList, WmiClass)
End If
GetWmiDeviceList = devList
End Function
Private Function GetWmiDeviceListInternal(ByVal WmiClass As String) As Object
On Error GoTo eh
GetWmiDeviceListInternal = GetMainWMIObject.Instancesof(WmiClass)
Exit Function
eh:
GetWmiDeviceListInternal = Nothing
End Function
???