frmabout.frm

北京微视公司图像采集卡SDK开发包

VERSION 5.00
Begin VB.Form frmAbout 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "关于"
   ClientHeight    =   1530
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7560
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1530
   ScaleWidth      =   7560
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox Text1 
      Enabled         =   0   'False
      Height          =   2895
      Left            =   360
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      TabIndex        =   4
      Text            =   "frmAbout.frx":0000
      Top             =   1680
      Width           =   6855
   End
   Begin VB.CommandButton ShowDetails 
      Caption         =   "↓"
      Height          =   255
      Left            =   6840
      TabIndex        =   3
      Tag             =   "0"
      Top             =   840
      Width           =   375
   End
   Begin VB.PictureBox Picture1 
      BorderStyle     =   0  'None
      DrawStyle       =   6  'Inside Solid
      Height          =   915
      Left            =   120
      Picture         =   "frmAbout.frx":0006
      ScaleHeight     =   915
      ScaleWidth      =   2655
      TabIndex        =   2
      Top             =   240
      Width           =   2655
      Begin VB.Line Line2 
         X1              =   2760
         X2              =   2760
         Y1              =   0
         Y2              =   960
      End
   End
   Begin VB.PictureBox Picture2 
      BackColor       =   &H00000080&
      Height          =   915
      Index           =   0
      Left            =   240
      ScaleHeight     =   855
      ScaleWidth      =   2595
      TabIndex        =   5
      Top             =   360
      Width           =   2655
   End
   Begin VB.PictureBox Picture2 
      BackColor       =   &H00C00000&
      Height          =   915
      Index           =   1
      Left            =   0
      ScaleHeight     =   855
      ScaleWidth      =   2595
      TabIndex        =   6
      Top             =   120
      Width           =   2655
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      Index           =   0
      X1              =   3120
      X2              =   7080
      Y1              =   600
      Y2              =   600
   End
   Begin VB.Label lblLabel2 
      Caption         =   "SDK版本:5.0.1.5"
      Height          =   255
      Left            =   3120
      TabIndex        =   1
      Top             =   840
      Width           =   1455
   End
   Begin VB.Label lblLabel1 
      Caption         =   "Microview(R)专业卡演示程序,Visual Basic 版本"
      Height          =   255
      Left            =   3120
      TabIndex        =   0
      Top             =   240
      Width           =   4095
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderStyle     =   6  'Inside Solid
      BorderWidth     =   2
      Index           =   1
      X1              =   3120
      X2              =   7080
      Y1              =   615
      Y2              =   615
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub ShowDetails_Click()

    If ShowDetails.Tag = 0 Then
        frmAbout.height = 5200
        ShowDetails.Tag = 1
        ShowDetails.Caption = "↑"
    ElseIf ShowDetails.Tag = 1 Then
        frmAbout.height = 1900
        ShowDetails.Tag = 0
        ShowDetails.Caption = "↓"
    End If

End Sub

Private Sub Form_Load()
    Text1.Text = "※支持的板卡:" _
    & vbCrLf & "" & vbCrLf & "LEVIN系列:LEVIN_M10,LEVIN_M20,LEVIN_RGB10,LEVIN_RGB20,LEVIN_VGA." _
    & vbCrLf & "" & vbCrLf & "V系列:V110,V120,V130,V200,V300,V3A,V400,V410,V500,V510,V520,V8T." _
    & vbCrLf & "" & vbCrLf & "S系列:S100,S400,S420,S450." _
    & vbCrLf & "" & vbCrLf & "MOKA系列:MOKA_C10,MOKA_C20,MOKA_C40,Moka-C41,MOKA_C50,MOKA_C51." _
    & vbCrLf & "" & vbCrLf & "X系列:X400,X800." _
    & vbCrLf & "" & vbCrLf & "E系列:E410,E450."
    
End Sub