Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/yocontra/form1.frm

Visual Basic Form | 1998-01-25 | 5.6 KB | 178 lines

VERSION 5.00
Object = "{CEFAFC26-8C37-11D1-9618-D4DB04C10000}#1.0#0"; "YOCONTRAY.OCX"
Begin VB.Form Form1
   Caption         =   "YoconTray 1.04 BETA VB5 Sample"
   ClientHeight    =   5505
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4875
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   5505
   ScaleWidth      =   4875
   StartUpPosition =   3  'Windows Default
   Begin YOCONTRAYLib.YoconTray YoconTray1
      Height          =   495
      Left            =   2160
      TabIndex        =   5
      Top             =   4080
      Width           =   495
      _Version        =   65536
      _ExtentX        =   873
      _ExtentY        =   873
      _StockProps     =   0
   End
   Begin VB.CommandButton b3
      Caption         =   "&Exit"
      Height          =   615
      Left            =   2520
      TabIndex        =   4
      Top             =   4680
      Width           =   1935
   End
   Begin VB.CommandButton b2
      Caption         =   "&About"
      Height          =   615
      Left            =   120
      TabIndex        =   3
      Top             =   4680
      Width           =   1935
   End
   Begin VB.CommandButton b1
      Caption         =   "&Delete Icon"
      Height          =   615
      Index           =   2
      Left            =   3240
      TabIndex        =   2
      Top             =   2640
      Width           =   1455
   End
   Begin VB.CommandButton b1
      Caption         =   "&Modify Icon"
      Height          =   615
      Index           =   1
      Left            =   1680
      TabIndex        =   1
      Top             =   2640
      Width           =   1455
   End
   Begin VB.CommandButton b1
      Caption         =   "&Add icon"
      Height          =   615
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   2640
      Width           =   1455
   End
   Begin VB.Label Label5
      Caption         =   "New feature: In this release, each icon added to the tray has its own unique event ID"
      Height          =   495
      Left            =   120
      TabIndex        =   10
      Top             =   1920
      Width           =   4215
   End
   Begin VB.Label Label4
      Caption         =   $"Form1.frx":0000
      Height          =   855
      Left            =   120
      TabIndex        =   9
      Top             =   840
      Width           =   4215
   End
   Begin VB.Label Label3
      Caption         =   "YoconTray 1.04"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   120
      TabIndex        =   8
      Top             =   0
      Width           =   4575
   End
   Begin VB.Label Label1
      Caption         =   "Events are printed to Debug window"
      Height          =   375
      Left            =   240
      TabIndex        =   7
      Top             =   3480
      Width           =   4095
   End
   Begin VB.Label Label2
      Caption         =   "This is YoconTray------------>"
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   4200
      Visible         =   0   'False
      Width           =   1935
   End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub b1_Click(Index As Integer)
Select Case Index
Case 0
Form2.Show
Case 1
Form3.Show
Case 2
Form4.Show
End Select
End Sub
Private Sub b2_Click()
YoconTray1.AboutBox
End Sub
Private Sub b3_Click()
Unload Form1
End Sub
Private Sub YoconTray1_LeftButtonDown(ByVal ID As Integer)
Debug.Print "LeftButtonDown" & "   " & "ID=" & CStr(ID)
End Sub
Private Sub YoconTray1_LeftButtonUp(ByVal ID As Integer)
Debug.Print "LeftButtonUp" & "   " & "ID=" & CStr(ID)
End Sub
Private Sub YoconTray1_LeftClick(ByVal ID As Integer)
Debug.Print "LeftClick" & "   " & "ID=" & CStr(ID)
End Sub
Private Sub YoconTray1_LeftDoubleClick(ByVal ID As Integer)
Debug.Print "LeftDoubleClick" & "   " & "ID=" & CStr(ID)
End Sub
Private Sub YoconTray1_MiddleButtonDown(ByVal ID As Integer)
Debug.Print "MiddleButtonDown" & "   " & "ID=" & CStr(ID)
End Sub
Private Sub YoconTray1_MiddleButtonUp(ByVal ID As Integer)
Debug.Print "MiddleButtonUp" & "   " & "ID=" & CStr(ID)
End Sub
Private Sub YoconTray1_MiddleClick(ByVal ID As Integer)
Debug.Print "MiddleClick" & "   " & "ID=" & CStr(ID)
End Sub
Private Sub YoconTray1_MiddleDoubleClick(ByVal ID As Integer)
Debug.Print "MiddleDoubleClick" & "   " & "ID=" & CStr(ID)
End Sub
Private Sub YoconTray1_MouseMoves(ByVal ID As Integer)
Debug.Print "MouseMove" & "   " & "ID=" & CStr(ID)
End Sub
Private Sub YoconTray1_RightButtonDown(ByVal ID As Integer)
Debug.Print "RightButtonDown" & "   " & "ID=" & CStr(ID)
End Sub
Private Sub YoconTray1_RightButtonUp(ByVal ID As Integer)
Debug.Print "RightButtonUp" & "   " & "ID=" & CStr(ID)
End Sub
Private Sub YoconTray1_RightClick(ByVal ID As Integer)
Debug.Print "RightClick" & "   " & "ID=" & CStr(ID)
End Sub
Private Sub YoconTray1_RightDoubleClick(ByVal ID As Integer)
Debug.Print "RightDoubleClick" & "   " & "ID=" & CStr(ID)
End Sub