Hallo,
Ich wollte ein Programm programmieren wo ich mehrere Bilder gleichzeitig öffnen und nachher bearbeiten kann. Im Moment will ich automatisch herausfinden welche Bilder Hoch-, Querformat oder Quadratisch sind.
Hier mein Code:
Dann kommt aber dieser Fehler: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Schonmal Danke im Vorraus :)
Ich wollte ein Programm programmieren wo ich mehrere Bilder gleichzeitig öffnen und nachher bearbeiten kann. Im Moment will ich automatisch herausfinden welche Bilder Hoch-, Querformat oder Quadratisch sind.
Hier mein Code:
Quellcode
- Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click
- OpenFileDialog1.ShowDialog()
- selectedFilesName = OpenFileDialog1.FileNames selectedFilesQuantity = selectedFilesName.Length
- For i = 1 To selectedFilesQuantity Dim j As Integer = i - 1
- selectedFilesImg.Images.Add(Image.FromFile(selectedFilesName(j)))
- If selectedFilesImg.Images.Item(j).Width > selectedFilesImg.Images.Item(j).Height Then selectedFilesFormat(j) = 1 ElseIf selectedFilesImg.Images.Item(j).Width < selectedFilesImg.Images.Item(j).Height Then selectedFilesFormat(j) = 2 ElseIf selectedFilesImg.Images.Item(j).Width = selectedFilesImg.Images.Item(j).Height Then selectedFilesFormat(j) = 0 End If
- ListBox1.Items.Add(selectedFilesFormat(j) + vbTab + selectedFilesName(j))
- Next
- End Sub
Dann kommt aber dieser Fehler: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Schonmal Danke im Vorraus :)