blok kan niet verder dan -7 of +7

[tapeman]

Ik wil met buttons het gele blokje met stappen van 1 baar links of naar rechts verschuiven. Het verschuiven lukt me wel maar het blokje mag niet verder dan -7 of +7.

Kan iemand me helpen?

Alvast bedankt Tapeman

 

[fcwiv]

idee,
Stel de naam van de blok is BLOK en startpositie is BLOK.left=100

sub left_click()
BLOKL.left=BLOKL.left-1
if BLOKL.left<94 then
BLOKL.left=93
end if

end sub

sub right_click()
BLOKL.left=BLOKL.left+1
if BLOKL.left>106 then
BLOKL.left=107
end if

end sub

 

[tapeman]

Hoe stel ik de startpositie in??

 

[Wigi]

Hoe stel ik de startpositie in??

Dat hoef je toch niet te weten?

BLOKL.left aan de rechterkant van een = teken haalt dat zelf op (en doet daarna + of - 1).

 

[tapeman]

bij deze regel
BLOKL.Left = BLOKL.Left + 1
geeft hij al gelijk een foutmelding

 

[fcwiv]

zou je die bestand willen opsturen?

 

[fcwiv]

zie dit

 

[tapeman]

Aan een userform heb ik niets Wat ik wil is het plaatje wat ik bij mijn vraag heb bijgevoegd het gele blokje naar links of rechts laten verschuiven

 

[tapeman]

Ik heb het zelf opgelost dus sorry dat ik jullie tijd heb misbruikt wat ik heb gedaan is het volgende (je weet maar nooit of mensen misschien eens ook zoiets willen)

Sub naar_links()
'
' naar_links
'
   Dim i As Integer
   Dim y As Integer
   x = Range("O10").Value
   i = Range("O9").Value
   Range("O9").Select
  ActiveCell.FormulaR1C1 = (ActiveCell)
  x = x - 1
  Range("O10").Value = x
  i = i - 16
  If x <= -8 Then i = 0
  If x = -9 Then x = -8
  Range("O10").Value = x
    ActiveSheet.Shapes("Rectangle 14").Select
    Selection.ShapeRange.IncrementLeft i
   
End Sub
Sub naar_rechts()
'
' naar_rechts

   Dim i As Integer
   Dim y As Integer
   x = Range("O10").Value
   i = Range("O9").Value
   Range("O9").Select
  ActiveCell.FormulaR1C1 = (ActiveCell)
  x = x + 1
  Range("O10").Value = x
  i = i + 16
  If x >= 8 Then i = 0
  If x = 9 Then x = 8
  Range("O10").Value = x
    ActiveSheet.Shapes("Rectangle 14").Select
    Selection.ShapeRange.IncrementLeft i
   
End Sub

Alsnog bedankt

Tapeman

 

[fcwiv]

De userform was alleen bedoeld om een voorbeeld te geven.