206 lines
7.7 KiB
VB.net
206 lines
7.7 KiB
VB.net
Imports System.IO
|
|
|
|
Public Class FormGsiJobs
|
|
|
|
Public projektAktiven
|
|
Public projektAktivenMapa
|
|
Public projektIzbran
|
|
Public projektIzbranMapa
|
|
Public jobIzbran
|
|
Public jobDatoteka
|
|
|
|
' Funkcije izvedene pri nalaganju okna
|
|
Private Sub FormGsiJobs_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
projektAktiven = My.Settings.Projekt.ToString
|
|
projektAktivenMapa = My.Settings.ProjektMapa.ToString
|
|
LabelDeloProj.Text = projektAktiven
|
|
LabelDeloMapa.Text = projektAktivenMapa
|
|
|
|
ProjektBeriNast()
|
|
|
|
|
|
End Sub
|
|
|
|
Public Sub ProjektBeriNast()
|
|
Dim datProjektiNast = "tps1100_projekti.txt"
|
|
Dim i As Integer = 0
|
|
Dim iselected As Integer = 0
|
|
' Uvoz nastavitev iz datototeke
|
|
If My.Computer.FileSystem.FileExists(datProjektiNast) Then
|
|
Dim streamReader As StreamReader = New StreamReader(datProjektiNast)
|
|
Do Until streamReader.EndOfStream
|
|
' Read and Split each line to separate it into fields
|
|
Dim line() As String = streamReader.ReadLine().Split("=")
|
|
|
|
If (line(0) IsNot "") Then
|
|
Dim projIme As String = line(0)
|
|
Dim projMapa As String = line(1)
|
|
|
|
ListViewProj.Items.Add(projIme).SubItems.Add(projMapa)
|
|
If projIme = My.Settings.Projekt Then
|
|
iselected = i
|
|
End If
|
|
i = i + 1
|
|
End If
|
|
|
|
Loop
|
|
|
|
streamReader.Close()
|
|
streamReader.Dispose()
|
|
My.Settings.Save()
|
|
ListViewProj.Items.Item(iselected).Selected = True
|
|
ListViewProj.Focus()
|
|
Else
|
|
' Izvoz kodiranja v TXT datoteko
|
|
Dim dataNast As String = ""
|
|
|
|
dataNast = dataNast + "Virtualna Kartica=\Virtualna Kartica\GSI" + vbCrLf
|
|
dataNast = dataNast + "Test Projekt=\Projekti\Test Projekt" + vbCrLf
|
|
|
|
My.Computer.FileSystem.WriteAllText(datProjektiNast, dataNast, False)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Public Sub ProjektiShraniNast()
|
|
Dim datProjektiNast = "tps1100_projekti.txt"
|
|
' Uvoz nastavitev iz datototeke
|
|
If My.Computer.FileSystem.FileExists(datProjektiNast) Then
|
|
Dim dataProj As ListView.ListViewItemCollection = Me.ListViewProj.Items
|
|
Dim item As ListViewItem
|
|
Dim ime As String = ""
|
|
Dim mapa As String = ""
|
|
Dim dataOut As String = ""
|
|
For Each item In dataProj
|
|
ime = item.SubItems(0).Text
|
|
mapa = item.SubItems(1).Text
|
|
dataOut = dataOut + ime + "=" + mapa + vbCrLf
|
|
Next
|
|
My.Computer.FileSystem.WriteAllText(datProjektiNast, dataOut, False)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub UvoziGsiJob()
|
|
If OpenFileDialogUvoziJob.ShowDialog = DialogResult.OK Then
|
|
Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString + "\" + My.Settings.ProjektMapa.ToString + "\"
|
|
Dim fileUvoz = OpenFileDialogUvoziJob.FileName
|
|
Dim fileIme = Path.GetFileName(OpenFileDialogUvoziJob.FileName)
|
|
Dim fileIzvoz = delovnaMapa + fileIme
|
|
My.Computer.FileSystem.CopyFile(fileUvoz, fileIzvoz, True)
|
|
OpenFileDialogUvoziJob.FileName = fileIzvoz
|
|
|
|
End If
|
|
|
|
OpenFileDialogUvoziJob.Dispose()
|
|
End Sub
|
|
|
|
Private Sub NastaviDelovniProj()
|
|
LabelDeloProj.Text = LabelIzbProj.Text
|
|
LabelDeloMapa.Text = LabelIzbProjMapa.Text
|
|
My.Settings.Projekt = LabelDeloProj.Text
|
|
My.Settings.ProjektMapa = LabelDeloMapa.Text
|
|
My.Settings.Save()
|
|
If LabelDeloProj.Text = "Virtualna Kartica" Then
|
|
Form1.ToolStripLabel2.Text = LabelDeloProj.Text
|
|
Form1.ToolStripLabel2.Image = My.Resources.icons8_micro_sd_50
|
|
Else
|
|
Form1.ToolStripLabel2.Text = LabelDeloProj.Text
|
|
Form1.ToolStripLabel2.Image = My.Resources.icons8_browse_folder_50_2
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub NaloziJob()
|
|
LabelDeloProj.Text = LabelIzbProj.Text
|
|
LabelDeloMapa.Text = LabelIzbProjMapa.Text
|
|
My.Settings.Projekt = LabelDeloProj.Text
|
|
My.Settings.ProjektMapa = LabelDeloMapa.Text
|
|
My.Settings.Save()
|
|
If LabelDeloProj.Text = "Virtualna Kartica" Then
|
|
Form1.ToolStripLabel2.Text = LabelDeloProj.Text
|
|
Form1.ToolStripLabel2.Image = My.Resources.icons8_micro_sd_50
|
|
Else
|
|
Form1.ToolStripLabel2.Text = LabelDeloProj.Text
|
|
Form1.ToolStripLabel2.Image = My.Resources.icons8_browse_folder_50_2
|
|
End If
|
|
Form1.datJob = TextBoxJobDat.Text
|
|
Form1.NaloziGsiJob()
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub ListViewProj_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewProj.SelectedIndexChanged
|
|
Dim izbran As ListView.SelectedListViewItemCollection = Me.ListViewProj.SelectedItems
|
|
Dim item As ListViewItem
|
|
Dim ime As String = ""
|
|
Dim mapa As String = ""
|
|
For Each item In izbran
|
|
ime = item.SubItems(0).Text
|
|
mapa = item.SubItems(1).Text
|
|
Next
|
|
LabelIzbProj.Text = ime.ToString
|
|
LabelIzbProjMapa.Text = mapa.ToString
|
|
Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString + "\" + mapa.ToString
|
|
projektIzbran = ime.ToString
|
|
projektIzbranMapa = delovnaMapa
|
|
Dim datotekeJobi = My.Computer.FileSystem.GetFiles(delovnaMapa, FileIO.SearchOption.SearchTopLevelOnly, "*.GSI")
|
|
ListView2.Clear()
|
|
For Each datJob In datotekeJobi
|
|
ListView2.Items.Add(Path.GetFileName(datJob).ToString).SubItems.Add(Path.GetFullPath(datJob))
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub ListViewProj_DoubleClick(sender As Object, e As EventArgs) Handles ListViewProj.DoubleClick
|
|
NastaviDelovniProj()
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub ButtonDelovni_Click(sender As Object, e As EventArgs) Handles ButtonDelovni.Click, ToolStripButton5.Click
|
|
NastaviDelovniProj()
|
|
End Sub
|
|
|
|
Private Sub ListView2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView2.SelectedIndexChanged
|
|
Dim izbran As ListView.SelectedListViewItemCollection = Me.ListView2.SelectedItems
|
|
Dim item As ListViewItem
|
|
Dim ime As String = ""
|
|
Dim mapa As String = ""
|
|
For Each item In izbran
|
|
ime = item.SubItems(0).Text
|
|
mapa = item.SubItems(1).Text
|
|
Next
|
|
LabelJobIme.Text = ime.ToString
|
|
TextBoxJobDat.Text = mapa.ToString
|
|
If LabelJobIme.Text > "" Then
|
|
ButtonNalJob2.Enabled = True
|
|
Else
|
|
ButtonNalJob2.Enabled = False
|
|
End If
|
|
|
|
'Dim delovnaJob = My.Application.Info.DirectoryPath.ToString + "\" + mapa.ToString
|
|
'projektIzbran = ime.ToString
|
|
'projektIzbranMapa = delovnaMapa
|
|
'Dim datotekeJobi = My.Computer.FileSystem.GetFiles(delovnaMapa, FileIO.SearchOption.SearchTopLevelOnly, "*.GSI")
|
|
End Sub
|
|
|
|
Private Sub ListView2_DoubleClick(sender As Object, e As EventArgs) Handles ListView2.DoubleClick
|
|
NaloziJob()
|
|
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
|
|
DialogNovProj.ShowDialog()
|
|
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
|
|
Process.Start(projektIzbranMapa)
|
|
End Sub
|
|
|
|
Private Sub TSButtonUvozi_Click(sender As Object, e As EventArgs) Handles TSButtonUvozi.Click
|
|
UvoziGsiJob()
|
|
End Sub
|
|
|
|
Private Sub TSButonNalozi_Click(sender As Object, e As EventArgs) Handles TSButonNalozi.Click, ButtonNalJob2.Click
|
|
NaloziJob()
|
|
|
|
End Sub
|
|
|
|
End Class |