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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数值算法/人工智能 > 查看源码
frmVB.frm
资源名称：lx.rar　[点击查看]
上传用户：sdxhx123
上传日期：2022-08-06
资源大小：3453k
文件大小：3k
源码类别：

数值算法/人工智能

开发平台：

Visual Basic

frmVB.frm：源码内容
  1. VERSION 5.00
  2. Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash9f.ocx"
  3. Begin VB.Form frmVB 
  4.    Caption         =   "VB工程演示"
  5.    ClientHeight    =   8085
  6.    ClientLeft      =   60
  7.    ClientTop       =   450
  8.    ClientWidth     =   11505
  9.    Icon            =   "frmVB.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    Picture         =   "frmVB.frx":030A
  12.    ScaleHeight     =   8085
  13.    ScaleWidth      =   11505
  14.    StartUpPosition =   2  '屏幕中心
  15.    Begin VB.CommandButton Command2 
  16.       Caption         =   "退出演示"
  17.       Height          =   975
  18.       Left            =   7080
  19.       TabIndex        =   2
  20.       Top             =   6720
  21.       Width           =   1695
  22.    End
  23.    Begin VB.CommandButton Command1 
  24.       Caption         =   "开始演示"
  25.       Height          =   975
  26.       Left            =   2640
  27.       TabIndex        =   1
  28.       Top             =   6720
  29.       Width           =   1695
  30.    End
  31.    Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1 
  32.       Height          =   6135
  33.       Left            =   1560
  34.       TabIndex        =   0
  35.       Top             =   240
  36.       Width           =   8175
  37.       _cx             =   14420
  38.       _cy             =   10821
  39.       FlashVars       =   ""
  40.       Movie           =   ""
  41.       Src             =   ""
  42.       WMode           =   "Transparent"
  43.       Play            =   -1  'True
  44.       Loop            =   -1  'True
  45.       Quality         =   "High"
  46.       SAlign          =   ""
  47.       Menu            =   -1  'True
  48.       Base            =   ""
  49.       AllowScriptAccess=   ""
  50.       Scale           =   "ShowAll"
  51.       DeviceFont      =   0   'False
  52.       EmbedMovie      =   0   'False
  53.       BGColor         =   ""
  54.       SWRemote        =   ""
  55.       MovieData       =   ""
  56.       SeamlessTabbing =   -1  'True
  57.       Profile         =   0   'False
  58.       ProfileAddress  =   ""
  59.       ProfilePort     =   0
  60.       AllowNetworking =   "all"
  61.       AllowFullScreen =   "false"
  62.    End
  63.    Begin VB.Line Line2 
  64.       X1              =   1320
  65.       X2              =   1320
  66.       Y1              =   120
  67.       Y2              =   7560
  68.    End
  69.    Begin VB.Line Line1 
  70.       X1              =   720
  71.       X2              =   11040
  72.       Y1              =   6600
  73.       Y2              =   6600
  74.    End
  75. End
  76. Attribute VB_Name = "frmVB"
  77. Attribute VB_GlobalNameSpace = False
  78. Attribute VB_Creatable = False
  79. Attribute VB_PredeclaredId = True
  80. Attribute VB_Exposed = False
  81. Option Explicit
  83. Private Sub Command1_Click()
  84.     ShockwaveFlash1.Movie = App.Path & "1.swf"
  85. End Sub
  88. Private Sub Command2_Click()
  89.     Unload Me
  90. End Sub