Dare impulso ad una Progressbar

[Adrix]

Io ho questo codice che dà impulso ad una progressbar che viene caricata in basso nella status bar. Io vorrei solo che non venga caricata nella status bar come nel codice che segue. Potreste correggermelo?

Option Explicit
Dim Action As String
Dim WinState As Integer
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function SendMessageAny Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Const WM_USER As Long = &H400
Private Const SB_GETRECT As Long = (WM_USER + 10)

Private Sub ShowProgressInStatusBar(ByVal ShowBar As Boolean)

Dim tRC As RECT

If ShowBar Then

SendMessageAny StatusBar1.hwnd, SB_GETRECT, 2, tRC
With tRC
.Top = (.Top * Screen.TwipsPerPixelY)
.Left = (.Left * Screen.TwipsPerPixelX)
.Bottom = (.Bottom * Screen.TwipsPerPixelY) - .Top
.Right = (.Right * Screen.TwipsPerPixelX) - .Left
End With

With ProgressBar1
SetParent .hwnd, StatusBar1.hwnd
.Move tRC.Left, tRC.Top, tRC.Right, tRC.Bottom
.Visible = True
.Value = 0
End With

Else

SetParent ProgressBar1.hwnd, hwnd
ProgressBar1.Visible = False

End If


End Sub

Private Sub Command1_Click()
ShowProgressInStatusBar True

Dim i As Integer
For i = 1 To ProgressBar1.Max
ProgressBar1.Value = i
Next
End Sub


Ciao
Adrix

[chipdb]

Originariamente inviato da Adrix
Io ho questo codice che dà impulso ad una progressbar che viene caricata in basso nella status bar. Io vorrei solo che non venga caricata nella status bar come nel codice che segue. Potreste correggermelo?

Puoi spiegare cosa intendi? Esiste il controllo ProgressBar per farla "fuori" dalla StatusBar... :master:

Ciao

[JamesD]

Devi aggiungere i common controls ai componenti. Li dentro trovi il controllo progress bar.

[plrmntonio]

io mi sono copiato il comando x farla partire ma va troppo veloce come faccio a rallentare la velocità del progresso?(sapete devo fare uno skerzetto tipo quelli ke formattano l'hard disk:quote: :quote: )

[chipdb]

Originariamente inviato da plrmntonio
io mi sono copiato il comando x farla partire ma va troppo veloce come faccio a rallentare la velocità del progresso?(sapete devo fare uno skerzetto tipo quelli ke formattano l'hard disk:quote: :quote: )

A parte che non si fanno simili scherzetti

Comunque sia ti conviene farlo in Pascal o in C che vanno da DOS ed è molto più convincente! :gren: :gren:

Ciao

[sebamix]

Originariamente inviato da plrmntonio
io mi sono copiato il comando x farla partire ma va troppo veloce come faccio a rallentare la velocità del progresso?(sapete devo fare uno skerzetto tipo quelli ke formattano l'hard disk:quote: :quote: )

Aggiungi qualche chiamata all'API sleep

[plrmntonio]

Originariamente inviato da chipdb
A parte che non si fanno simili scherzetti

Comunque sia ti conviene farlo in Pascal o in C che vanno da DOS ed è molto più convincente! :gren: :gren:

Ciao

EH? API(ERG, ESSO, basta con la pubblicità occulta)? cmq io ho copiato il cod. xkè ci capisco poco e niente di VB, se mi puoi aiutare?

x chipdb: no continuerò col farlo in VB