home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / A+_API1932579142005.psc / frmASCII.frm < prev    next >
Text File  |  2005-09-14  |  7KB  |  220 lines
  1. VERSION 5.00
  2. Begin VB.Form frmASCII 
  3.    BackColor       =   &H00E0E0E0&
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   " A+ API -ASCII"
  6.    ClientHeight    =   1815
  7.    ClientLeft      =   45
  8.    ClientTop       =   315
  9.    ClientWidth     =   4095
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1815
  14.    ScaleWidth      =   4095
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.Frame fraASCIII 
  18.       Appearance      =   0  'Flat
  19.       BackColor       =   &H00E0E0E0&
  20.       Caption         =   " ASCII Viewer "
  21.       BeginProperty Font 
  22.          Name            =   "Arial"
  23.          Size            =   8.25
  24.          Charset         =   0
  25.          Weight          =   400
  26.          Underline       =   0   'False
  27.          Italic          =   0   'False
  28.          Strikethrough   =   0   'False
  29.       EndProperty
  30.       ForeColor       =   &H80000008&
  31.       Height          =   1575
  32.       Left            =   120
  33.       TabIndex        =   0
  34.       Top             =   120
  35.       Width           =   3855
  36.       Begin VB.Label Label4 
  37.          Alignment       =   2  'Center
  38.          BackColor       =   &H00E0E0E0&
  39.          BackStyle       =   0  'Transparent
  40.          Caption         =   "Hit any key to see its' Information.  Click on a label to copy it to the Clip Board."
  41.          Height          =   375
  42.          Left            =   120
  43.          TabIndex        =   7
  44.          Top             =   1080
  45.          Width           =   3615
  46.       End
  47.       Begin VB.Label Label3 
  48.          AutoSize        =   -1  'True
  49.          BackColor       =   &H00E0E0E0&
  50.          Caption         =   "Character"
  51.          BeginProperty Font 
  52.             Name            =   "Arial"
  53.             Size            =   8.25
  54.             Charset         =   0
  55.             Weight          =   400
  56.             Underline       =   0   'False
  57.             Italic          =   0   'False
  58.             Strikethrough   =   0   'False
  59.          EndProperty
  60.          Height          =   210
  61.          Left            =   240
  62.          TabIndex        =   6
  63.          Top             =   240
  64.          Width           =   720
  65.       End
  66.       Begin VB.Label Label2 
  67.          AutoSize        =   -1  'True
  68.          BackColor       =   &H00E0E0E0&
  69.          Caption         =   "Key ASCII"
  70.          BeginProperty Font 
  71.             Name            =   "Arial"
  72.             Size            =   8.25
  73.             Charset         =   0
  74.             Weight          =   400
  75.             Underline       =   0   'False
  76.             Italic          =   0   'False
  77.             Strikethrough   =   0   'False
  78.          EndProperty
  79.          Height          =   210
  80.          Left            =   2880
  81.          TabIndex        =   5
  82.          Top             =   240
  83.          Width           =   720
  84.       End
  85.       Begin VB.Label Label1 
  86.          AutoSize        =   -1  'True
  87.          BackColor       =   &H00E0E0E0&
  88.          Caption         =   "Key Code"
  89.          BeginProperty Font 
  90.             Name            =   "Arial"
  91.             Size            =   8.25
  92.             Charset         =   0
  93.             Weight          =   400
  94.             Underline       =   0   'False
  95.             Italic          =   0   'False
  96.             Strikethrough   =   0   'False
  97.          EndProperty
  98.          Height          =   210
  99.          Left            =   1680
  100.          TabIndex        =   4
  101.          Top             =   240
  102.          Width           =   705
  103.       End
  104.       Begin VB.Label lblChar 
  105.          Alignment       =   2  'Center
  106.          BackColor       =   &H00E0E0E0&
  107.          BorderStyle     =   1  'Fixed Single
  108.          BeginProperty Font 
  109.             Name            =   "Arial"
  110.             Size            =   18
  111.             Charset         =   0
  112.             Weight          =   400
  113.             Underline       =   0   'False
  114.             Italic          =   0   'False
  115.             Strikethrough   =   0   'False
  116.          EndProperty
  117.          Height          =   495
  118.          Left            =   120
  119.          TabIndex        =   3
  120.          ToolTipText     =   " Regular Character "
  121.          Top             =   480
  122.          Width           =   975
  123.       End
  124.       Begin VB.Label lblKASCII 
  125.          Alignment       =   2  'Center
  126.          BackColor       =   &H00E0E0E0&
  127.          BorderStyle     =   1  'Fixed Single
  128.          BeginProperty Font 
  129.             Name            =   "Arial"
  130.             Size            =   18
  131.             Charset         =   0
  132.             Weight          =   400
  133.             Underline       =   0   'False
  134.             Italic          =   0   'False
  135.             Strikethrough   =   0   'False
  136.          EndProperty
  137.          Height          =   495
  138.          Left            =   2760
  139.          TabIndex        =   2
  140.          ToolTipText     =   " Character ASCII Code "
  141.          Top             =   480
  142.          Width           =   975
  143.       End
  144.       Begin VB.Label lblKC 
  145.          Alignment       =   2  'Center
  146.          BackColor       =   &H00E0E0E0&
  147.          BorderStyle     =   1  'Fixed Single
  148.          BeginProperty Font 
  149.             Name            =   "Arial"
  150.             Size            =   18
  151.             Charset         =   0
  152.             Weight          =   400
  153.             Underline       =   0   'False
  154.             Italic          =   0   'False
  155.             Strikethrough   =   0   'False
  156.          EndProperty
  157.          Height          =   495
  158.          Left            =   1560
  159.          TabIndex        =   1
  160.          ToolTipText     =   " Character Key Code "
  161.          Top             =   480
  162.          Width           =   975
  163.       End
  164.    End
  165. End
  166. Attribute VB_Name = "frmASCII"
  167. Attribute VB_GlobalNameSpace = False
  168. Attribute VB_Creatable = False
  169. Attribute VB_PredeclaredId = True
  170. Attribute VB_Exposed = False
  171. Private Sub cmdDone_Click()
  172.  
  173.     frmASCII.Hide
  174.  
  175. End Sub
  176.  
  177. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  178.  
  179.     lblKC.Caption = KeyCode
  180.     
  181. End Sub
  182.  
  183. Private Sub Form_KeyPress(KeyAscii As Integer)
  184.    
  185.    lblKASCII = KeyAscii
  186.    
  187.    lblChar = Chr$(KeyAscii)
  188.  
  189. End Sub
  190.  
  191. Private Sub Form_Load()
  192.     
  193.     SetWindowPos hWnd, conHwndTopmost, 100, 100, 280, 155, conSwpNoActivate Or conSwpShowWindow
  194.         
  195. End Sub
  196.  
  197. Private Sub Form_LostFocus()
  198.  
  199.     Unload Me
  200.     
  201. End Sub
  202.  
  203. Private Sub lblChar_Click()
  204.  
  205.     Clipboard.SetText lblChar.Caption
  206.     
  207. End Sub
  208.  
  209. Private Sub lblKASCII_Click()
  210.  
  211.     Clipboard.SetText lblKASCII.Caption
  212.     
  213. End Sub
  214.  
  215. Private Sub lblKC_Click()
  216.  
  217.     Clipboard.SetText lblKC.Caption
  218.     
  219. End Sub
  220.