Hallo nochmal ,
Ich krieg es einfach nicht auf den Schirm. File search hab ich jetzt denk ich kapiert.
So jetzt hab ich die ganzen GIF Dateien in einer ImageList. Wie schaufel ich jetzt das ganze in die einzelnen Images.
Ich füg mal mein Prog an, in dem der Button pro click ein neues Image kreiert.
Sub Globals
'Declare the global variables here.
Dim z_ArrL
Dim zw_z_ArrL
anzArrL = 0
x=0
y=0
i=0
a=0
End Sub
Sub App_Start
Form1.Show
z_ArrL=0
zw_z_ArrL=0
FileSearch(ArrayList1,AppPath,"*.gif")
anzArrL=ArrayList1.Count
Do While z_ArrL < anzArrL
ImageList1.Add(ArrayList1.Item(z_ArrL))
Listbox1.Add(ArrayList1.Item(z_ArrL))
z_ArrL=z_ArrL+1
Loop
textbox1.Text = anzArrL
End Sub
Sub Button1_Click
If i <= anzArrL-1 Then
i=i+1
image = "Image"&i
Image = StrRemove (Sender image,0,7)
AddImage ("Form1", Image, x,y,16,16)
combobox1.Add(Image)
image.image = ArrayList1.Item(z_ArrL))
If a <= anzArrL-1 Then a=a+1
x=x+16
If x = 160 Then
y=y+16
x=0
End If
End If
End Sub
Ich bau mir eine Variable Image (die laut Combobox auch "Image1,image2,image3, usw heißt. Schön und gut aber es kommt die Fehlermeldung : Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Es liegt höchst wahrscheinlich an der Variable Image, die ich da so nicht verwenden kann. Aber wie kann ich das lösen.
MfG
Bernd