Visual Basic 6

API di Windows. Come reperire informazioni sul sistema

Posted on 24/5/2009, 15:49 by: ::PoDo::

Spesso è necessario controllare costantemente la memoria virtuale disponibile prima di una operazione, oppure spesso un'applicazione per poter funzionare ha bisogno di una quantità di memoria minima. La funzione GlobalMemoryStatus delle API fornisce lo stato della memoria attraverso la struttura MEMORYSTATUS i cui campi indicano :

* percentuale di memoria utilizzata in un determinato istante (dwMemoryLoad)
* numero totale di byte di memoria fisica installata (dwTotalPhys)
* numero totale di byte di memoria fisica disponibile (dwAvailPhys)
* dimensione massima in byte che può assumere il file di paginazione (dwTotalPageFile)
* numero di byte disponibili nel file di paginazione (dwAvailPageFile)
* numero totale di byte allocabili nel proprio spazio per indirizzi (dqAvailVirtual)

L'esempio sottostante permette di sapere il numero di MB di RAM installata :

Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Dim MemStatus As MEMORYSTATUS
GlobalMemoryStatus MemStatus
InstRAM = MemStatus.dwTotalPhys / 1048576

Se invece si desidera avere informazioni su un hard disk si può chiamare la funzione GetDiskFreeSpace delle API nel seguente modo :

Dim SectorXCluster as Long
Dim ByteXSector As Long
Dim FreeCluster As Long
Dim TotalCluster As Long
Dim FreeSpace As Long
GetDiskFreeSpace "C:" SectorXCluster, ByteXSector, FreeCluster, TotalCluster

Read the whole post...

Tags:: Tutorial

Comments: 1 | Views: 56

Last Post by: aboriamma (25/7/2009, 03:54)

Rendere Grafica come XP

Posted on 24/5/2009, 12:04 by: ::PoDo::

Iniziamo clikkando due volte sul form e inserendo questo codice:

CODICE

Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long

Private Sub Form_Initialize()
Dim x As Long
x = InitCommonControls
End Sub

Poi dopo aver fatto l'exe apriamo il blocco note e scriviamo:

CODICE

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="1.0.0.0"
processorArchitecture="X86"
name="CompanyName.ProductName.YourApp"
type="win32"
/>
<description>Your application description here.</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="X86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>

E salviamolo cosi "NomeProgetto.exe.manifest" senza apici.

Logicamente si sostituisce NomeProgetto con il nome del vostro programma!

Ed ecco fatto.

Solitamente avviene un problema con i frame perche quando si mette un commandbutton sopra esso si vede male quindi io consiglio di mettere una picture box seza bordi e poi mettere il resto sopra..

Guida By ::PoDo::

Copiate ma mettete i crediti ^_^

Tags:: Tutorial

Comments: 0 | Views: 55

Last Post by: ::PoDo:: (24/5/2009, 12:04)

Tutorial Creare un Media Player

Posted on 24/5/2009, 11:54 by: ::PoDo::

In questo tutorial spiegherò come fare un Media Player.

Mettere questi componenti:

"Microsoft Common Dialog"
"Windows Media Player"

Dopo averli inseriti create un comand button e mettete questo codice:

CODICE

Commondialog1.ShowOpen
windowsmediaplayer1.URL = (Commondialog1.FileName)
Commondialog1.Filter = "|MP3|*.mp3|"

By ::PoDo::

Tags:: Tutorial

Comments: 0 | Views: 71

Last Post by: ::PoDo:: (24/5/2009, 11:54)

Vb6 tutorial Radio

Posted on 24/5/2009, 11:53 by: ::PoDo::

Tags:: Tutorial

Comments: 0 | Views: 236

Last Post by: ::PoDo:: (24/5/2009, 11:53)

Menu Con Immagini

Posted on 24/5/2009, 11:52 by: ::PoDo::

In questo tutorial insegnero' ad inserire delle immagini .bmp (bitmap)
di dimensioni massime 13 x 13 nelle voci dei menu'.
Allora, creiamo un nuovo progetto e inseriamo nel form quattro
controlli PictureBox nei quali inseriamo 4 bitmaps 13 x 13. Accediamo
All 'Editor di Menu' (cliccate col tasto destro sul form e premete
Editor di menu'...) e inserite i seguenti menu':
Menu ' numero 1
Sottomenu ' numero 1
Sottomenu ' numero 2
Menu ' numero 2
Sottomenu ' numero 1
Sottomenu ' numero 2
Poi dichiariamo le funzioni e le costanti per inserire le immagini nei
Menu ':
Codice sorgente

CODICE

Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal
hMenu As Long, _
ByVal uPosition As Long, ByVal uFlags As Long, ByVal hBitmapUnchecked _ As Long, ByVal hBitmapChecked As Long) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPos As Long) As Long
Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As
Long, _
ByVal nPos As Long) As Long
Private Const MF_BITMAP As Long = &H1

Inseriamo poi il seguente codice:
Codice sorgente

CODICE

Private Sub Form_Load()
Menu = GetMenu(Me.hwnd)
' Inserisce nel primo sottomenu' del primo menu' l'immagine contenuta nella Picture1
sMenu = GetSubMenu(Menu, 0)
ID = GetMenuItemID(sMenu, 0)
SetMenuItemBitmaps Menu, ID, MF_BITMAP, Picture1.Picture, Picture1.Picture
' Inserisce nel secondo sottomenu' del primo menu' l'immagine contenuta nella Picture2
sMenu = GetSubMenu(Menu, 0)
ID = GetMenuItemID(sMenu, 2)
SetMenuItemBitmaps Menu, ID, MF_BITMAP, Picture2.Picture, Picture2.Picture
' Inserisce nel primo sottomenu' del secondo menu' l'immagine contenuta nella Picture3
sMenu = GetSubMenu(Menu, 1)
ID = GetMenuItemID(sMenu, 0) SetMenuItemBitmaps Menu, ID, MF_BITMAP, Picture3.Picture, Picture3.Picture
' Inserisce nel secondo sottomenu' del secondo menu' l'immagine contenuta nella Picture4
sMenu = GetSubMenu(Menu, 1)
ID = GetMenuItemID(sMenu, 1)
SetMenuItemBitmaps Menu, ID, MF_BITMAP, Picture4.Picture, Picture4.Picture
End Sub

Ed ecco i nostri menu' abbelliti...

Fonte: Pierotofy.it

Tags:: Tutorial

Comments: 0 | Views: 48

Last Post by: ::PoDo:: (24/5/2009, 11:52)

Far ripetere un codice con un ciclo for

Posted on 24/5/2009, 11:50 by: ::PoDo::

inserite questo codice per ripetere un codice

CODICE

Private Sub Command1_Click ()
For a = i To 10 ' riga per ripetere
MsgBox "aaaaa"
Next a ' riga per far ritornare alla prima riga
End Sub

però possiamo fare anche cosi', in modo da
poter far ripetere il codice tante volte quanto c'è scritto in una
textbox

CODICE

Private Sub Command1_Click ()
For a = i To Text1.Text ' riga per ripetere
MsgBox "aaaaa"
Next a ' riga per far ritornare alla prima riga
End Sub

By Moon

Tags:: Tutorial

Comments: 0 | Views: 65

Last Post by: ::PoDo:: (24/5/2009, 11:50)

Tutorial Fare una linea sul form

Posted on 24/5/2009, 11:47 by: ::PoDo::

In questo tutorial vi spieghero come premendo un pulsante potrete fare una linea sul form!

Basta mettere un "Comand Button"

E mettere questo codice:

CODICE

Form1.Line (20, 10)-(400, 300)

Ora spieghiamo il codice:

Allora Form1.Linea serve a tracciare una linea.
I numeri tra parentesi sono le coordinarte..
By :: PoDo::

Tags:: Tutorial

Comments: 0 | Views: 55

Last Post by: ::PoDo:: (24/5/2009, 11:47)

[VB6] Msgbox

Posted on 24/5/2009, 11:45 by: ::PoDo::

Msgbox

Allora il procedimento è semplicissimo!
Inserite un commandbutton nel form successivamente fate doppio click e il codice da inserire è il seguente:

CODICE

Msgbox ("Inserisci il tuo messaggio")

Ma ora andiamo a vedere nello specifico questa funzione.

Possiamo anche decidere di fare il Msgbox come un messaggio critico, un esclamazione, domanda ecc...
Per esempio se vogliamo che il messaggio sia critico mettiamo

CODICE

MsgBox ("Inserisci il tuo messaggio"), vbCritical

Se vogliamo sia un informazione mettiamo

CODICE

MsgBox ("Inserisci il tuo messaggio"), vbInformation

Se vogliamo sia un esclamazione mettiamo

CODICE

MsgBox ("Inserisci il tuo messaggio"), vbExclamation

Se vogliamo sia una domanda mettiamo

CODICE

MsgBox ("Inserisci il tuo messaggio"), vbQuestion

Poi ci sono anche altre funzioni tipo per far uscire i pulsanti Si e No si mette alla fine

CODICE

vbYesNo

Se vogliamo escano i pulsanti Ignora Prosegui e Termina mettiamo

CODICE

vbAbortRetryIgnore

Se volete unire le varie funzioni utilizzate "+" per esempio

CODICE

MsgBox ("Inserisci il tuo messaggio"), vbYesNoCancel + vbExclamation

Ci sono tanti tipi di codici per modificare il msgbox infatti quando poi metterete la virgola
uscirà una piccola lista con dei suggerimenti, divertitevi a provarli!!

Per modificare il nome del Msgbox invece

Read the whole post...

Tags:: Tutorial

Comments: 0 | Views: 236

Last Post by: ::PoDo:: (24/5/2009, 11:45)

[VB6] Shell

Posted on 24/5/2009, 11:44 by: ::PoDo::

La funzione shell serve per aprire un determinato file presente sul nostro hard disk, solo file eseguibili (.exe). Per esempio se vogliamo aprire il Notepad inseriamo questo codice:

CODICE

Shell ("C:WINDOWSsystem32notepad.exe")

Quindi se volete aprire un altro file vi basterà cambiare il percorso ^_^

Inoltre dopo il codice mettete una virgola "," vi uscirà una piccola finestrella sotto dove scegliere varie opzioni.
I codici sono:

CODICE

vbHide

CODICE

vbMaximizedFocus

CODICE

vbMinimizedFocus

CODICE

vbMinimizedNoFocus

CODICE

vbNormalFocus

CODICE

vbNormalNoFocus

Per aprire i file che si trovano nella directory di Windows e system32 è sufficente mettere solo il nome
per esempio:

CODICE

Shell "Notepad"

Per il BloccoNote

CODICE

Shell "cmd"

Per aprire il prompt dei comandi

Semplicissimo! :woot:

Guida by Er Mantovano95, si ringrazia ~A s k` per ulteriori informazioni a riguardo.

Tags:: Tutorial

Comments: 0 | Views: 70

Last Post by: ::PoDo:: (24/5/2009, 11:44)

Creare Calcolatrice

Posted on 24/5/2009, 11:41 by: ::PoDo::

Aggiungete quattro textbox, chiamatele la prima "txtNumberOne" senza apici la seconda "txtNumberTwo" senza apici e la terza
"txtSimbol" senza apici e la quarta "txtResult" senza apici, ora aggiungete un Command e chiamatelo "cmdCalcolate" senza apici e come caption mettetegli "Calcola" senza apici ...ora
ora a calcola mettete questo codice:

CODICE

Dim a As String
Dim b As String
Dim c As String
Dim d As String
a = txtNumberOne.Text
b = txtNumberTwo.Text
c = txtSimbol.Text
d = txtResult.Text
If c = "x" Then
d = a * b
ElseIf c = "+" Then
d = a + b
ElseIf c = "-" Then
d = a - b
ElseIf c = ":" Then
d = a / b
End Ifb

Guida by BloodMoon

Tags:: Tutorial

Comments: 0 | Views: 71

Last Post by: ::PoDo:: (24/5/2009, 11:41)