home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / winontop / palette.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-02  |  5.2 KB  |  170 lines
  1. VERSION 2.00
  2. Begin Form frmPalette 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Palette"
  5.    ClientHeight    =   2295
  6.    ClientLeft      =   1635
  7.    ClientTop       =   2490
  8.    ClientWidth     =   1935
  9.    ControlBox      =   0   'False
  10.    Height          =   2700
  11.    Left            =   1575
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2295
  16.    ScaleWidth      =   1935
  17.    Top             =   2145
  18.    Width           =   2055
  19.    Begin CommandButton cmdQuit 
  20.       Caption         =   "Quit"
  21.       FontBold        =   0   'False
  22.       FontItalic      =   0   'False
  23.       FontName        =   "MS Sans Serif"
  24.       FontSize        =   8.25
  25.       FontStrikethru  =   0   'False
  26.       FontUnderline   =   0   'False
  27.       Height          =   375
  28.       Left            =   120
  29.       TabIndex        =   7
  30.       Top             =   1800
  31.       Width           =   1695
  32.    End
  33.    Begin CommandButton cmdDataCntrl 
  34.       Caption         =   ">|"
  35.       Enabled         =   0   'False
  36.       Height          =   375
  37.       Index           =   3
  38.       Left            =   1320
  39.       TabIndex        =   5
  40.       Top             =   1080
  41.       Width           =   495
  42.    End
  43.    Begin CommandButton cmdDataCntrl 
  44.       Caption         =   ">"
  45.       Enabled         =   0   'False
  46.       Height          =   375
  47.       Index           =   2
  48.       Left            =   960
  49.       TabIndex        =   4
  50.       Top             =   1080
  51.       Width           =   375
  52.    End
  53.    Begin CommandButton cmdDataCntrl 
  54.       Caption         =   "<"
  55.       Enabled         =   0   'False
  56.       Height          =   375
  57.       Index           =   1
  58.       Left            =   600
  59.       TabIndex        =   3
  60.       Top             =   1080
  61.       Width           =   375
  62.    End
  63.    Begin CommandButton cmdDataCntrl 
  64.       Caption         =   "|<"
  65.       Enabled         =   0   'False
  66.       Height          =   375
  67.       Index           =   0
  68.       Left            =   120
  69.       TabIndex        =   2
  70.       Top             =   1080
  71.       Width           =   495
  72.    End
  73.    Begin CommandButton cmdCloseData 
  74.       Caption         =   "Close Data Window"
  75.       Enabled         =   0   'False
  76.       FontBold        =   0   'False
  77.       FontItalic      =   0   'False
  78.       FontName        =   "MS Sans Serif"
  79.       FontSize        =   8.25
  80.       FontStrikethru  =   0   'False
  81.       FontUnderline   =   0   'False
  82.       Height          =   375
  83.       Left            =   120
  84.       TabIndex        =   1
  85.       Top             =   600
  86.       Width           =   1695
  87.    End
  88.    Begin CommandButton cmdOpenData 
  89.       Caption         =   "Open Data Window"
  90.       FontBold        =   0   'False
  91.       FontItalic      =   0   'False
  92.       FontName        =   "MS Sans Serif"
  93.       FontSize        =   8.25
  94.       FontStrikethru  =   0   'False
  95.       FontUnderline   =   0   'False
  96.       Height          =   375
  97.       Left            =   120
  98.       TabIndex        =   0
  99.       Top             =   120
  100.       Width           =   1695
  101.    End
  102.    Begin Label lblMove 
  103.       Alignment       =   2  'Center
  104.       BackColor       =   &H00C0C0C0&
  105.       FontBold        =   0   'False
  106.       FontItalic      =   0   'False
  107.       FontName        =   "MS Sans Serif"
  108.       FontSize        =   8.25
  109.       FontStrikethru  =   0   'False
  110.       FontUnderline   =   0   'False
  111.       Height          =   195
  112.       Left            =   0
  113.       TabIndex        =   6
  114.       Top             =   1560
  115.       Width           =   1935
  116.    End
  117. Option Explicit
  118. Sub cmdCloseData_Click ()
  119.     frmData.Hide
  120.     EnableButtons False
  121. End Sub
  122. Sub cmdDataCntrl_Click (Index As Integer)
  123.     Select Case Index
  124.         Case 0
  125.             frmData.lblMove.Caption = "Moving to First Record"
  126.         Case 1
  127.             frmData.lblMove.Caption = "Moving to Previous Record"
  128.         Case 2
  129.             frmData.lblMove.Caption = "Moving to Next Record"
  130.         Case 3
  131.             frmData.lblMove.Caption = "Moving to Last Record"
  132.     End Select
  133. End Sub
  134. Sub cmdDataCntrl_MouseMove (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  135.     Select Case Index
  136.         Case 0
  137.             lblMove.Caption = "Move to First Record"
  138.         Case 1
  139.             lblMove.Caption = "Move to Previous Record"
  140.         Case 2
  141.             lblMove.Caption = "Move to Next Record"
  142.         Case 3
  143.             lblMove.Caption = "Move to Last Record"
  144.     End Select
  145. End Sub
  146. Sub cmdEnterData_Click ()
  147. End Sub
  148. Sub cmdOpenData_Click ()
  149.     frmData.lblMove.Caption = ""
  150.     frmData.Show
  151.     EnableButtons True
  152. End Sub
  153. Sub cmdQuit_Click ()
  154.     End
  155. End Sub
  156. Sub Form_Load ()
  157.     'Load the Data Entry form so redraws will be faster
  158.     Load frmData
  159. End Sub
  160. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  161.     lblMove.Caption = ""
  162. End Sub
  163. Sub Form_Resize ()
  164.     Dim success%
  165.     'This statement will make the window NOT the topmost
  166.     'success% = SetWindowPos(Form1.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
  167.     'This statement will make the window the topmost
  168.     success% = SetWindowPos(frmPalette.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
  169. End Sub
  170.