Caption = " Die Applikation kann X sprachig sein. Sie sprechen die Kommentare ⁿber Konstanten an. Die Kommentare werden alle gemeinsam an einem Ort eingegeben (PSMLEDIT: Editor der das Erstellen der Resource Dateien *.LRS erlaubt. FREEWARE)"
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 = " Die Kommentare, Menus, Texte usw befinden sich nicht mehr statisch in der VB Applikation, sondern EXTERN in einer Resource Datei."
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 fⁿr Visual Basic"
Height = 240
Index = 2
Left = 120
TabIndex = 3
Top = 1995
Width = 5235
End
Begin Label txtPTAHSoftInfo
BackColor = &H008080FF&
BackStyle = 0 'Transparent
Caption = "Die Schweiz besitzt 4 Landessprachen (Deutsch, Franτais, Italiano und Romansch). Aus diesem Grund sind wir gezwungen mehrsprachige Programme herzustellen. Die L÷sung ist unser firmeneigenes Hilfsmittel :"
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 = "Die Firma PTAHSoft ist eine junge schweizer Software Firma. Unser TΣtigkeitsbereiche sind die Entwickelung von kommerziellen Programmen und die Installation und der Unterhalt von Firmen-Netzwerk."
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 + "\"
