www.pudn.com > textmanager.rar > Frmscore.frm, change:2005-04-12,size:4853b


VERSION 5.00 
Begin VB.Form Frmscore  
   BorderStyle     =   0  'None 
   Caption         =   "Form1" 
   ClientHeight    =   945 
   ClientLeft      =   0 
   ClientTop       =   0 
   ClientWidth     =   3915 
   LinkTopic       =   "Form1" 
   LockControls    =   -1  'True 
   ScaleHeight     =   945 
   ScaleWidth      =   3915 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.TextBox TxTScore  
      Appearance      =   0  'Flat 
      BackColor       =   &H00E0E0E0& 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   360 
      Left            =   2580 
      TabIndex        =   0 
      Top             =   105 
      Width           =   1260 
   End 
   Begin VB.Label Labesc  
      BackStyle       =   0  'Transparent 
      Caption         =   "取消" 
      BeginProperty Font  
         Name            =   "楷体_GB2312" 
         Size            =   14.25 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00C00000& 
      Height          =   315 
      Left            =   3195 
      MouseIcon       =   "Frmscore.frx":0000 
      MousePointer    =   99  'Custom 
      TabIndex        =   3 
      Top             =   570 
      Width           =   660 
   End 
   Begin VB.Shape Shape4  
      BackColor       =   &H00C0FFC0& 
      BackStyle       =   1  'Opaque 
      Height          =   345 
      Left            =   3165 
      Shape           =   2  'Oval 
      Top             =   540 
      Width           =   690 
   End 
   Begin VB.Label Labok  
      BackStyle       =   0  'Transparent 
      Caption         =   "确定" 
      BeginProperty Font  
         Name            =   "楷体_GB2312" 
         Size            =   14.25 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00C00000& 
      Height          =   315 
      Left            =   2475 
      MouseIcon       =   "Frmscore.frx":0442 
      MousePointer    =   99  'Custom 
      TabIndex        =   2 
      Top             =   570 
      Width           =   660 
   End 
   Begin VB.Shape Shape3  
      BackColor       =   &H00C0FFC0& 
      BackStyle       =   1  'Opaque 
      Height          =   345 
      Left            =   2430 
      Shape           =   2  'Oval 
      Top             =   540 
      Width           =   690 
   End 
   Begin VB.Label Label1  
      BackStyle       =   0  'Transparent 
      Caption         =   "请设定题目分数:" 
      BeginProperty Font  
         Name            =   "楷体_GB2312" 
         Size            =   14.25 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00FF0000& 
      Height          =   270 
      Left            =   75 
      TabIndex        =   1 
      Top             =   150 
      Width           =   2610 
   End 
   Begin VB.Shape Shape2  
      BackColor       =   &H00C0C000& 
      BackStyle       =   1  'Opaque 
      Height          =   420 
      Left            =   60 
      Top             =   75 
      Width           =   2475 
   End 
   Begin VB.Shape Shape1  
      BackColor       =   &H00808000& 
      BackStyle       =   1  'Opaque 
      Height          =   930 
      Left            =   0 
      Top             =   0 
      Width           =   3900 
   End 
End 
Attribute VB_Name = "Frmscore" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
 
Private Sub Form_Activate() 
 TXTScore.SetFocus 
 
End Sub 
 
Private Sub Form_Load() 
  '让窗口始终在所有窗口的上面 
SetFormTop Me.hwnd, True 
 
End Sub 
 
Private Sub Labesc_Click() 
 If Score = "" Then 
  MsgBox "添加试题时请先给定题目的分数!" 
  Exit Sub 
 End If 
   Unload Me 
End Sub 
 
Private Sub Labok_Click() 
  If TXTScore = "" Then 
    MsgBox "请输入分数!" 
   Else 
    Score = TXTScore 
    Unload Me 
  End If 
End Sub 
 
Private Sub TXTScore_KeyPress(KeyAscii As Integer) 
 If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 46) Then 
  KeyAscii = 0 
 End If 
  
End Sub