Jag gör ett blomsterarkiv, men jag skulle vilja ha hjälp med hur jag gör för att få fram bilderna (de ligger i en särskild katalog), så att när jag byter blomma så vill jag att rätt bild ska visas.

Hoppas att ni förstå vad jag menar.

MVH
Unka

Så här gör du för att ladda en bild till en Imagebox:

Image1.Picture = LoadPicture(sökväg) 'Inom paranteserna ska du skriva sökvägen till filen som du ska ladda in i Imageboxen.


Hoppas det var så här du menade.
//Petter

Men då blir det väl samma bild hela tiden?

Jag vill att när jag går vidare till nästa blomma så ska den bilden visas.

Men du får göra så att den laddar olika blommor varje gång...
//Petter

Litet exempel på hur man kan göra:
<code>
Option Explicit
Option Compare Text

Private mIndex As Long
Private mFiles As Collection

Private Sub ShowPicture(Index As Long)
Dim File As Scripting.File
On Error GoTo ShowPicture_Err
Select Case Index
Case 1 To mFiles.Count
Set File = mFiles(Index)
Set Image1.Picture = LoadPicture(File.Path)
Case Else
Set Image1.Picture = New StdPicture
End Select
cmdPrevious.Enabled = (Index > 1)
cmdNext.Enabled = (Index < mFiles.Count)
Label1.Caption = Index & "/" & mFiles.Count
mIndex = Index

ShowPicture_Exit:
Exit Sub

ShowPicture_Err:
Select Case Err.Number
Case Else
MsgBox Err.Description, vbExclamation, "ShowPicture: " & Err.Source, Err.HelpFile, Err.HelpContext
Resume ShowPicture_Exit
End Select
End Sub

Private Sub cmdNext_Click()
ShowPicture mIndex + 1
End Sub

Private Sub cmdPrevious_Click()
ShowPicture mIndex - 1
End Sub

Private Sub Form_Load()
Dim FSO As Scripting.FileSystemObject
Dim File As Scripting.File
Dim Folder As Scripting.Folder
Set mFiles = New Collection

Set FSO = New Scripting.FileSystemObject
Set Folder = FSO.GetFolder("c:\Windows")

For Each File In Folder.Files
Select Case FSO.GetExtensionName(File.Name)
Case "bmp", "gif", "jpg" ', "wmf", "emf", "ico", "cur","rle"
mFiles.Add File
End Select
Next
ShowPicture 1
End Sub


</code>
OBS! Du måste lägga till referens till Microsoft Scripting Runtime.

Jag var hemma hos min dotter, och hjälpte henne med sitt lilla problem:

<code>
Dim strBild As String
strBild = "C:\Program\Ord\VB\Projekt\BlomArkivet\BILD\SMALL\"
SQL = "Select * FROM vaxter WHERE NAMN = '" & List1.Text & "'"
Set rs = con.Execute(SQL)
If rs.EOF Or IsNull(rs("Bild")) Then
strBild = strBild & "SMALL.GIF"
Else
strBild = strBild & rs("Bild")
End If
Image1.Picture = LoadPicture(strBild)
</code>
Hon hade alltså sparat namnet på bilderna i en databas, och när man sedan i en listbox klickade på namnet, så skulle bilden dyka upp.
SAW

:)