jackcartersmith/RepairInventoryManager
Archived
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Issue#3 Added button to access install dir

Browse Source
This commit is contained in:
JackCarterSmith 2017-07-08 18:35:35 +02:00
parent 74d1126d8d
commit aedf0ae3c1
2 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ISEN-Repair Inventory Manager/Main.Designer.vb generated
View File

@ -60,6 +60,7 @@ Partial Class Main
Me.OSBox = New System.Windows.Forms.TextBox() Me.OSBox = New System.Windows.Forms.TextBox()
Me.ArchBox = New System.Windows.Forms.TextBox() Me.ArchBox = New System.Windows.Forms.TextBox()
Me.EditButton = New System.Windows.Forms.Button() Me.EditButton = New System.Windows.Forms.Button()
Me.DBAccessToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
@ -69,7 +70,7 @@ Partial Class Main
' '
'MenuStrip1 'MenuStrip1
' '
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AddComputerToolMenuItem, Me.GénérerDesIDsToolStripMenuItem, Me.AboutToolMenuItem}) Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AddComputerToolMenuItem, Me.GénérerDesIDsToolStripMenuItem, Me.DBAccessToolStripMenuItem, Me.AboutToolMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(874, 24) Me.MenuStrip1.Size = New System.Drawing.Size(874, 24)
@ -446,6 +447,12 @@ Partial Class Main
Me.EditButton.Text = "Editer le suivi" Me.EditButton.Text = "Editer le suivi"
Me.EditButton.UseVisualStyleBackColor = False Me.EditButton.UseVisualStyleBackColor = False
' '
'DBAccessToolStripMenuItem
'
Me.DBAccessToolStripMenuItem.Name = "DBAccessToolStripMenuItem"
Me.DBAccessToolStripMenuItem.Size = New System.Drawing.Size(73, 20)
Me.DBAccessToolStripMenuItem.Text = "DB Access"
'
'Main 'Main
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -517,4 +524,5 @@ Partial Class Main
Friend WithEvents IDBox As MaskedTextBox Friend WithEvents IDBox As MaskedTextBox
Private WithEvents AddComputerToolMenuItem As ToolStripMenuItem Private WithEvents AddComputerToolMenuItem As ToolStripMenuItem
Friend WithEvents GénérerDesIDsToolStripMenuItem As ToolStripMenuItem Friend WithEvents GénérerDesIDsToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DBAccessToolStripMenuItem As ToolStripMenuItem
End Class End Class

11
ISEN-Repair Inventory Manager/Main.vb
View File

@ -1,7 +1,10 @@
Imports System.Data.SQLite Imports System.Data.SQLite
Imports System.Text Imports System.Text
Imports System.IO
Public Class Main Public Class Main
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim manualID_selected As Boolean = False Dim manualID_selected As Boolean = False
Dim idList As New ArrayList Dim idList As New ArrayList
Public log As New Logger Public log As New Logger
@ -371,4 +374,12 @@ Public Class Main
IDBox.Text = Nothing IDBox.Text = Nothing
IDBox.Text = tempStor IDBox.Text = tempStor
End Sub End Sub
Private Sub DBAccessToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DBAccessToolStripMenuItem.Click
Dim p As New ProcessStartInfo
p.FileName = "explorer.exe"
p.Arguments = Directory.GetCurrentDirectory
p.UseShellExecute = False
Process.Start(p)
End Sub
End Class End Class