home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c480 / 21.ddi / KEYBRD.FR_ / KEYBRD.bin (.txt)
Encoding:
Visual Basic Form  |  1993-02-14  |  13.8 KB  |  411 lines
  1. VERSION 2.00
  2. Begin Form KeyBrdFrm 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "On-Screen Keyboard Button Sample"
  6.    ControlBox      =   0   'False
  7.    Height          =   6255
  8.    Left            =   135
  9.    LinkMode        =   1  'Source
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   390
  14.    ScaleMode       =   3  'Pixel
  15.    ScaleWidth      =   612
  16.    Top             =   195
  17.    Width           =   9300
  18.    Begin SKBButton SKB1 
  19.       Height          =   2055
  20.       Left            =   6840
  21.       Picture         =   KEYBRD.FRX:0000
  22.       SKBType         =   1  'Basic Keyboard
  23.       Top             =   1320
  24.       Version         =   268435458
  25.       Width           =   2055
  26.    End
  27.    Begin PictureBox Picture1 
  28.       BackColor       =   &H00C0C0C0&
  29.       Height          =   975
  30.       Index           =   0
  31.       Left            =   240
  32.       ScaleHeight     =   945
  33.       ScaleWidth      =   8745
  34.       TabIndex        =   4
  35.       TabStop         =   0   'False
  36.       Top             =   120
  37.       Width           =   8775
  38.       Begin Label Label1 
  39.          Alignment       =   2  'Center
  40.          BackColor       =   &H00C0C0C0&
  41.          Caption         =   "Windows for Pens provides an on-screen keyboard that may be displayed at any time.  In this demonstration, tap the SKB Button to make the keyboard appear below the control that has the focus."
  42.          FontBold        =   -1  'True
  43.          FontItalic      =   0   'False
  44.          FontName        =   "MS Sans Serif"
  45.          FontSize        =   9.75
  46.          FontStrikethru  =   0   'False
  47.          FontUnderline   =   0   'False
  48.          ForeColor       =   &H00000000&
  49.          Height          =   735
  50.          Index           =   0
  51.          Left            =   540
  52.          TabIndex        =   5
  53.          Top             =   120
  54.          Width           =   7635
  55.       End
  56.    End
  57.    Begin TextBox Text1 
  58.       BackColor       =   &H00FFFFFF&
  59.       FontBold        =   -1  'True
  60.       FontItalic      =   0   'False
  61.       FontName        =   "MS Sans Serif"
  62.       FontSize        =   12
  63.       FontStrikethru  =   0   'False
  64.       FontUnderline   =   0   'False
  65.       ForeColor       =   &H00000000&
  66.       Height          =   495
  67.       Left            =   360
  68.       TabIndex        =   0
  69.       Text            =   "Text1"
  70.       Top             =   1320
  71.       Width           =   6255
  72.    End
  73.    Begin VHedit HEdit1 
  74.       BackColor       =   &H00FFFFFF&
  75.       FontBold        =   -1  'True
  76.       FontItalic      =   0   'False
  77.       FontName        =   "MS Sans Serif"
  78.       FontSize        =   12
  79.       FontStrikethru  =   0   'False
  80.       FontUnderline   =   0   'False
  81.       ForeColor       =   &H00000000&
  82.       Height          =   495
  83.       InflateBottom   =   18
  84.       InflateLeft     =   18
  85.       InflateRight    =   18
  86.       InflateTop      =   18
  87.       Left            =   360
  88.       TabIndex        =   1
  89.       Text            =   "HEdit1"
  90.       Top             =   2040
  91.       Version         =   268435458
  92.       Width           =   6255
  93.    End
  94.    Begin VBedit BEdit1 
  95.       BackColor       =   &H00FFFFFF&
  96.       BorderStyle     =   1  'Fixed Single
  97.       CellHeight      =   32
  98.       CellWidth       =   24
  99.       CombBaseLine    =   26
  100.       CombColor       =   &H00000000&
  101.       CombEndHeight   =   8
  102.       CombHeight      =   4
  103.       FontBold        =   -1  'True
  104.       FontItalic      =   0   'False
  105.       FontName        =   "MS Sans Serif"
  106.       FontSize        =   12
  107.       FontStrikethru  =   0   'False
  108.       FontUnderline   =   0   'False
  109.       ForeColor       =   &H00000000&
  110.       Height          =   615
  111.       InflateBottom   =   12
  112.       InflateLeft     =   12
  113.       InflateRight    =   12
  114.       InflateTop      =   16
  115.       Left            =   360
  116.       TabIndex        =   2
  117.       Text            =   "BEdit1"
  118.       Top             =   2760
  119.       Version         =   268435458
  120.       Width           =   6255
  121.    End
  122.    Begin PictureBox Picture2 
  123.       BackColor       =   &H00C0C0C0&
  124.       Height          =   1395
  125.       Left            =   120
  126.       ScaleHeight     =   1365
  127.       ScaleWidth      =   8865
  128.       TabIndex        =   6
  129.       TabStop         =   0   'False
  130.       Top             =   3720
  131.       Width           =   8895
  132.       Begin CommandButton QueryKeyBrd 
  133.          Caption         =   "Query  Keyboard "
  134.          Height          =   1095
  135.          Left            =   6240
  136.          TabIndex        =   3
  137.          Top             =   120
  138.          Width           =   2475
  139.       End
  140.       Begin Label KBhWnd 
  141.          BackColor       =   &H00FFFFFF&
  142.          BorderStyle     =   1  'Fixed Single
  143.          FontBold        =   -1  'True
  144.          FontItalic      =   0   'False
  145.          FontName        =   "MS Sans Serif"
  146.          FontSize        =   9.75
  147.          FontStrikethru  =   0   'False
  148.          FontUnderline   =   0   'False
  149.          ForeColor       =   &H00000000&
  150.          Height          =   375
  151.          Left            =   1440
  152.          TabIndex        =   13
  153.          Top             =   120
  154.          Width           =   1455
  155.       End
  156.       Begin Label KBMinimized 
  157.          BackColor       =   &H00FFFFFF&
  158.          BorderStyle     =   1  'Fixed Single
  159.          FontBold        =   -1  'True
  160.          FontItalic      =   0   'False
  161.          FontName        =   "MS Sans Serif"
  162.          FontSize        =   9.75
  163.          FontStrikethru  =   0   'False
  164.          FontUnderline   =   0   'False
  165.          ForeColor       =   &H00000000&
  166.          Height          =   375
  167.          Left            =   4560
  168.          TabIndex        =   16
  169.          Top             =   120
  170.          Width           =   1455
  171.       End
  172.       Begin Label Label2 
  173.          Alignment       =   1  'Right Justify
  174.          BackColor       =   &H00C0C0C0&
  175.          Caption         =   "KB hWnd"
  176.          FontBold        =   -1  'True
  177.          FontItalic      =   0   'False
  178.          FontName        =   "MS Sans Serif"
  179.          FontSize        =   9.75
  180.          FontStrikethru  =   0   'False
  181.          FontUnderline   =   0   'False
  182.          ForeColor       =   &H00000000&
  183.          Height          =   255
  184.          Index           =   0
  185.          Left            =   120
  186.          TabIndex        =   7
  187.          Top             =   240
  188.          Width           =   1095
  189.       End
  190.       Begin Label Label2 
  191.          Alignment       =   1  'Right Justify
  192.          BackColor       =   &H00C0C0C0&
  193.          Caption         =   "Minimized"
  194.          FontBold        =   -1  'True
  195.          FontItalic      =   0   'False
  196.          FontName        =   "MS Sans Serif"
  197.          FontSize        =   9.75
  198.          FontStrikethru  =   0   'False
  199.          FontUnderline   =   0   'False
  200.          ForeColor       =   &H00000000&
  201.          Height          =   255
  202.          Index           =   3
  203.          Left            =   3120
  204.          TabIndex        =   10
  205.          Top             =   240
  206.          Width           =   1335
  207.       End
  208.       Begin Label KBStyle 
  209.          BackColor       =   &H00FFFFFF&
  210.          BorderStyle     =   1  'Fixed Single
  211.          FontBold        =   -1  'True
  212.          FontItalic      =   0   'False
  213.          FontName        =   "MS Sans Serif"
  214.          FontSize        =   9.75
  215.          FontStrikethru  =   0   'False
  216.          FontUnderline   =   0   'False
  217.          ForeColor       =   &H00000000&
  218.          Height          =   375
  219.          Left            =   1440
  220.          TabIndex        =   14
  221.          Top             =   480
  222.          Width           =   1455
  223.       End
  224.       Begin Label KBLeft 
  225.          BackColor       =   &H00FFFFFF&
  226.          BorderStyle     =   1  'Fixed Single
  227.          FontBold        =   -1  'True
  228.          FontItalic      =   0   'False
  229.          FontName        =   "MS Sans Serif"
  230.          FontSize        =   9.75
  231.          FontStrikethru  =   0   'False
  232.          FontUnderline   =   0   'False
  233.          ForeColor       =   &H00000000&
  234.          Height          =   375
  235.          Left            =   4560
  236.          TabIndex        =   18
  237.          Top             =   480
  238.          Width           =   1455
  239.       End
  240.       Begin Label Label2 
  241.          Alignment       =   1  'Right Justify
  242.          BackColor       =   &H00C0C0C0&
  243.          Caption         =   "SKBType"
  244.          FontBold        =   -1  'True
  245.          FontItalic      =   0   'False
  246.          FontName        =   "MS Sans Serif"
  247.          FontSize        =   9.75
  248.          FontStrikethru  =   0   'False
  249.          FontUnderline   =   0   'False
  250.          ForeColor       =   &H00000000&
  251.          Height          =   255
  252.          Index           =   1
  253.          Left            =   120
  254.          TabIndex        =   8
  255.          Top             =   600
  256.          Width           =   1095
  257.       End
  258.       Begin Label Label2 
  259.          Alignment       =   1  'Right Justify
  260.          BackColor       =   &H00C0C0C0&
  261.          Caption         =   "Left"
  262.          FontBold        =   -1  'True
  263.          FontItalic      =   0   'False
  264.          FontName        =   "MS Sans Serif"
  265.          FontSize        =   9.75
  266.          FontStrikethru  =   0   'False
  267.          FontUnderline   =   0   'False
  268.          ForeColor       =   &H00000000&
  269.          Height          =   255
  270.          Index           =   5
  271.          Left            =   3120
  272.          TabIndex        =   11
  273.          Top             =   600
  274.          Width           =   1335
  275.       End
  276.       Begin Label KBVisible 
  277.          BackColor       =   &H00FFFFFF&
  278.          BorderStyle     =   1  'Fixed Single
  279.          FontBold        =   -1  'True
  280.          FontItalic      =   0   'False
  281.          FontName        =   "MS Sans Serif"
  282.          FontSize        =   9.75
  283.          FontStrikethru  =   0   'False
  284.          FontUnderline   =   0   'False
  285.          ForeColor       =   &H00000000&
  286.          Height          =   375
  287.          Left            =   1440
  288.          TabIndex        =   15
  289.          Top             =   840
  290.          Width           =   1455
  291.       End
  292.       Begin Label KBTop 
  293.          BackColor       =   &H00FFFFFF&
  294.          BorderStyle     =   1  'Fixed Single
  295.          FontBold        =   -1  'True
  296.          FontItalic      =   0   'False
  297.          FontName        =   "MS Sans Serif"
  298.          FontSize        =   9.75
  299.          FontStrikethru  =   0   'False
  300.          FontUnderline   =   0   'False
  301.          ForeColor       =   &H00000000&
  302.          Height          =   375
  303.          Left            =   4560
  304.          TabIndex        =   17
  305.          Top             =   840
  306.          Width           =   1455
  307.       End
  308.       Begin Label Label2 
  309.          Alignment       =   1  'Right Justify
  310.          BackColor       =   &H00C0C0C0&
  311.          Caption         =   "SKBVisible"
  312.          FontBold        =   -1  'True
  313.          FontItalic      =   0   'False
  314.          FontName        =   "MS Sans Serif"
  315.          FontSize        =   9.75
  316.          FontStrikethru  =   0   'False
  317.          FontUnderline   =   0   'False
  318.          ForeColor       =   &H00000000&
  319.          Height          =   255
  320.          Index           =   2
  321.          Left            =   0
  322.          TabIndex        =   9
  323.          Top             =   960
  324.          Width           =   1215
  325.       End
  326.       Begin Label Label2 
  327.          Alignment       =   1  'Right Justify
  328.          BackColor       =   &H00C0C0C0&
  329.          Caption         =   "Top"
  330.          FontBold        =   -1  'True
  331.          FontItalic      =   0   'False
  332.          FontName        =   "MS Sans Serif"
  333.          FontSize        =   9.75
  334.          FontStrikethru  =   0   'False
  335.          FontUnderline   =   0   'False
  336.          ForeColor       =   &H00000000&
  337.          Height          =   255
  338.          Index           =   6
  339.          Left            =   3120
  340.          TabIndex        =   12
  341.          Top             =   960
  342.          Width           =   1335
  343.       End
  344.    End
  345.    Begin CommandButton ExitButton 
  346.       Caption         =   "Return to Main Menu"
  347.       FontBold        =   -1  'True
  348.       FontItalic      =   0   'False
  349.       FontName        =   "MS Sans Serif"
  350.       FontSize        =   9.75
  351.       FontStrikethru  =   0   'False
  352.       FontUnderline   =   0   'False
  353.       Height          =   495
  354.       Left            =   120
  355.       TabIndex        =   19
  356.       Top             =   5220
  357.       Width           =   8895
  358.    End
  359. Sub BEdit1_GotFocus ()
  360.     If (SKB1.SKBVisible = False) Then
  361.         SKB1.SKBLeft = BEdit1.Left
  362.         SKB1.SKBTop = BEdit1.Top + BEdit1.Height + 5
  363.     End If
  364. End Sub
  365. Sub ExitButton_Click ()
  366.     MainFrm.Show
  367.     KeyBrdFrm.Hide
  368.     SKB1.SKBVisible = False
  369. End Sub
  370. Sub Form_Load ()
  371.     SKB1.SKBLeft = HEdit1.Left
  372.     SKB1.SKBTop = HEdit1.Top + HEdit1.Height + 5
  373. End Sub
  374. Sub HEdit1_GotFocus ()
  375.     If (SKB1.SKBVisible = False) Then
  376.         SKB1.SKBLeft = HEdit1.Left
  377.         SKB1.SKBTop = HEdit1.Top + HEdit1.Height + 5
  378.     End If
  379. End Sub
  380. Sub QueryKeyBrd_Click ()
  381.     Rem -- Query the keyboard for status properties
  382.     KBhWnd.Caption = " &&h" + Hex$(SKB1.hWnd)
  383.     KBStyle.Caption = " " + Str$(SKB1.SKBTypeStatus)
  384.      
  385.     If (SKB1.SKBVisibleStatus) Then
  386.         KBVisible.Caption = " True"
  387.     Else
  388.         KBVisible.Caption = " False"
  389.     End If
  390.     If (SKB1.SKBMinStatus) Then
  391.         KBMinimized.Caption = " True"
  392.     Else
  393.         KBMinimized.Caption = " False"
  394.     End If
  395.      
  396.     On Error GoTo ErrTrap
  397.     KBLeft.Caption = Str$(SKB1.SKBLeftStatus)
  398.     KBTop.Caption = Str$(SKB1.SKBTopStatus)
  399.     Exit Sub
  400. ErrTrap:
  401.     KBLeft.Caption = " 0"
  402.     KBTop.Caption = " 0"
  403.     Exit Sub
  404. End Sub
  405. Sub Text1_GotFocus ()
  406.     If (SKB1.SKBVisible = False) Then
  407.         SKB1.SKBLeft = Text1.Left
  408.         SKB1.SKBTop = Text1.Top + Text1.Height + 5
  409.     End If
  410. End Sub
  411.