106 lines
4.7 KiB
VB.net
106 lines
4.7 KiB
VB.net
Option Explicit On
|
|
Imports System.IO
|
|
|
|
Public Class Main
|
|
'Deklariere Public Variables
|
|
Public pub_aPhotos(0) As String 'Array mit den Photo Pfaden
|
|
Public pub_sPath As String 'String mit dem Arbeits Verzeichnis
|
|
Public pub_nPhotoIndex As Long = 0 'IndexNR des pub_aPhotos Arrays
|
|
Public pub_bChangeTagg As Boolean = False
|
|
|
|
'###################################################################################################################
|
|
'############### Main ##############################################################################################
|
|
'###################################################################################################################
|
|
|
|
Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
|
|
'###################################################################################################################
|
|
'############### Form1_Function-Tasks ##############################################################################
|
|
'###################################################################################################################
|
|
|
|
'###################################################################################################################
|
|
'############### Form1_Sub-Tasks ###################################################################################
|
|
'###################################################################################################################
|
|
|
|
Private Sub Reload()
|
|
SaveTagg()
|
|
ReDim pub_aPhotos(0)
|
|
pub_aPhotos(0) = ""
|
|
pub_aPhotos = Modul_SB_PictureTagger.DirReadPhotos(pub_sPath)
|
|
pub_nPhotoIndex = 0
|
|
LoadTaggedIMG()
|
|
End Sub 'Reload
|
|
|
|
Private Sub SaveTagg()
|
|
If pub_bChangeTagg = True Then
|
|
'Call The Save Methode from Modul_SB-PictureTagger
|
|
pub_bChangeTagg = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub LoadTaggedIMG()
|
|
Dim ID As String = pub_aPhotos(pub_nPhotoIndex)
|
|
Dim TaggedIMG_Now As New TaggedIMG
|
|
If ID <> "" Then 'Später wird die ID der DB übergeben
|
|
SaveTagg()
|
|
TaggedIMG_Now = Modul_SB_PictureTagger.LoadPicture(ID)
|
|
PictureBox1.Image = TaggedIMG_Now.Image
|
|
'Befülle TextBox
|
|
'Erstelle Marks
|
|
End If
|
|
End Sub 'LoadTaggedIMG
|
|
|
|
'###################################################################################################################
|
|
'############### Buton Events: Click ###############################################################################
|
|
'###################################################################################################################
|
|
|
|
|
|
Private Sub b_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_exit.Click
|
|
' Programm Beenden
|
|
SaveTagg()
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub b_loaddir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_loaddir.Click
|
|
'Laden eines zu Taggenden Bilder-Verzeichnis
|
|
Modul_Tools.FolderBrowserDialog(pub_sPath)
|
|
Reload()
|
|
End Sub
|
|
|
|
Private Sub b_reloaddir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_reloaddir.Click
|
|
Reload()
|
|
End Sub
|
|
|
|
Private Sub b_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_save.Click
|
|
SaveTagg()
|
|
End Sub
|
|
|
|
Private Sub b_next_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_next.Click
|
|
If pub_nPhotoIndex < (UBound(pub_aPhotos) - 1) Then
|
|
pub_nPhotoIndex += 1
|
|
LoadTaggedIMG()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub b_last_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_last.Click
|
|
|
|
If pub_nPhotoIndex > 0 Then
|
|
pub_nPhotoIndex = pub_nPhotoIndex - 1
|
|
LoadTaggedIMG()
|
|
End If
|
|
End Sub
|
|
|
|
'###################################################################################################################
|
|
'############### CheckBox Events: CheckStateChanged ################################################################
|
|
'###################################################################################################################
|
|
|
|
Private Sub cb_marks_visible_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cb_marks_visible.CheckStateChanged
|
|
'Wenn cb_marks_visible=true then ZeichneMarks() ELSE VerstekeMarks()
|
|
End Sub
|
|
|
|
|
|
End Class
|