Panzer-JustClock-VB6/frmHelp.frm at main · yereverluvinunclebert/Panzer-JustClock-VB6 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
VERSION 5.00
Begin VB.Form helpFormOld
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   8685
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   10770
   ControlBox      =   0   'False
   Icon            =   "frmHelp.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   8685
   ScaleWidth      =   10770
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.PictureBox picHelp
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   8685
      Left            =   0
      Picture         =   "frmHelp.frx":385D2
      ScaleHeight     =   8685
      ScaleWidth      =   10770
      TabIndex        =   0
      Top             =   0
      Width           =   10770
      Begin VB.Label lblPunklabsLink
         BackStyle       =   0  'Transparent
         Caption         =   "                                                         "
         Height          =   225
         Left            =   3810
         MousePointer    =   2  'Cross
         TabIndex        =   1
         Top             =   2925
         Width           =   915
      End
   End
End
Attribute VB_Name = "helpFormOld"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'---------------------------------------------------------------------------------------
' Procedure : picHelp_Click
' Author    : beededea
' Date      : 16/03/2020
' Purpose   :
'---------------------------------------------------------------------------------------
'
Private Sub picHelp_Click()
   On Error GoTo picHelp_Click_Error
   '''If debugflg = 1  Then msgBox "%picHelp_Click"

    Dim fileToPlay As String: fileToPlay = vbNullString

    Me.Hide ' no possibility of fade out in a VB6 form

    fileToPlay = "ting.wav"
    If PzGEnableSounds = "1" And fFExists(App.Path & "\resources\sounds\" & fileToPlay) Then
        PlaySound App.Path & "\resources\sounds\" & fileToPlay, ByVal 0&, SND_FILENAME Or SND_ASYNC
    End If
   On Error GoTo 0
   Exit Sub

picHelp_Click_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure picHelp_Click of Form about"
End Sub