foto viewer

Status
Niet open voor verdere reacties.
Pizara zei:
Met zoiets kom je er wel..

Code: 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Drives() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives()
        Dim File As System.IO.File = Nothing
        For Each Drive In Drives

            If Drive.DriveType = IO.DriveType.Removable Then
                If System.IO.File.Exists(Drive.Name & "1.jpg") = True Then
                    MsgBox("Found your file on " & Drive.Name, MsgBoxStyle.OkOnly)
                End If
            End If
        Next

    End Sub

Hij zet alle drives in een array.. en kijk dan of de drive een removable drive is. Zo-ja kijk dan of op de drive een 1.jpg file te vinden is. Als dat weer met ja wordt beantwoord, laat dan een msgbox( found your file on ....) zien.
Klik om te vergroten...

hier was ik dus nooit op gekomen .
was al heel de tijd aan het zoeken op google .
heb wel die tip van u geprobeert en de letter van de drive aangepast , dat is leuk om te weten hoe ik dat kan aanpassen.
ik ga nu deze manier eens proberen :-)
ik krijg de indruk dat u wel een expert bent in programeren .
nogmaals bedankt voor al u hulp .
ik ga het nu eens allemaal uitproberen , ik zal u laten weten wanneer ik klaar ben
 
Pizara zei:
Met zoiets kom je er wel..

Code: 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Drives() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives()
        Dim File As System.IO.File = Nothing
        For Each Drive In Drives

            If Drive.DriveType = IO.DriveType.Removable Then
                If System.IO.File.Exists(Drive.Name & "1.jpg") = True Then
                    MsgBox("Found your file on " & Drive.Name, MsgBoxStyle.OkOnly)
                End If
            End If
        Next

    End Sub

Hij zet alle drives in een array.. en kijk dan of de drive een removable drive is. Zo-ja kijk dan of op de drive een 1.jpg file te vinden is. Als dat weer met ja wordt beantwoord, laat dan een msgbox( found your file on ....) zien.
Klik om te vergroten...

als ik dat stukje code gebruik moet ik dan
PictureBox1.Load("M:\" & Array(Position) & ".jpg")

dat ook niet wijzigen ?
 
weer probs

Ik probeer nu foto's uit die map resources te laten zien in een picturebox.
Heb al verschillende manieren die ik via google gevonden heb getest maar geen enkele werkt.
Code: 
Public Class Form5
    Dim Position As Integer

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Position -= 1
        If Position < 0 Then Position = 5
        PictureBox1.Image = My.Resources.zuiver1

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub
End Class
de bedoeling is dat telkens wanneer ik op de knop volgende klick de volgende foto in de picturebox komt.
de foto's heb ik met copy/paste in de map resources gezet.
 
heb de volgende code eens getest maar nu krijg ik de melding dat 0.jpg niet te vinden is
Code: 
Public Class Form5
    Dim Position As Integer
    Dim Array(6) As Integer
    Dim Resources As String
    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Position -= 1
        If Position < 1 Then Position = 6
        PictureBox1.Load(Resources & Array(Position) & ".jpg")

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub
End Class
 
ik heb eindelijk een werkende code gevonden.
met deze kun je afbeeldingen uit de map resources gebruiken


Code: 
Public Class Form5
    
    Dim iterator As Int32
    Dim Array(11) As List(Of Image)

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Array(11) = New List(Of Image)
        Array(11).Add(Global.lesA1.My.Resources.introvuil)
        Array(11).Add(Global.lesA1.My.Resources.vuil1)
        Array(11).Add(Global.lesA1.My.Resources.vuil2)
        Array(11).Add(Global.lesA1.My.Resources.vuil3)
        Array(11).Add(Global.lesA1.My.Resources.zuiver1)
        Array(11).Add(Global.lesA1.My.Resources.zuiver2)
        Array(11).Add(Global.lesA1.My.Resources.zuiver3)
        Array(11).Add(Global.lesA1.My.Resources.zuiver4)
        Array(11).Add(Global.lesA1.My.Resources.zuiver5)
        Array(11).Add(Global.lesA1.My.Resources.zuiver6)
        Array(11).Add(Global.lesA1.My.Resources.zuiver7)

        Me.PictureBox1.Image = Array(10)(Me.iterator)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If (Me.iterator + 1) >= Me.Array(11).Count Then
            Me.iterator = 0
        Else
            Me.iterator += 1
        End If
        Me.PictureBox1.Image = Array(11)(Me.iterator)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If (Me.iterator - 1) < 0 Then
            Me.iterator = Me.Array(11).Count - 1
        Else
            Me.iterator -= 1
        End If
        Me.PictureBox1.Image = Array(11)(Me.iterator)

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub
End Class
 
Code: 
Public Class Form1

    Dim Pictures As New ArrayList
    Dim Counter As Byte = 1
    Dim NumberOfPictures As Integer = 100

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Pictures.Add(Nothing)

        For TempCount As Integer = 1 To NumberOfPictures
            Pictures.Add(CStr("WindowsApplication1." & TempCount & ".jpg"))
        Next

        PictureBox1.Image = New System.Drawing.Bitmap(GetType(Form1).Assembly.GetManifestResourceStream(Pictures(Counter)))

    End Sub

    Private Sub ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
        If sender.Name = "Button1" Then
            Counter -= 1
            If Counter = 0 Then Counter = NumberOfPictures
        Else
            Counter += 1
            If Counter = (NumberOfPictures + 1) Then Counter = 1
        End If

    End Sub

End Class

deze ook ;)
Je moet alleen wel je 'Build Action' property van ieder plaatje op 'Embedded Resource' zetten
.
 
Laatst bewerkt:
Pizara zei:
Code: 
Public Class Form1

    Dim Pictures As New ArrayList
    Dim Counter As Byte = 1
    Dim NumberOfPictures As Integer = 100

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Pictures.Add(Nothing)

        For TempCount As Integer = 1 To NumberOfPictures
            Pictures.Add(CStr("WindowsApplication1." & TempCount & ".jpg"))
        Next

        PictureBox1.Image = New System.Drawing.Bitmap(GetType(Form1).Assembly.GetManifestResourceStream(Pictures(Counter)))

    End Sub

    Private Sub ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
        If sender.Name = "Button1" Then
            Counter -= 1
            If Counter = 0 Then Counter = NumberOfPictures
        Else
            Counter += 1
            If Counter = (NumberOfPictures + 1) Then Counter = 1
        End If

    End Sub

End Class

deze ook ;)
Je moet alleen wel je 'Build Action' property van ieder plaatje op 'Embedded Resource' zetten
.
Klik om te vergroten...


Ik wist wel dat jij snel met iets zou komen :)

seg er is wel 1 prob , op die manier dat ik heb zit je na 15 fotos al out of memory

Ik ga nu is testen wat hij doet als ik zelf een map aanmaak
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan