title image


Smiley nimm eine...
Textbox, dort klemmst Du ein Image mit der Breite 0 rein

und ziehst es in Abhängigkeit vom Prozess auf ... Das Klassenmodul hier habe ich mal dafür geschrieben, funktioniert einwandfrei ..



Andreas







Option Explicit

' Version 1.1





Dim iterationen& ' Anzahl der Durchläufe, die 100% entsprechen

Dim internal_counter& ' interne Zähler

Dim Balken As Control

Dim P_Frame As Control

Dim P_Message As Control



Public Property Get Max_Wert() As Long

Max_Wert = iterationen

End Property



Public Sub init_progressbar(it&, frm_bar As Control, frm_img As Control, frm_frame As Control, _

init_message$)

iterationen = it

internal_counter = 0 ' interne Zähler wird zurückgesetzt

frm_img.Width = 0

frm_frame.Visible = True

Set P_Frame = frm_bar

Set Balken = frm_img

Set P_Message = frm_frame

End Sub



Public Sub step_one(msg$)



P_Message.Caption = msg

DoEvents

Balken.Width = (P_Frame.Width / 100) * (internal_counter / iterationen * 100)

internal_counter = internal_counter + 1

End Sub





Public Sub step_dictance(schrittweite&, msg$)

DoEvents

P_Message.Caption = msg

If internal_counter >= iterationen Then Exit Sub

internal_counter = schrittweite

Balken.Width = (P_Frame.Width / 100) * (internal_counter / iterationen * 100)



End Sub



Public Sub end_of_progressbar()

P_Frame.Visible = False

End Sub





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: