Værdi +1

Hvad mener du med at lave gøre den et tal større?

Hvis picture1.picture er lig 1 skal den nu være lig 2!

Så kan du vel bruge:
Picture1.Tag = Picture1.Tag + 1

Det troede jeg også, som du kan se i mit spm. men nej!

Hvad er det du vil med det?

vil du lave billede større eller hvad?

Nej, det skal skifte fra billed 1 til billede 2!

Prøv sådan:

Private Sub Command1_Click()
Dim lVal As Integer

Picture1.Tag = CStr(9)

lVal = Val(Picture1.Tag)
lVal = lVal + 1

Picture1.Tag = CStr(lVal)

MsgBox Val(Picture1.Tag)
End Sub

Har du Prøvet med Index:


Sub Skift(Index As Integer)
  Picture1.Picture = Picture1(Index).Picture
End Sub

Private Sub Command1_Click()
Call Skift(5)
End Sub

Skift skulle se sådan ud.

Sub Skift(Index As Integer)
  Picture1.Picture = Picture2(Index).Picture
End Sub

Glem det med at det skal skifte!!!

Jeg skal bare have 1 til at blive 2 osv. Det er pære enkelt!

Når, du vil loade object.

Private Sub Command1_Click()
'hvis du vil fjærne dem igen
  For i = 1 To Picture1.Count - 1
    Unload Picture1(i)
  Next i
End Sub

Private Sub Form_Load()
'Indset 1 PictureBox  og en CommandButton.
'Set Picture1.Index til 0 Kør så koden.
Picture1(0).Width = 480
Picture1(0).Height = 480
Picture1(0).Top = 0
Picture1(0).Left = 0
  For i = 1 To 5
    Load Picture1(i)
    Picture1(i).Top = 0
    Picture1(i).Left = 500 * i + 1
    Picture1(i).Visible = True
  Next i
End Sub

Prøv at læse mine indlæg næste gang!!!

Det er et ret uforståeligt spørgsmål, jeg ville have forstået det ligesom sjh.

Helt ærligt, supercooler - du stiller et meget vagt formuleret spørgsmål, får en masse gode svar, og så vrisser du af svarene. "Prøv at læse mit indlæg næste gang"... Ja, men det hjælper ikke, når du ikke kan skrive præcist hvad du ønsker...

Hvad er det du ikke kan finde ud af? Jeg synes da at sjh's svar må være lige det du mangler - det du har brug for er kommandoen loadpicture, og ikke nok med at du har fået foræret den, du har også fået et fint eksempel med dens anvendelse.

Så kom igen, og forklar bedre, hvad du ønsker ;o)

/Martin

Han vil gøre et tal en gang større.
Fx. 4 bliver til 5
Fx. 47.832 bliver til 47.833

Nu kender jeg ikke meget til VB-script så jeg kan desvære ikke hjælpe.

Jeg synes at følgende sætning forklare det meget godt.

"Jeg skal bare have 1 til at blive 2 osv."

Det synes jeg bestemt ikke - du skal have en til at blive to.....?
1 kan aldrig blive 2 i ren matematisk forstand, så jeg regner med, at du mener at du har en variabel, der har værdien 1, som skal ændres til at have værdien 2.

Her er et eksempel, hvis du skal lægge 1 til din variabel flere gange:

Dim i As Integer, AntalGange As Integer
AntalGange = 5 'Dvs. ligger 1 til i 5 gange
For i = 1 to AntalGange
  'kode
Next i

eller blot så simpelt som følgende, hvis i blot skal vokse en enkelt gang:

i = i + 1

I dit spørgsmål skriver du noget meget forvirrende om Picture1.Picture - det er jo ikke en variabel, og med sætningen Picture1.Picture = ... vil de fleste forstå, at du vil loade et nyt billede ind i Picture1. Er det det du vil?

Det er det du har fået en masse svar på efterhånden...

Håber du kan bruge ovenstående. Hvis ikke, så brug mere end blot en sætning til at forklare dit problem ;o)

Det var det som du skrev som jeg skulle bruge: i = i + 1

Bare hvor i er Picture1.Picture men som jeg skrev i starten virkede det ikke. Så skrev sjh at jeg bare kunne gøre det som jeg allerede havde skrevet ikke virkede.

Det er nu ikke helt rigtigt  - du skriver .Picture, sjh skriver .Tag

Der er jo ikke nogen points i det her spørgsmål mere, så jeg dropper ud nu. Du skal bare vide, at Picture1.Picture ikke er en variabel som f.eks. "i" er det i mit eksempel. At du skriver .Picture har forvirret vistnok alle dem der har svaret på dit spørgsmål, inkl. mig selv ;o)

Håber du kan komme videre nu. /Martin