home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / myttips / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1996-11-20  |  6.9 KB  |  207 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "My ToolTips Version"
  4.    ClientHeight    =   5820
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7365
  8.    Height          =   6225
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5820
  12.    ScaleWidth      =   7365
  13.    Top             =   1140
  14.    Width           =   7485
  15.    Begin CommandButton Command1 
  16.       Caption         =   "Click remove Delete Button from ToolTips List"
  17.       Height          =   555
  18.       Left            =   1230
  19.       TabIndex        =   2
  20.       Top             =   750
  21.       Width           =   4755
  22.    End
  23.    Begin SSPanel StatBar 
  24.       Align           =   2  'Align Bottom
  25.       Alignment       =   1  'Left Justify - MIDDLE
  26.       BevelInner      =   1  'Inset
  27.       BorderWidth     =   1
  28.       FontBold        =   0   'False
  29.       FontItalic      =   0   'False
  30.       FontName        =   "MS Sans Serif"
  31.       FontSize        =   8.25
  32.       FontStrikethru  =   0   'False
  33.       FontUnderline   =   0   'False
  34.       Height          =   375
  35.       Left            =   0
  36.       Outline         =   -1  'True
  37.       RoundedCorners  =   0   'False
  38.       TabIndex        =   1
  39.       Top             =   5445
  40.       Width           =   7365
  41.    End
  42.    Begin SSPanel DataTBar 
  43.       Align           =   1  'Align Top
  44.       BorderWidth     =   1
  45.       Height          =   465
  46.       Left            =   0
  47.       Outline         =   -1  'True
  48.       RoundedCorners  =   0   'False
  49.       TabIndex        =   0
  50.       Top             =   0
  51.       Width           =   7365
  52.       Begin SSRibbon tbNewButton 
  53.          AutoSize        =   0  'None
  54.          GroupNumber     =   0
  55.          Height          =   330
  56.          Left            =   60
  57.          PictureDisabled =   FORM1.FRX:0000
  58.          PictureUp       =   FORM1.FRX:00FA
  59.          Top             =   60
  60.          Width           =   330
  61.       End
  62.       Begin SSRibbon tbFindButton 
  63.          AutoSize        =   0  'None
  64.          GroupNumber     =   0
  65.          Height          =   330
  66.          Left            =   810
  67.          PictureDisabled =   FORM1.FRX:01F4
  68.          PictureUp       =   FORM1.FRX:02EE
  69.          Top             =   60
  70.          Width           =   330
  71.       End
  72.       Begin SSRibbon tbRefreshButton 
  73.          AutoSize        =   0  'None
  74.          GroupNumber     =   0
  75.          Height          =   330
  76.          Left            =   1140
  77.          PictureDisabled =   FORM1.FRX:03E8
  78.          PictureUp       =   FORM1.FRX:04E2
  79.          Top             =   60
  80.          Width           =   330
  81.       End
  82.       Begin SSRibbon tbPreviousButton 
  83.          AutoSize        =   0  'None
  84.          GroupNumber     =   0
  85.          Height          =   330
  86.          Left            =   1920
  87.          PictureDisabled =   FORM1.FRX:05DC
  88.          PictureUp       =   FORM1.FRX:075E
  89.          Top             =   60
  90.          Width           =   330
  91.       End
  92.       Begin SSRibbon tbNextButton 
  93.          AutoSize        =   0  'None
  94.          GroupNumber     =   0
  95.          Height          =   330
  96.          Left            =   2250
  97.          PictureDisabled =   FORM1.FRX:08E0
  98.          PictureUp       =   FORM1.FRX:0A62
  99.          Top             =   60
  100.          Width           =   330
  101.       End
  102.       Begin SSRibbon tbUpdateButton 
  103.          AutoSize        =   0  'None
  104.          GroupNumber     =   0
  105.          Height          =   330
  106.          Left            =   390
  107.          PictureDisabled =   FORM1.FRX:0BE4
  108.          PictureUp       =   FORM1.FRX:0CDE
  109.          Top             =   60
  110.          Width           =   360
  111.       End
  112.       Begin SSRibbon tbDeleteButton 
  113.          AutoSize        =   0  'None
  114.          GroupNumber     =   0
  115.          Height          =   330
  116.          Left            =   2970
  117.          PictureDisabled =   FORM1.FRX:0DD8
  118.          PictureUp       =   FORM1.FRX:0F5A
  119.          Top             =   60
  120.          Width           =   330
  121.       End
  122.       Begin SSRibbon tbPrintButton 
  123.          AutoSize        =   0  'None
  124.          GroupNumber     =   0
  125.          Height          =   330
  126.          Left            =   1530
  127.          PictureDisabled =   FORM1.FRX:10DC
  128.          PictureUp       =   FORM1.FRX:11D6
  129.          Top             =   60
  130.          Width           =   330
  131.       End
  132.       Begin SSRibbon tbUndoButton 
  133.          AutoSize        =   0  'None
  134.          GroupNumber     =   0
  135.          Height          =   330
  136.          Left            =   2640
  137.          PictureDisabled =   FORM1.FRX:12D0
  138.          PictureUp       =   FORM1.FRX:13CA
  139.          Top             =   60
  140.          Width           =   330
  141.       End
  142.       Begin SSRibbon tbFkey 
  143.          AutoSize        =   1  'Adjust Picture Size To Button
  144.          GroupNumber     =   0
  145.          Height          =   330
  146.          Left            =   3780
  147.          PictureUp       =   FORM1.FRX:14C4
  148.          Top             =   60
  149.          Value           =   -1  'True
  150.          Width           =   360
  151.       End
  152.       Begin SSRibbon tbMasterDetailButton 
  153.          AutoSize        =   1  'Adjust Picture Size To Button
  154.          GroupNumber     =   0
  155.          Height          =   330
  156.          Left            =   3360
  157.          PictureUp       =   FORM1.FRX:1646
  158.          Top             =   60
  159.          Visible         =   0   'False
  160.          Width           =   360
  161.       End
  162.    End
  163.    Begin Label Label1 
  164.       Height          =   2835
  165.       Left            =   1200
  166.       TabIndex        =   3
  167.       Top             =   1800
  168.       Width           =   4815
  169.    End
  170. Sub Command1_Click ()
  171. Static Status
  172. If Status = False Then
  173.     RemoveTip Me.tbDeleteButton.hWnd
  174.     Me.Command1.Caption = "Click add Delete Button to Tooltips list"
  175.     Status = True
  176.     AddTip Me.tbDeleteButton.hWnd, "Delete (F3)", ""
  177.     Me.Command1.Caption = "Click remove Delete Button from Tooltips list"
  178.     Status = False
  179. End If
  180. End Sub
  181. Sub DataTBar_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  182. DisplayTips
  183. End Sub
  184. Sub Form_Activate ()
  185. InitializeTips
  186. AddTip Me.tbNewButton.hWnd, "New (F2)", "Help for New Button......"
  187. AddTip Me.tbDeleteButton.hWnd, "Delete (F3)", ""
  188. AddTip Me.tbPreviousButton.hWnd, "Previous(F6)", ""
  189. AddTip Me.tbNextButton.hWnd, "Next (F7)", ""
  190. AddTip Me.tbFindButton.hWnd, "Find (F4)", ""
  191. AddTip Me.tbRefreshButton.hWnd, "Refresh (F5)", ""
  192. AddTip Me.tbPrintButton.hWnd, "Print (F8)", ""
  193. AddTip Me.tbUndoButton.hWnd, "Undo (F9)", ""
  194. AddTip Me.tbUpdateButton.hWnd, "Update (F10)", ""
  195. End Sub
  196. Sub Form_Load ()
  197. msg$ = "MyToolTips Version" & Chr$(10)
  198. msg$ = msg$ & "A FREEWARE VB source code only ToolTips System" & Chr$(10)
  199. msg$ = msg$ & "(c) 1996 Gabriele Del Giovine" & Chr$(10)
  200. msg$ = msg$ & "e-mail mc6491@mclink.it" & Chr$(10)
  201. msg$ = msg$ & "COMPUSERVE 72660,1344" & Chr$(10)
  202. label1 = msg$
  203. End Sub
  204. Sub Form_Unload (Cancel As Integer)
  205. Unload TTips
  206. End Sub
  207.