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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 其他行业 > 查看源码
Form2.frm
资源名称：大学人事管理系统.zip　[点击查看]
上传用户：plkplk66
上传日期：2007-06-06
资源大小：686k
文件大小：2k
源码类别：

其他行业

开发平台：

Visual Basic

Form2.frm：源码内容
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   3195
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5580
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3195
  14.    ScaleWidth      =   5580
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  '屏幕中心
  17.    Begin VB.CommandButton Command3 
  18.       Caption         =   "结束运行"
  19.       Height          =   375
  20.       Left            =   4320
  21.       TabIndex        =   2
  22.       Top             =   2400
  23.       Width           =   975
  24.    End
  25.    Begin VB.CommandButton Command2 
  26.       Caption         =   "打开文件"
  27.       Height          =   375
  28.       Left            =   4320
  29.       TabIndex        =   1
  30.       Top             =   1560
  31.       Width           =   975
  32.    End
  33.    Begin VB.CommandButton Command1 
  34.       Caption         =   "重新设置"
  35.       Height          =   375
  36.       Left            =   4320
  37.       TabIndex        =   0
  38.       Top             =   720
  39.       Width           =   975
  40.    End
  41.    Begin MSComDlg.CommonDialog CommonDialog1 
  42.       Left            =   4440
  43.       Top             =   0
  44.       _ExtentX        =   847
  45.       _ExtentY        =   847
  46.       _Version        =   393216
  47.       DialogTitle     =   "选择一个图像文件"
  48.       FileName        =   "*.bmp"
  49.       Filter          =   "*.bmp"
  50.       InitDir         =   "c:"
  51.    End
  52.    Begin VB.Image Image1 
  53.       Height          =   3045
  54.       Left            =   240
  55.       Stretch         =   -1  'True
  56.       Top             =   120
  57.       Width           =   3690
  58.    End
  59. End
  60. Attribute VB_Name = "Form1"
  61. Attribute VB_GlobalNameSpace = False
  62. Attribute VB_Creatable = False
  63. Attribute VB_PredeclaredId = True
  64. Attribute VB_Exposed = False
  65. Private Sub Command1_Click()
  66. Image1.Picture = LoadPicture("")
  68. End Sub
  70. Private Sub Command2_Click()
  71. CommonDialog1.Action = 1
  72. Image1.Picture = LoadPicture(CommonDialog1.FileName)
  74. End Sub
  76. Private Sub Command3_Click()
  77. End
  78. End Sub
  80. Private Sub Form_Load()
  81. Command1.Enabled = True
  82. Command2.Enabled = True
  83. Command3.Enabled = True
  84. End Sub