Configuration.frm
上传用户:lq8868
上传日期:2017-06-13
资源大小:25k
文件大小:11k
源码类别:

Windows编程

开发平台:

DOS

  1. VERSION 5.00
  2. Begin VB.Form Configuration 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Interface Port S閞ie"
  5.    ClientHeight    =   6255
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   5295
  9.    ForeColor       =   &H80000008&
  10.    Icon            =   "Configuration.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   6255
  15.    ScaleWidth      =   5295
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton Parametres_Defaut 
  18.       Caption         =   "&Param鑤res par d閒aut"
  19.       Height          =   255
  20.       Left            =   360
  21.       TabIndex        =   11
  22.       ToolTipText     =   "Restaure la configuration par d閒aut du port s閞ie"
  23.       Top             =   5760
  24.       Width           =   2415
  25.    End
  26.    Begin VB.CommandButton Sauver_Parametres 
  27.       Caption         =   "&Sauvegarder les param鑤res"
  28.       Height          =   255
  29.       Left            =   360
  30.       TabIndex        =   10
  31.       ToolTipText     =   "Enregistre la configuration du port s閞ie dans la base de registres"
  32.       Top             =   5400
  33.       Width           =   2415
  34.    End
  35.    Begin VB.CommandButton Analyse_Bas_Niveau 
  36.       Caption         =   "&Analyse du Port COM"
  37.       Height          =   375
  38.       Left            =   2880
  39.       TabIndex        =   9
  40.       ToolTipText     =   "Permet le transfert caract鑢e par caract鑢e"
  41.       Top             =   2160
  42.       Width           =   2055
  43.    End
  44.    Begin VB.CommandButton Quitter 
  45.       Caption         =   "&Quitter"
  46.       Height          =   615
  47.       Left            =   3000
  48.       TabIndex        =   12
  49.       ToolTipText     =   "Au revoir..."
  50.       Top             =   5400
  51.       Width           =   1935
  52.    End
  53.    Begin VB.Frame Frame3 
  54.       Caption         =   "Time Out"
  55.       Height          =   1095
  56.       Left            =   360
  57.       TabIndex        =   22
  58.       Top             =   4080
  59.       Width           =   4575
  60.       Begin VB.TextBox Text2 
  61.          Alignment       =   1  'Right Justify
  62.          Height          =   285
  63.          Left            =   3360
  64.          TabIndex        =   6
  65.          Top             =   720
  66.          Width           =   855
  67.       End
  68.       Begin VB.TextBox Text1 
  69.          Alignment       =   1  'Right Justify
  70.          Height          =   285
  71.          Left            =   3360
  72.          TabIndex        =   5
  73.          Top             =   360
  74.          Width           =   855
  75.       End
  76.       Begin VB.Label Label9 
  77.          Caption         =   "Dur閑 du time out fin en seconde :"
  78.          Height          =   255
  79.          Left            =   360
  80.          TabIndex        =   24
  81.          Top             =   720
  82.          Width           =   2895
  83.       End
  84.       Begin VB.Label Label8 
  85.          Caption         =   "Dur閑 du time out d閎ut en seconde :"
  86.          Height          =   255
  87.          Left            =   360
  88.          TabIndex        =   23
  89.          Top             =   360
  90.          Width           =   2895
  91.       End
  92.    End
  93.    Begin VB.Frame Frame2 
  94.       Caption         =   "S閘ection du port"
  95.       Height          =   735
  96.       Left            =   2880
  97.       TabIndex        =   21
  98.       Top             =   1080
  99.       Width           =   2055
  100.       Begin VB.OptionButton Option2 
  101.          Caption         =   "Option2"
  102.          Height          =   255
  103.          Left            =   1080
  104.          TabIndex        =   8
  105.          Top             =   360
  106.          Width           =   255
  107.       End
  108.       Begin VB.OptionButton Option1 
  109.          Caption         =   "Option1"
  110.          Height          =   255
  111.          Left            =   120
  112.          TabIndex        =   7
  113.          Top             =   360
  114.          Width           =   255
  115.       End
  116.       Begin VB.Label Label7 
  117.          Caption         =   "Com 2"
  118.          Height          =   255
  119.          Left            =   1320
  120.          TabIndex        =   14
  121.          Top             =   360
  122.          Width           =   495
  123.       End
  124.       Begin VB.Label Label6 
  125.          Caption         =   "Com 1"
  126.          Height          =   255
  127.          Left            =   360
  128.          TabIndex        =   13
  129.          Top             =   360
  130.          Width           =   615
  131.       End
  132.    End
  133.    Begin VB.Frame Frame1 
  134.       Caption         =   "Param鑤res"
  135.       Height          =   2655
  136.       Left            =   360
  137.       TabIndex        =   16
  138.       Top             =   1080
  139.       Width           =   2055
  140.       Begin VB.ComboBox Combo5 
  141.          Height          =   315
  142.          Left            =   600
  143.          TabIndex        =   4
  144.          Top             =   2280
  145.          Width           =   1335
  146.       End
  147.       Begin VB.ComboBox Combo4 
  148.          Height          =   315
  149.          Left            =   1320
  150.          TabIndex        =   3
  151.          Top             =   1800
  152.          Width           =   615
  153.       End
  154.       Begin VB.ComboBox Combo3 
  155.          Height          =   315
  156.          Left            =   1440
  157.          TabIndex        =   2
  158.          Top             =   1320
  159.          Width           =   510
  160.       End
  161.       Begin VB.ComboBox Combo2 
  162.          Height          =   315
  163.          Left            =   1440
  164.          TabIndex        =   1
  165.          Top             =   840
  166.          Width           =   495
  167.       End
  168.       Begin VB.ComboBox Combo1 
  169.          Height          =   315
  170.          ItemData        =   "Configuration.frx":030A
  171.          Left            =   960
  172.          List            =   "Configuration.frx":030C
  173.          TabIndex        =   0
  174.          Top             =   360
  175.          Width           =   975
  176.       End
  177.       Begin VB.Label Label10 
  178.          Caption         =   "Flux :"
  179.          Height          =   255
  180.          Left            =   120
  181.          TabIndex        =   25
  182.          Top             =   2280
  183.          Width           =   855
  184.       End
  185.       Begin VB.Label Label5 
  186.          Caption         =   "Bits d'arr阾 :"
  187.          Height          =   255
  188.          Left            =   120
  189.          TabIndex        =   20
  190.          Top             =   1800
  191.          Width           =   855
  192.       End
  193.       Begin VB.Label Label4 
  194.          Caption         =   "Bits de donn閑s :"
  195.          Height          =   255
  196.          Left            =   120
  197.          TabIndex        =   19
  198.          Top             =   1320
  199.          Width           =   1335
  200.       End
  201.       Begin VB.Label Label3 
  202.          Caption         =   "Parit