开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多国语言处理 > 查看源码
Form1.frm
资源名称：unicode码转换.rar　[点击查看]
上传用户：d13567
上传日期：2010-01-16
资源大小：3k
文件大小：2k
源码类别：

多国语言处理

开发平台：

Visual Basic

Form1.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   6075
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   8310
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   6075
  10.    ScaleWidth      =   8310
  11.    StartUpPosition =   3  '窗口缺省
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "确定"
  14.       BeginProperty Font 
  15.          Name            =   "宋体"
  16.          Size            =   26.25
  17.          Charset         =   134
  18.          Weight          =   700
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   1095
  24.       Left            =   960
  25.       TabIndex        =   0
  26.       Top             =   1560
  27.       Width           =   2655
  28.    End
  29.    Begin VB.Label Label2 
  30.       Caption         =   "输入密码解锁"
  31.       BeginProperty Font 
  32.          Name            =   "宋体"
  33.          Size            =   24
  34.          Charset         =   134
  35.          Weight          =   700
  36.          Underline       =   0   'False
  37.          Italic          =   -1  'True
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       Height          =   735
  41.       Left            =   360
  42.       TabIndex        =   2
  43.       Top             =   3000
  44.       Width           =   4335
  45.    End
  46.    Begin VB.Label Label1 
  47.       Caption         =   "按下“确定“锁定计算机"
  48.       BeginProperty Font 
  49.          Name            =   "宋体"
  50.          Size            =   18
  51.          Charset         =   134
  52.          Weight          =   700
  53.          Underline       =   0   'False
  54.          Italic          =   -1  'True
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   855
  58.       Left            =   240
  59.       TabIndex        =   1
  60.       Top             =   240
  61.       Width           =   4575
  62.    End
  63. End
  64. Attribute VB_Name = "Form1"
  65. Attribute VB_GlobalNameSpace = False
  66. Attribute VB_Creatable = False
  67. Attribute VB_PredeclaredId = True
  68. Attribute VB_Exposed = False
  69. Private Sub Command1_Click()
  70. Dim r As RECT
  71. r.Left = 0
  72. r.Top = 0
  73. r.Right = 12222
  74. r.Bottom = 122222
  75. ClipCursor r
  77. End Sub
  79. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  80. 'if keycode =
  81. Form1.Print KeyCode
  85. End Sub