Caption = " The application can now support X languages. Since all the comments in all the supported languages are together in a unique file, they are easy to maintain. This file is created with a FREEWARE editor specially dedicated to the work of translation: PSMLEDIT."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 810
Index = 4
Left = 120
TabIndex = 5
Top = 2850
Width = 5235
End
Begin Label txtPTAHSoftInfo
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = " The comments, menus, texts, etc. of the program are no longer hard coded in the application itself but they are in an outward resource file."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 585
Index = 3
Left = 120
TabIndex = 4
Top = 2220
Width = 5235
End
Begin Label txtPTAHSoftInfo
BackColor = &H008080FF&
BackStyle = 0 'Transparent
Caption = "Multi-Language Tool for Visual Basic"
Height = 240
Index = 2
Left = 120
TabIndex = 3
Top = 1965
Width = 5235
End
Begin Label txtPTAHSoftInfo
BackColor = &H008080FF&
BackStyle = 0 'Transparent
Caption = "Since we are based in Switzerland, we have to deal with many languages (french, german and italian) so we had to find a way to create softwares that support all this languages. Our compagny's solution is :"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 615
Index = 1
Left = 120
TabIndex = 2
Top = 1260
Width = 5235
End
Begin Image Image1
Height = 1080
Left = 105
Picture = FRMABOUT.FRX:0000
Top = 105
Width = 1035
End
Begin Label txtPTAHSoftInfo
BackColor = &H008080FF&
BackStyle = 0 'Transparent
Caption = "PTAHSoft is a young swiss software compagny. Our activities are especially the development of business softwares and the entreprise networks engineering."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 855
Index = 0
Left = 1230
TabIndex = 0
Top = 240
Width = 4140
End
End
Option Explicit
Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Any) As Integer
Sub cmdOK_Click ()
Unload frmAbout
End Sub
Sub Command1_Click ()
Dim nTmp As Integer
Const HELP_CONTEXT = &H1
Const HELP_KEY = &H101
Const HELP_PARTIALKEY = &H105
nTmp = WinHelp((Me.hWnd), (App.HelpFile), 3, 0&)
End Sub
Sub Form_Load ()
Call PRVSetHelpFilePath
End Sub
Function GLBGetItemFromString (sText As String, sSeperator As String) As String
Dim nLenItem As Integer
nLenItem = InStr(sText, sSeperator)
If nLenItem > 0 Then
GLBGetItemFromString = Left$(sText, nLenItem - 1)
sText = Right$(sText, Len(sText) - nLenItem)
Else
GLBGetItemFromString = sText
sText = ""
End If
End Function
Sub PRVSetHelpFilePath ()
Dim sHelpFileName As String
Dim sCompletPath As String
Dim sPath As String
Dim sFile As String
If Right$(App.Path, 1) <> "\" Then
sHelpFileName = App.Path + "\PSMLedit.HLP"
Else
sHelpFileName = App.Path + "PSMLedit.HLP"
End If
On Error Resume Next
If Dir$(sHelpFileName) <> "" Then
App.HelpFile = sHelpFileName
Exit Sub
End If
sCompletPath = Environ$("PATH")
Do
sPath = GLBGetItemFromString(sCompletPath, ";")
If sPath <> "" Then
If Right$(sPath, 1) <> "\" Then sPath = sPath + "\"
