home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / yocontra / form3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-01-27  |  4.3 KB  |  145 lines
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Modify Icon"
  5.    ClientHeight    =   3915
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4785
  9.    LinkTopic       =   "Form3"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3915
  13.    ScaleWidth      =   4785
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.Frame Frame1 
  17.       Caption         =   "Icon"
  18.       Height          =   1095
  19.       Left            =   0
  20.       TabIndex        =   5
  21.       Top             =   720
  22.       Width           =   4575
  23.       Begin VB.OptionButton Option1 
  24.          Caption         =   "Use Form1.Icon"
  25.          Height          =   255
  26.          Left            =   240
  27.          TabIndex        =   8
  28.          Top             =   240
  29.          Width           =   1815
  30.       End
  31.       Begin VB.OptionButton Option2 
  32.          Caption         =   "Use file:"
  33.          Height          =   255
  34.          Left            =   240
  35.          TabIndex        =   7
  36.          Top             =   600
  37.          Width           =   975
  38.       End
  39.       Begin VB.TextBox Text3 
  40.          Height          =   330
  41.          Left            =   1320
  42.          TabIndex        =   6
  43.          Top             =   600
  44.          Width           =   2895
  45.       End
  46.    End
  47.    Begin VB.TextBox Text1 
  48.       Height          =   285
  49.       Left            =   1320
  50.       TabIndex        =   4
  51.       Top             =   2040
  52.       Width           =   495
  53.    End
  54.    Begin VB.TextBox Text2 
  55.       Height          =   285
  56.       Left            =   1320
  57.       TabIndex        =   3
  58.       Top             =   2520
  59.       Width           =   1935
  60.    End
  61.    Begin VB.CommandButton Command1 
  62.       Caption         =   "&OK"
  63.       Height          =   615
  64.       Left            =   120
  65.       TabIndex        =   2
  66.       Top             =   3000
  67.       Width           =   1335
  68.    End
  69.    Begin VB.CommandButton Command2 
  70.       Caption         =   "&Cancel"
  71.       Height          =   615
  72.       Left            =   1560
  73.       TabIndex        =   1
  74.       Top             =   3000
  75.       Width           =   1455
  76.    End
  77.    Begin VB.CommandButton Command3 
  78.       Caption         =   "&About"
  79.       Height          =   615
  80.       Left            =   3120
  81.       TabIndex        =   0
  82.       Top             =   3000
  83.       Width           =   1455
  84.    End
  85.    Begin VB.Label Label1 
  86.       Alignment       =   2  'Center
  87.       Caption         =   "Modify Icon"
  88.       BeginProperty Font 
  89.          Name            =   "MS Sans Serif"
  90.          Size            =   24
  91.          Charset         =   0
  92.          Weight          =   400
  93.          Underline       =   0   'False
  94.          Italic          =   0   'False
  95.          Strikethrough   =   0   'False
  96.       EndProperty
  97.       Height          =   495
  98.       Left            =   0
  99.       TabIndex        =   11
  100.       Top             =   0
  101.       Width           =   4575
  102.    End
  103.    Begin VB.Label Label2 
  104.       Caption         =   "ID:"
  105.       Height          =   255
  106.       Left            =   240
  107.       TabIndex        =   10
  108.       Top             =   2040
  109.       Width           =   375
  110.    End
  111.    Begin VB.Label Label3 
  112.       Caption         =   "Tooltip:"
  113.       Height          =   255
  114.       Left            =   240
  115.       TabIndex        =   9
  116.       Top             =   2520
  117.       Width           =   855
  118.    End
  119. Attribute VB_Name = "Form3"
  120. Attribute VB_GlobalNameSpace = False
  121. Attribute VB_Creatable = False
  122. Attribute VB_PredeclaredId = True
  123. Attribute VB_Exposed = False
  124. Private Sub Command1_Click()
  125. If Option1 = True Then Form1.YoconTray1.ModifyIcon CInt(Text1.Text), Form1.Icon.Handle, Text2.Text
  126. If Option2 = True Then Form1.YoconTray1.ModifyIcon CInt(Text1.Text), LoadPicture(Text3.Text).Handle, Text2.Text
  127. Unload Form3
  128. End Sub
  129. Private Sub Command2_Click()
  130. Unload Form3
  131. End Sub
  132. Private Sub Command3_Click()
  133. Form1.YoconTray1.AboutBox
  134. End Sub
  135. Private Sub Form_Load()
  136. Option1 = True
  137. Text3.Enabled = False
  138. End Sub
  139. Private Sub Option1_Click()
  140. If Option1 = True Then Text3.Enabled = False
  141. End Sub
  142. Private Sub Option2_Click()
  143. If Option2 = True Then Text3.Enabled = True
  144. End Sub
  145.