103 lines
5.6 KiB
VB.net
103 lines
5.6 KiB
VB.net
|
Module HelpSystem
|
|||
|
|
Public Sub SetupTips(TheForm As Windows.Forms.Form)
|
|||
|
|
|
|||
|
|
Dim toolTip1 As New ToolTip()
|
|||
|
|
|
|||
|
|
toolTip1.AutoPopDelay = 10000
|
|||
|
|
toolTip1.InitialDelay = 500
|
|||
|
|
toolTip1.ReshowDelay = 500
|
|||
|
|
|
|||
|
|
Dim HelpString As String = ""
|
|||
|
|
|
|||
|
|
For Each Control As Control In TheForm.Controls
|
|||
|
|
For Each SubControl As Control In Control.Controls
|
|||
|
|
For Each SubSubControl In SubControl.Controls
|
|||
|
|
For Each SubSubSubControl In SubSubControl.Controls
|
|||
|
|
HelpString = GetTipString(Control.Parent.Name, SubSubSubControl.Name)
|
|||
|
|
If Not HelpString = "" Then toolTip1.SetToolTip(SubSubSubControl, HelpString)
|
|||
|
|
Next
|
|||
|
|
HelpString = GetTipString(Control.Parent.Name, SubSubControl.Name)
|
|||
|
|
If Not HelpString = "" Then toolTip1.SetToolTip(SubSubControl, HelpString)
|
|||
|
|
Next
|
|||
|
|
HelpString = GetTipString(Control.Parent.Name, SubControl.Name)
|
|||
|
|
If Not HelpString = "" Then toolTip1.SetToolTip(SubControl, HelpString)
|
|||
|
|
Next
|
|||
|
|
HelpString = GetTipString(Control.Parent.Name, Control.Name)
|
|||
|
|
If Not HelpString = "" Then toolTip1.SetToolTip(Control, HelpString)
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Function GetTipString(FormName As String, ControlName As String) As String
|
|||
|
|
Dim TipString As String = ""
|
|||
|
|
|
|||
|
|
Dim TipText As String = GetTipFile()
|
|||
|
|
Dim TipArray = TipText.Split(ControlChars.CrLf.ToCharArray(), StringSplitOptions.RemoveEmptyEntries)
|
|||
|
|
|
|||
|
|
For Each TipLine As String In TipArray
|
|||
|
|
Dim TipLineArray = TipLine.Split("|")
|
|||
|
|
If TipLineArray(0) = FormName And TipLineArray(1) = ControlName Then TipString = TipLineArray(2)
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
TipString = TipString.Replace("\r", vbCr)
|
|||
|
|
TipString = TipString.Replace("\n", vbLf)
|
|||
|
|
|
|||
|
|
Return TipString
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Private Function GetTipFile() As String
|
|||
|
|
Dim TipFile As String = ""
|
|||
|
|
|
|||
|
|
If My.Computer.FileSystem.FileExists("tips.txt") Then
|
|||
|
|
TipFile = My.Computer.FileSystem.ReadAllText("tips.txt")
|
|||
|
|
Else
|
|||
|
|
TipFile = GetBuiltInTips()
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Return TipFile
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Function GetBuiltInTips() As String
|
|||
|
|
Dim Tips As String = ""
|
|||
|
|
|
|||
|
|
Tips += "RemoteAppMainWindow|CreateButton|Add a new RemoteApp." & vbCrLf
|
|||
|
|
Tips += "RemoteAppMainWindow|DeleteButton|Remove selected RemoteApp." & vbCrLf
|
|||
|
|
Tips += "RemoteAppMainWindow|EditButton|Edit properties of selected RemoteApp." & vbCrLf
|
|||
|
|
Tips += "RemoteAppMainWindow|CreateClientConnection|Creates a RDP file or MSI installer for the selected RemoteApp." & vbCrLf
|
|||
|
|
|
|||
|
|
Tips += "RemoteAppEditWindow|SaveButton|Save changes and close." & vbCrLf
|
|||
|
|
Tips += "RemoteAppEditWindow|FTAButton|Set file type associations for this RemoteApp." & vbCrLf
|
|||
|
|
Tips += "RemoteAppEditWindow|CancelEditButton|Discard changes and close." & vbCrLf
|
|||
|
|
Tips += "RemoteAppEditWindow|BrowseIconPath|Select an icon for the RemoteApp." & vbCrLf
|
|||
|
|
Tips += "RemoteAppEditWindow|VPathCopyButton|Copy the value from the ""Path"" field into the ""VPath"" field." & vbCrLf
|
|||
|
|
Tips += "RemoteAppEditWindow|IconPathCopyButton|Copy the value from the ""Path"" field into the ""Icon path"" field. " & vbCrLf
|
|||
|
|
Tips += "RemoteAppEditWindow|BrowsePath|Browse for application." & vbCrLf
|
|||
|
|
Tips += "RemoteAppEditWindow|BrowseVPath|Browse for application." & vbCrLf
|
|||
|
|
|
|||
|
|
Tips += "RemoteAppCreateClientConnection|RDPRadioButton|Create an RDP file." & vbCrLf
|
|||
|
|
Tips += "RemoteAppCreateClientConnection|MSIRadioButton|Create an MSI file." & vbCrLf
|
|||
|
|
Tips += "RemoteAppCreateClientConnection|EditAfterSave|Edit the RDP connection file." & vbCrLf
|
|||
|
|
Tips += "RemoteAppCreateClientConnection|CreateRAWebIcon|Generate an icon for the application and any file type associations.\r\nUse this with RAWeb." & vbCrLf
|
|||
|
|
Tips += "RemoteAppCreateClientConnection|FTAButton|Set file type associations for this RemoteApp.\r\nChanges here will only affect this client connection. They will not be saved." & vbCrLf
|
|||
|
|
Tips += "RemoteAppCreateClientConnection|DisabledFTACheckBox|Do not include file type associations in this client connection." & vbCrLf
|
|||
|
|
Tips += "RemoteAppCreateClientConnection|SaveButton|Save window settings for next time." & vbCrLf
|
|||
|
|
Tips += "RemoteAppCreateClientConnection|ResetButton|Reset window settings to defaults." & vbCrLf
|
|||
|
|
Tips += "RemoteAppCreateClientConnection|CancelEditButton|Close and return to the main window." & vbCrLf
|
|||
|
|
Tips += "RemoteAppCreateClientConnection|CreateButton|Create the client connection and choose where to save it." & vbCrLf
|
|||
|
|
|
|||
|
|
Tips += "RemoteAppFileTypeAssociation|CreateButton|Create a new File Type Association." & vbCrLf
|
|||
|
|
Tips += "RemoteAppFileTypeAssociation|DeleteButton|Delete selected File Type Association." & vbCrLf
|
|||
|
|
Tips += "RemoteAppFileTypeAssociation|EditButton|Change icon of selected File Type Association." & vbCrLf
|
|||
|
|
Tips += "RemoteAppFileTypeAssociation|SetAssociationButton|Create or remove the selected File Type Association on the current system." & vbCrLf
|
|||
|
|
Tips += "RemoteAppFileTypeAssociation|CloseButton|Save changes and close." & vbCrLf
|
|||
|
|
|
|||
|
|
Tips += "RemoteAppIconPicker|BrowseButton|Browse for a file that contains icons." & vbCrLf
|
|||
|
|
Tips += "RemoteAppIconPicker|CancelEditButton|Discard changes and close." & vbCrLf
|
|||
|
|
Tips += "RemoteAppIconPicker|OKButton|Choose the selected icon." & vbCrLf
|
|||
|
|
|
|||
|
|
Return Tips
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
End Module
|