Abrir e Fechar Drive de "Cd's"

Option Explicit


Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
  mciSendString "Set CDAudio Door Open Wait", vbNullString, 0&, 0&
End Sub


Private Sub Command2_Click()
  mciSendString "Set CDAudio Door Closed Wait", vbNullString, 0&, 0&
End Sub

CPU usage vb2010

Public Class Form1
  Dim cpuUsage As New PerformanceCounter("Processor", "% Processor Time", "_Total")
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim timer1 As Timer = New Timer()
    timer1.Interval = 1000 '1000ms = 1s
    timer1.Enabled = True 'start timer
    AddHandler timer1.Tick, AddressOf Timer1_Tick 'add handler
  End Sub

  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    ListBox1.Items.Add(cpuUsage.NextValue)
  End Sub
End Class

Fazer PrintScreen

Para fazer isto iremos usar uma api do windows.


Primeiro criamos um module e colocamos:


Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal Flags As Long, ByVal ExtraInfo As Long)



Dentro de um botão por exemplo:
Call keybd_event(vbKeySnapshot, 0, 0, 0)
Picture1.Picture = Clipboard.GetData

Têm também de criar a Picture1 onde irá aparecer o texto.
Clipboard.GetData permite ir buscar a memoria o printscreen que será apresentado na picture1

Ler Células do Excel

Defini-se as variáveis:

Option Explicit
Dim mySheets As Object
Dim Excel_App As New Excel.Application
Dim Excel_Sheet As Excel.Worksheet

Coloca-se este código no evento de um botão por exemplo.


Excel_App.Workbooks.Open "Directorio_da_WorkSheet.xls"
Excel_App.Workbooks(1).Activate
Set Excel_Sheet = Excel_App.ActiveWorkbook.Sheets("Numero da Folha")
Excel_Sheet.Activate
MsgBox Cells("Numero da Linha", "Numero da Coluna")
Excel_App.Quit


"Numero da Folha" - Quando um documento tem várias folhas escolhe-se aqui o numero da folha(1, 2, 3, etc..)

"Numero da Linha" e "Numero da Coluna" - Onde se coloca o numero da linha e da coluna correspondente á célula que se quer.


E por ultimo temos de adicionar uma Referencia para que este código funcione. Menu "Project" -> "References..." e depois aparece uma janela com uma lista com as várias referencias que têm disponiveis, o que devem escolher tem o nome de "Microsoft Excel 11.0 Object Library"

O numero 11.0 varia de uns computadores para outros caso tenham uma versão do Office diferente.
Para o Office 2003 usa se a que esta em cima mencionada 11.0
Para o Office 2010 usa se a 14.0

Mas é fácil encontrar visto que nesta lista aparece apenas com o nome microsoft excel **.* Library.

O numero **.* depende do que tiverem instalado.