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

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

其他行业

开发平台：

Visual Basic

frmloadpic.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form frmloadpic 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "添加图片"
  5.    ClientHeight    =   3135
  6.    ClientLeft      =   5760
  7.    ClientTop       =   1410
  8.    ClientWidth     =   3915
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3135
  13.    ScaleWidth      =   3915
  14.    Begin VB.CommandButton Command1 
  15.       Caption         =   "确定"
  16.       Height          =   435
  17.       Left            =   210
  18.       TabIndex        =   3
  19.       Top             =   2460
  20.       Width           =   1275
  21.    End
  22.    Begin VB.FileListBox File1 
  23.       Height          =   1530
  24.       Left            =   1680
  25.       TabIndex        =   2
  26.       Top             =   1365
  27.       Width           =   2010
  28.    End
  29.    Begin VB.DirListBox Dir1 
  30.       Height          =   1140
  31.       Left            =   1680
  32.       TabIndex        =   1
  33.       Top             =   105
  34.       Width           =   2010
  35.    End
  36.    Begin VB.DriveListBox Drive1 
  37.       Height          =   300
  38.       Left            =   210
  39.       TabIndex        =   0
  40.       Top             =   105
  41.       Width           =   1275
  42.    End
  43.    Begin VB.Image Image1 
  44.       BorderStyle     =   1  'Fixed Single
  45.       Height          =   1755
  46.       Left            =   210
  47.       Stretch         =   -1  'True
  48.       Top             =   525
  49.       Width           =   1305
  50.    End
  51. End
  52. Attribute VB_Name = "frmloadpic"
  53. Attribute VB_GlobalNameSpace = False
  54. Attribute VB_Creatable = False
  55. Attribute VB_PredeclaredId = True
  56. Attribute VB_Exposed = False
  57. Option Explicit
  59. Private Sub Command1_Click()
  60. If flag = 1 Then
  61. With frmstudent
  62.          .Image1.Picture = LoadPicture(FNAME)
  63.          .Enabled = True
  64.          .Label16.Visible = False
  65.          .SetFocus
  66. End With
  67. End If
  68. If flag = 0 Then
  69. With frmteacher
  70.          .Image1.Picture = LoadPicture(FNAME)
  71.          .Label7.Visible = False
  72.          .Enabled = True
  73.          .SetFocus
  74. End With
  75. End If
  76. Unload Me
  77. End Sub
  79. Private Sub Dir1_Change()
  80. File1.Path = Dir1.Path
  81. End Sub
  83. Private Sub Drive1_Change()
  84. Dir1.Path = Drive1.Drive
  85. End Sub
  87. Private Sub File1_Click()
  88. FNAME = File1.Path & "" & File1.FileName
  89. Image1.Picture = LoadPicture(FNAME)
  90. End Sub