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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
frm_Transfert_Fichiers.frm
资源名称：Interface.zip　[点击查看]
上传用户：lq8868
上传日期：2017-06-13
资源大小：25k
文件大小：11k
源码类别：

Windows编程

开发平台：

DOS

frm_Transfert_Fichiers.frm：源码内容
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
  3. Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
  4. Begin VB.Form frm_Transfert_Fichiers 
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "A閞ospatiale M閍ulte : Interface - Transfert de Fichiers"
  7.    ClientHeight    =   4920
  8.    ClientLeft      =   45
  9.    ClientTop       =   330
  10.    ClientWidth     =   7455
  11.    Icon            =   "frm_Transfert_Fichiers.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4920
  16.    ScaleWidth      =   7455
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.Timer Timer2 
  19.       Enabled         =   0   'False
  20.       Interval        =   1000
  21.       Left            =   4320
  22.       Top             =   720
  23.    End
  24.    Begin MSCommLib.MSComm MSComm1 
  25.       Left            =   2640
  26.       Top             =   600
  27.       _ExtentX        =   1005
  28.       _ExtentY        =   1005
  29.       _Version        =   327680
  30.       DTREnable       =   -1  'True
  31.       ParityReplace   =   42
  32.       InputMode       =   1
  33.    End
  34.    Begin VB.Timer Timer1 
  35.       Enabled         =   0   'False
  36.       Interval        =   1
  37.       Left            =   1920
  38.       Top             =   720
  39.    End
  40.    Begin VB.CommandButton Bouton_Recevoir_Fichier 
  41.       Caption         =   "Recevoir un Fichier"
  42.       Height          =   375
  43.       Left            =   600
  44.       TabIndex        =   1
  45.       ToolTipText     =   "Recevoir un fichier binaire via le port s閞ie"
  46.       Top             =   2760
  47.       Width           =   2775
  48.    End
  49.    Begin VB.Frame Frame2 
  50.       Caption         =   "Reception d'un Fichier"
  51.       Height          =   975
  52.       Left            =   240
  53.       TabIndex        =   6
  54.       Top             =   2400
  55.       Width           =   6975
  56.       Begin VB.Label Label3 
  57.          Alignment       =   2  'Center
  58.          Height          =   255
  59.          Left            =   3600
  60.          TabIndex        =   8
  61.          Top             =   480
  62.          Width           =   2775
  63.       End
  64.    End
  65.    Begin VB.CommandButton Bouton_Envoyer_Fichier 
  66.       Caption         =   "Envoyer un Fichier"
  67.       Height          =   375
  68.       Left            =   600
  69.       TabIndex        =   0
  70.       ToolTipText     =   "Envoyer un fichier binaire via le port s閞ie"
  71.       Top             =   1440
  72.       Width           =   2775
  73.    End
  74.    Begin VB.Frame Frame1 
  75.       Caption         =   "Envoi d'un Fichier"
  76.       Height          =   975
  77.       Left            =   240
  78.       TabIndex        =   5
  79.       Top             =   1080
  80.       Width           =   6975
  81.       Begin VB.Label Label2 
  82.          Alignment       =   2  'Center
  83.          Height          =   255
  84.          Left            =   3720
  85.          TabIndex        =   7
  86.          Top             =   480
  87.          Width           =   2775
  88.       End
  89.    End
  90.    Begin VB.CommandButton Command4 
  91.       Caption         =   "Retour