Form1.frm 2.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110
  1. VERSION 5.00
  2. Begin VB.Form Form1
  3. Caption = "Form1"
  4. ClientHeight = 7695
  5. ClientLeft = 60
  6. ClientTop = 345
  7. ClientWidth = 10710
  8. LinkTopic = "Form1"
  9. ScaleHeight = 7695
  10. ScaleWidth = 10710
  11. StartUpPosition = 3 '´°¿Úȱʡ
  12. Begin VB.Timer Timer1
  13. Enabled = 0 'False
  14. Interval = 1500
  15. Left = 0
  16. Top = 120
  17. End
  18. Begin VB.CommandButton EndCmd
  19. Caption = "·µ »Ø"
  20. Height = 372
  21. Left = 8520
  22. TabIndex = 6
  23. Top = 5520
  24. Width = 1452
  25. End
  26. Begin VB.CommandButton SearchCardCmd
  27. Caption = "ÕÒ ¿¨"
  28. Height = 372
  29. Left = 8520
  30. TabIndex = 5
  31. Top = 3120
  32. Width = 1452
  33. End
  34. Begin VB.CommandButton ReadCardCmd
  35. Caption = "¶Á ¿¨"
  36. Height = 372
  37. Left = 8520
  38. TabIndex = 4
  39. Top = 4320
  40. Width = 1452
  41. End
  42. Begin VB.CommandButton SelectCmd
  43. Caption = " Ñ¡ ¿¨"
  44. Height = 372
  45. Left = 8520
  46. TabIndex = 3
  47. Top = 3720
  48. Width = 1452
  49. End
  50. Begin VB.CommandButton ResetCMD
  51. Caption = "SAM¸´Î»"
  52. Height = 375
  53. Left = 8520
  54. TabIndex = 2
  55. Top = 2520
  56. Width = 1455
  57. End
  58. Begin VB.CommandButton ChipSNCmd
  59. Caption = "¿¨Ð¾Æ¬ÐòÁкÅ"
  60. Height = 375
  61. Left = 8520
  62. TabIndex = 1
  63. Top = 4920
  64. Width = 1455
  65. End
  66. Begin VB.TextBox RecText
  67. BackColor = &H80000014&
  68. Height = 5535
  69. Left = 600
  70. Locked = -1 'True
  71. MultiLine = -1 'True
  72. ScrollBars = 2 'Vertical
  73. TabIndex = 0
  74. TabStop = 0 'False
  75. Top = 720
  76. Width = 6855
  77. End
  78. Begin VB.Image Image1
  79. Appearance = 0 'Flat
  80. Height = 495
  81. Left = 8280
  82. Picture = "Form1.frx":0000
  83. Stretch = -1 'True
  84. Top = 840
  85. Width = 1815
  86. End
  87. Begin VB.Shape Shape1
  88. BackColor = &H80000001&
  89. BackStyle = 1 'Opaque
  90. Height = 4095
  91. Left = 8280
  92. Top = 2160
  93. Width = 1935
  94. End
  95. End
  96. Attribute VB_Name = "Form1"
  97. Attribute VB_GlobalNameSpace = False
  98. Attribute VB_Creatable = False
  99. Attribute VB_PredeclaredId = True
  100. Attribute VB_Exposed = False
  101. '½øÈë
  102. Private Sub Form_Load()
  103. 'ÏÔʾ¶þ½øÖÆ·µ»ØÂë
  104. 'RecText.Text = LTrim(tmp)
  105. End Sub