home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD139201192001.psc / Frm_File_Information.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-01-19  |  3.3 KB  |  106 lines
  1. VERSION 5.00
  2. Begin VB.Form Frm_File_Information 
  3.    BorderStyle     =   4  'Festes Werkzeugfenster
  4.    Caption         =   "Dateieigenschaften"
  5.    ClientHeight    =   2385
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   6945
  9.    BeginProperty Font 
  10.       Name            =   "Arial"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    LinkTopic       =   "Form1"
  19.    MaxButton       =   0   'False
  20.    MinButton       =   0   'False
  21.    ScaleHeight     =   2385
  22.    ScaleWidth      =   6945
  23.    ShowInTaskbar   =   0   'False
  24.    StartUpPosition =   1  'Fenstermitte
  25.    Begin VB.CommandButton Cmd_Ok 
  26.       Caption         =   "OK"
  27.       Height          =   375
  28.       Left            =   5100
  29.       TabIndex        =   7
  30.       Top             =   150
  31.       Width           =   1815
  32.    End
  33.    Begin VB.Frame Frame_Main 
  34.       Height          =   2205
  35.       Left            =   120
  36.       TabIndex        =   0
  37.       Top             =   30
  38.       Width           =   4905
  39.       Begin VB.Label Lab_Char_Number_Name 
  40.          Alignment       =   1  'Rechts
  41.          Height          =   210
  42.          Left            =   1770
  43.          TabIndex        =   6
  44.          Top             =   1455
  45.          Width           =   3045
  46.       End
  47.       Begin VB.Label Lab_Char_Number 
  48.          AutoSize        =   -1  'True
  49.          Caption         =   "Anzahl der Zeichen:"
  50.          Height          =   210
  51.          Left            =   120
  52.          TabIndex        =   5
  53.          Top             =   1455
  54.          Width           =   1470
  55.       End
  56.       Begin VB.Label Lab_File_Size_Name 
  57.          Alignment       =   1  'Rechts
  58.          Height          =   210
  59.          Left            =   1770
  60.          TabIndex        =   4
  61.          Top             =   1830
  62.          Width           =   3045
  63.       End
  64.       Begin VB.Label Lab_File_Name_Name 
  65.          Alignment       =   2  'Zentriert
  66.          Height          =   1050
  67.          Left            =   1770
  68.          TabIndex        =   3
  69.          Top             =   300
  70.          Width           =   3045
  71.          WordWrap        =   -1  'True
  72.       End
  73.       Begin VB.Label Lab_File_Size 
  74.          Caption         =   "Gr
  75. e (Kilo-Byte):"
  76.          Height          =   210
  77.          Left            =   120
  78.          TabIndex        =   2
  79.          Top             =   1830
  80.          Width           =   1395
  81.       End
  82.       Begin VB.Label Lab_File_Name 
  83.          AutoSize        =   -1  'True
  84.          Caption         =   "Dateiname:"
  85.          Height          =   210
  86.          Left            =   120
  87.          TabIndex        =   1
  88.          Top             =   300
  89.          Width           =   795
  90.       End
  91.    End
  92. Attribute VB_Name = "Frm_File_Information"
  93. Attribute VB_GlobalNameSpace = False
  94. Attribute VB_Creatable = False
  95. Attribute VB_PredeclaredId = True
  96. Attribute VB_Exposed = False
  97. Option Explicit
  98. Private Sub Cmd_Ok_Click()
  99.     Unload Me
  100. End Sub
  101. Private Sub Form_Load()
  102.     Lab_File_Name_Name.Caption = m_Mdi.ActiveForm.Caption
  103.     Lab_Char_Number_Name.Caption = Len(m_Mdi.ActiveForm.Rtf_Text.Text)
  104.     Lab_File_Size_Name.Caption = Len(m_Mdi.ActiveForm.Rtf_Text.Text) / 1024
  105. End Sub
  106.