jeg skal have lavet et Diasshow

Nå du siger et diasshow - så hører jeg det som at du vil bruge Power Point til det, er det korrekt?

VH CK

Ikke helt... Faktisk overhovedet ikke... Jeg skal lave mit EGET DiasShow-Program i VB

Du skal bruge en timer og en picturebox
og inde i den timer skal du så ha følgende:
Dim i as Integer
i = 1

Picture1.Loadpicture("pics/dias" & i & ".jpg")
i = i + 1

hov den dim og i = 1 skal uden for timeren f.eks. i Form_Load()

2 sec får lige lavet det hele :)

Du skal bruge:
1 FileListBox
1 PictureBox
1 Timer

og du skal lave en undermappe der hedder pics i den mappe du gemmer dit program

Og her er koden så :)

Dim i As Integer

Private Sub Form_Load()
File1.Path = App.Path & "\pics"
File1.Visible = False
j = File1.ListCount
i = 1
Picture1.Picture = LoadPicture(App.Path & "\pics\dias" & i & ".jpg")
i = i + 1
End Sub

Private Sub Timer1_Timer()
If i < j Then
    Picture1.Picture = LoadPicture(App.Path & "\pics\dias" & i & ".jpg")
    i = i + 1
ElseIf i = j Then
    i = 1
    Picture1.Picture = LoadPicture(App.Path & "\pics\dias" & i & ".jpg")
    i = i + 1
End If
End Sub

husk når du sætter timer tiden så er det milisekunder

og skal den kun kører igennem en gang så er det sådan her:

Dim i As Integer

Private Sub Form_Load()
File1.Path = App.Path & "\pics"
File1.Visible = False
j = File1.ListCount
i = 1
Picture1.Picture = LoadPicture(App.Path & "\pics\dias" & i & ".jpg")
i = i + 1
End Sub

Private Sub Timer1_Timer()
If i < j Then
    Picture1.Picture = LoadPicture(App.Path & "\pics\dias" & i & ".jpg")
    i = i + 1
ElseIf i = j Then
    Picture1.Picture = LoadPicture(App.Path & "\pics\dias" & i & ".jpg")
    Timer1.Enable = False
End If
End Sub

hvis du vil sætte timer intervallet i koden skal du tilføje følgende under form_load():

Timer1.Interval = 5000 'Det er 5 sekunder

og vil du ha en knap til at sætte det igang tilføjer du en command button

og så skal der tilføjes i form_load()
Timer1.Enable = False

og ved Command1_Click()
Timer1.Enable = True
i = i + 1
Picture1.Picture = LoadPicture(App.Path & "\pics\dias" & i & ".jpg")
End Sub

Går ud fra Dias1 er sådan en med navn og sådan noget så den er der når programmet startes :)

Hej.

Jeg har engang lavet sådan et program, det kan hentes fra http://jkfsoft.dk/visbill.htm  det er freeware.  Kildekoden kan hentes fra http://jkfsoft.dk/pakker/visbill8.zip

Pakken er ikke seneste version, men der er nok noget du kan bruge.  Det er lavet med VB5.

M.v.h.  Jørn

Hej.

Fik du godkendt dit projekt?  Du er nok ved at rydde op i gamle, udestående spørgsmål.  Tak for point.

M.v.h.  Jørn