remoteapptool/remoteapp-tool/RemoteAppEditWindow.vb

218 lines
8.7 KiB
VB.net
Raw Permalink Normal View History

2019-09-29 14:45:23 +02:00
Imports RemoteAppLib
Public Class RemoteAppEditWindow
Private RemoteApp As New RemoteApp
Public Function EditRemoteApp(SelectedRemoteApp As RemoteApp) As RemoteApp
HelpSystem.SetupTips(Me)
RemoteApp = SelectedRemoteApp
Me.Text = "Properties of " & RemoteApp.Name
Me.Size = Me.MinimumSize
HelpSystem.SetupTips(Me)
Me.LoadValues()
Dim dlgResult = Me.ShowDialog()
RemoteAppMainWindow.ReloadApps()
Me.Dispose()
Return RemoteApp
End Function
Public Function CreateRemoteApp(Optional Advanced As Boolean = False) As RemoteApp
Me.Text = "New RemoteApp"
Me.Size = Me.MinimumSize
HelpSystem.SetupTips(Me)
Me.CommandLineOptionCombo.SelectedIndex = 1
Me.TSWAbox.SelectedIndex = 0
Me.FTAButton.Enabled = False
If Advanced Then
Me.ShowDialog()
Else
If DoBrowsePath() = True Then
SaveAndCloseOrWindow()
End If
End If
Me.Dispose()
Return RemoteApp
End Function
Private Sub SetToolTips()
Dim toolTip1 As New ToolTip()
' Set up the delays for the ToolTip.
toolTip1.AutoPopDelay = 5000
toolTip1.InitialDelay = 1000
toolTip1.ReshowDelay = 500
toolTip1.SetToolTip(Me.BrowseIconPath, "Select an icon")
toolTip1.SetToolTip(Me.BrowsePath, "Browse for application")
toolTip1.SetToolTip(Me.IconResetButton, "Reset icon to application default")
2019-09-29 14:45:23 +02:00
End Sub
Sub LoadValues()
Me.ShortNameText.Text = RemoteApp.Name
Me.CommandLineOptionCombo.SelectedIndex = RemoteApp.CommandLineOption
Me.FullNameText.Text = RemoteApp.FullName
Me.PathText.Text = RemoteApp.Path
Me.CommandLineText.Text = RemoteApp.CommandLine
Me.CommandLineOptionCombo.SelectedIndex = RemoteApp.CommandLineOption
Me.IconPathText.Text = RemoteApp.IconPath
Me.IconIndexText.Text = RemoteApp.IconIndex
Dim TSWA As Integer = 0
If RemoteApp.TSWA = True Then TSWA = 1
Me.TSWAbox.SelectedIndex = TSWA
Dim TheIcon = ReturnIcon(Me.IconPathText.Text, Val(Me.IconIndexText.Text), True)
If Not TheIcon Is Nothing Then
Me.Icon = TheIcon
Else
Me.Icon = RemoteAppMainWindow.Icon
End If
End Sub
Private Sub CancelEditButton_Click(sender As Object, e As EventArgs) Handles CancelEditButton.Click
Me.Close()
End Sub
Private Sub IconResetButton_Click(sender As Object, e As EventArgs) Handles IconResetButton.Click
2019-09-29 14:45:23 +02:00
Me.IconPathText.Text = Me.PathText.Text
Me.IconIndexText.Text = 0
2019-09-29 14:45:23 +02:00
End Sub
Private Sub BrowseIconPath_Click(sender As Object, e As EventArgs) Handles BrowseIconPath.Click
IconPick()
End Sub
Private Sub IconPick()
Dim StartPath As String = GetSysDir() & "\shell32.dll"
Dim StartIndex As Integer = Val(Me.IconIndexText.Text)
If My.Computer.FileSystem.FileExists(IconPathText.Text) Then StartPath = IconPathText.Text
Dim PickedIcon = RemoteAppIconPicker.PickIcon(StartPath, StartIndex)
If Not PickedIcon.IconPath Is Nothing Then
Me.IconPathText.Text = PickedIcon.IconPath
Me.IconIndexText.Text = PickedIcon.IconIndex
End If
End Sub
Private Sub BrowsePath_Click(sender As Object, e As EventArgs) Handles BrowsePath.Click
DoBrowsePath()
End Sub
Private Function DoBrowsePath() As Boolean
DoBrowsePath = False
If My.Computer.FileSystem.FileExists(PathText.Text) Then FileBrowserPath.InitialDirectory = My.Computer.FileSystem.GetParentPath(PathText.Text)
If FileBrowserPath.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim FilePath = FileBrowserPath.FileName
Me.PathText.Text = FilePath
RemoteApp.Path = FilePath
If Me.IconPathText.Text = "" Then RemoteApp.IconPath = FilePath
If FilePath.ToLower.EndsWith(".exe") Then
Dim title = GetEXETitle(FilePath)
If Me.ShortNameText.Text = "" Then RemoteApp.Name = FixShortAppName(title)
If Me.FullNameText.Text = "" Then RemoteApp.FullName = title
End If
LoadValues()
DoBrowsePath = True
End If
End Function
Private Sub SaveRemoteApp(ShortName As String, FullName As String, Path As String, VPath As String, CommandLine As String, CommandLineSetting As Integer, IconPath As String, IconIndex As Integer, ShowInTSWA As Integer)
Dim SysApps As New SystemRemoteApps
If (Not RemoteApp.Name Is Nothing) And Not (Me.Text = "New RemoteApp") Then If Not RemoteApp.Name = ShortName Then SysApps.RenameApp(RemoteApp.Name, ShortName)
2019-09-29 14:45:23 +02:00
RemoteApp.Name = ShortName
RemoteApp.FullName = FullName
RemoteApp.Path = Path
RemoteApp.VPath = VPath
RemoteApp.IconPath = IconPath
RemoteApp.IconIndex = IconIndex
RemoteApp.CommandLine = CommandLine
RemoteApp.CommandLineOption = CommandLineSetting
RemoteApp.TSWA = ShowInTSWA
SysApps.SaveApp(RemoteApp)
End Sub
Private Function DoesAppExist(AppName As String) As Boolean
Dim AppExists = False
Dim sra As New SystemRemoteApps
Dim AppCol As New RemoteAppCollection
AppCol = sra.GetAll
For Each App As RemoteApp In AppCol
If App.Name = AppName Then AppExists = True
Next
Return AppExists
End Function
Private Sub SaveButton_Click(sender As Object, e As EventArgs) Handles SaveButton.Click
SaveAndClose()
End Sub
Private Sub SaveAndCloseOrWindow()
If Me.ShortNameText.Text = "" Then
MessageBox.Show("Name must not be blank.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
Me.ShowDialog()
ElseIf Me.FullNameText.Text = "" Then
MessageBox.Show("Full name must not be blank.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
Me.ShowDialog()
ElseIf Me.PathText.Text = "" Then
MessageBox.Show("Path must not be blank.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
Me.ShowDialog()
ElseIf Not Me.ShortNameText.Text = RemoteApp.Name And DoesAppExist(Me.ShortNameText.Text) Then
MessageBox.Show("A RemoteApp with the same name already exists.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
Me.ShowDialog()
ElseIf Me.Text = "New RemoteApp" And DoesAppExist(Me.ShortNameText.Text) Then
MessageBox.Show("A RemoteApp with the same name already exists.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
Me.ShowDialog()
Else
SaveRemoteApp(Me.ShortNameText.Text.Trim, Me.FullNameText.Text, Me.PathText.Text, Me.PathText.Text, Me.CommandLineText.Text, Me.CommandLineOptionCombo.SelectedIndex, Me.IconPathText.Text, Val(IconIndexText.Text), Me.TSWAbox.SelectedIndex)
2019-09-29 14:45:23 +02:00
Me.Close()
End If
End Sub
Private Sub SaveAndClose()
If Me.ShortNameText.Text = "" Then
MessageBox.Show("Name must not be blank.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
ElseIf Me.FullNameText.Text = "" Then
MessageBox.Show("Full name must not be blank.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
ElseIf Me.PathText.Text = "" Then
MessageBox.Show("Path must not be blank.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
ElseIf Not Me.ShortNameText.Text = RemoteApp.Name And DoesAppExist(Me.ShortNameText.Text) Then
MessageBox.Show("A RemoteApp with the same name already exists.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
ElseIf Me.Text = "New RemoteApp" And DoesAppExist(Me.ShortNameText.Text) Then
MessageBox.Show("A RemoteApp with the same name already exists.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
Else
SaveRemoteApp(Me.ShortNameText.Text.Trim, Me.FullNameText.Text, Me.PathText.Text, Me.PathText.Text, Me.CommandLineText.Text, Me.CommandLineOptionCombo.SelectedIndex, Me.IconPathText.Text, Val(IconIndexText.Text), Me.TSWAbox.SelectedIndex)
2019-09-29 14:45:23 +02:00
Me.Close()
End If
End Sub
Private Sub IconIndexText_TextChanged(sender As Object, e As EventArgs) Handles IconIndexText.TextChanged
ValidateInteger(IconIndexText)
End Sub
Private Sub FTAButton_Click(sender As Object, e As EventArgs) Handles FTAButton.Click
RemoteAppFileTypeAssociation.EditFileTypes(RemoteApp)
End Sub
Private Sub ShortNameText_TextChanged(sender As Object, e As EventArgs) Handles ShortNameText.TextChanged
ValidateAppName(Me.ShortNameText)
End Sub
End Class