satriano17
Gebruiker
- Lid geworden
- 30 sep 2012
- Berichten
- 331
Dag
Ik wou een mijn oud programma aanpassen/uitbtreiden
ik heb een timer
een shape (in de picturebox)
een picture box
Als de timer op enabled zet dan zakt een bar (orizz shape) naar beneden
en komt terug naar boven. Zoals een scanner. Zolang de timer op enabled staat.
Alles werkt goed
Ik wou nu ook een vertikaal bar willen toevoegen, die zou van links naar rechts e terug. Dus ik zou een orizz + een vert bar hebben.
Ik heb geprobeerde te aanpassen maar ik kom niet uit.
dank u
Hier mijn code (van de horizz bar)
Ik wou een mijn oud programma aanpassen/uitbtreiden
ik heb een timer
een shape (in de picturebox)
een picture box
Als de timer op enabled zet dan zakt een bar (orizz shape) naar beneden
en komt terug naar boven. Zoals een scanner. Zolang de timer op enabled staat.
Alles werkt goed
Ik wou nu ook een vertikaal bar willen toevoegen, die zou van links naar rechts e terug. Dus ik zou een orizz + een vert bar hebben.
Ik heb geprobeerde te aanpassen maar ik kom niet uit.
dank u
Hier mijn code (van de horizz bar)
Code:
Option Explicit
Private Const n_passages As Long = 100
Private Const n_Interval As Long = 30
Private n_Step As Double
Private n_positie As Double
Private n_multiplier As Long
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
inisialisatie
n_Step = Picture1.Height / n_passages
Timer1.Interval = n_Interval
End Sub
Private Sub inisialisatie()
With Shape1
Set .Container = Picture1
.BackStyle = 1
.BackColor = vbBlack
.Height = 30
.Width = Picture1.Width
.Top = 0
.Left = 0
End With
n_positie = 0
n_multiplier = 1
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
n_positie = n_positie + (n_Step * n_multiplier)
If n_positie > Picture1.Height Then n_multiplier = -1
If n_positie < 0 Then n_multiplier = 1
Shape1.Top = CLng(n_positie)
End Sub
Laatst bewerkt: