unitchoujiang.~dfm

用VB写的一个小小的抽奖程序

object Form1: TForm1
  Left = 189
  Top = 108
  Width = 830
  Height = 620
  Caption = #25277#22870#36719#20214
  Color = clSkyBlue
  Font.Charset = GB2312_CHARSET
  Font.Color = clRed
  Font.Height = -24
  Font.Name = #21326#25991#26032#39759
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 25
  object Label1: TLabel
    Left = 72
    Top = 88
    Width = 144
    Height = 55
    Caption = #21495#30721#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clTeal
    Font.Height = -48
    Font.Name = #21326#25991#20013#23435
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 544
    Top = 256
    Width = 120
    Height = 25
    Caption = #33719#22870#21495#30721#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clTeal
    Font.Height = -24
    Font.Name = #21326#25991#26032#39759
    Font.Style = []
    ParentFont = False
  end
  object lblTitle: TLabel
    Left = 288
    Top = 24
    Width = 71
    Height = 25
    Caption = 'lblTitle'
  end
  object lblLeft: TLabel
    Left = 616
    Top = 24
    Width = 63
    Height = 25
    Caption = 'lblLeft'
  end
  object edtCode: TEdit
    Left = 248
    Top = 80
    Width = 465
    Height = 72
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -56
    Font.Name = #21326#25991#20013#23435
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 0
  end
  object btnStart: TButton
    Left = 304
    Top = 184
    Width = 169
    Height = 49
    Cursor = crHandPoint
    Caption = #36816#34892
    Font.Charset = GB2312_CHARSET
    Font.Color = clTeal
    Font.Height = -32
    Font.Name = #21326#25991#26032#39759
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = btnStartClick
  end
  object btnPSet: TButton
    Left = 152
    Top = 312
    Width = 129
    Height = 33
    Caption = #22870#39033#35774#32622
    TabOrder = 2
    OnClick = btnPSetClick
  end
  object btnCodeSet: TButton
    Left = 312
    Top = 312
    Width = 129
    Height = 33
    Caption = #21495#30721#35774#32622
    TabOrder = 3
    OnClick = btnCodeSetClick
  end
  object btnExport: TButton
    Left = 312
    Top = 360
    Width = 129
    Height = 33
    Caption = #23548#20986#22870#21495
    TabOrder = 4
    OnClick = btnExportClick
  end
  object btnClear: TButton
    Left = 152
    Top = 360
    Width = 129
    Height = 33
    Caption = #28165#38500#22870#21495
    TabOrder = 5
    OnClick = btnClearClick
  end
  object btnStop: TButton
    Left = 504
    Top = 184
    Width = 169
    Height = 49
    Cursor = crHandPoint
    Caption = #25277' '#22870
    Font.Charset = GB2312_CHARSET
    Font.Color = clTeal
    Font.Height = -32
    Font.Name = #21326#25991#26032#39759
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = btnStopClick
  end
  object lstCode: TListBox
    Left = 560
    Top = 288
    Width = 193
    Height = 265
    ItemHeight = 25
    TabOrder = 7
  end
  object btnClearText: TButton
    Left = 200
    Top = 456
    Width = 209
    Height = 33
    Caption = #28165#31354#23548#20986#25968#25454
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -24
    Font.Name = #21326#25991#26032#39759
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnClick = btnClearTextClick
  end
  object btnResult: TButton
    Left = 200
    Top = 408
    Width = 209
    Height = 33
    Caption = #26597#30475#20013#22870#32467#26524
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -24
    Font.Name = #21326#25991#26032#39759
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    OnClick = btnResultClick
  end
  object btnHelp: TButton
    Left = 200
    Top = 504
    Width = 209
    Height = 33
    Caption = #24110#21161#65288#20351#29992#35828#26126#65289
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -24
    Font.Name = #21326#25991#26032#39759
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    OnClick = btnHelpClick
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 1
    OnTimer = Timer1Timer
    Left = 64
    Top = 312
  end
  object SaveDialog1: TSaveDialog
    Left = 80
    Top = 208
  end
end