www.pudn.com > Intra3D-Software.rar > frmAbout.frm

VERSION 5.00 
Object = "{8A57F280-4694-11D3-BEE0-0080C842CA37}#1.0#0"; "OPENGLWINDOW.OCX" 
Begin VB.Form frmAbout  
   BorderStyle     =   3  'Fixed Dialog 
   Caption         =   "About" 
   ClientHeight    =   3930 
   ClientLeft      =   2340 
   ClientTop       =   1935 
   ClientWidth     =   4530 
   ClipControls    =   0   'False 
   BeginProperty Font  
      Name            =   "宋体" 
      Size            =   9 
      Charset         =   134 
      Weight          =   400 
      Underline       =   0   'False 
      Italic          =   0   'False 
      Strikethrough   =   0   'False 
   EndProperty 
   Icon            =   "frmAbout.frx":0000 
   LinkTopic       =   "Form2" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   2712.556 
   ScaleMode       =   0  'User 
   ScaleWidth      =   4253.904 
   ShowInTaskbar   =   0   'False 
   Begin VB.PictureBox Picture1  
      BorderStyle     =   0  'None 
      Height          =   255 
      Left            =   600 
      Picture         =   "frmAbout.frx":0442 
      ScaleHeight     =   255 
      ScaleWidth      =   255 
      TabIndex        =   5 
      Top             =   2160 
      Width           =   255 
   End 
   Begin OpenglWindowLibCtl.OglWindow AboutWindow  
      Height          =   1335 
      Left            =   240 
      OleObjectBlob   =   "frmAbout.frx":0544 
      TabIndex        =   2 
      Top             =   360 
      Width           =   1455 
   End 
   Begin VB.Label Label1  
      Caption         =   "An Interactive 3D Toolkit" 
      Height          =   255 
      Left            =   1920 
      TabIndex        =   8 
      Top             =   480 
      Width           =   2295 
   End 
   Begin VB.Label lblEmail  
      Caption         =   "Intra3d@hotmail.com  Intra3d@163.net " 
      Height          =   255 
      Left            =   600 
      TabIndex        =   7 
      Top             =   3480 
      Width           =   3255 
   End 
   Begin VB.Label lblTel  
      Caption         =   "Tel: 0571-7964204   BP: 191-3614352" 
      Height          =   255 
      Left            =   600 
      TabIndex        =   6 
      Top             =   3000 
      Width           =   3375 
   End 
   Begin VB.Label lblZip  
      Caption         =   "310027" 
      Height          =   255 
      Left            =   1080 
      TabIndex        =   4 
      Top             =   2160 
      Width           =   855 
   End 
   Begin VB.Label lblAddress  
      Caption         =   "浙江大学 CAD&&CG 国家重点实验室   林锐" 
      Height          =   255 
      Left            =   600 
      TabIndex        =   3 
      Top             =   2520 
      Width           =   3735 
   End 
   Begin VB.Label lbTitle2  
      Caption         =   "交互式三维图形软件开发工具" 
      ForeColor       =   &H00000000& 
      Height          =   240 
      Left            =   1920 
      TabIndex        =   1 
      Top             =   1440 
      Width           =   2445 
   End 
   Begin VB.Line Line1  
      BorderColor     =   &H00808080& 
      BorderStyle     =   6  'Inside Solid 
      Index           =   1 
      X1              =   225.372 
      X2              =   4056.703 
      Y1              =   1325.218 
      Y2              =   1325.218 
   End 
   Begin VB.Line Line1  
      BorderColor     =   &H00FFFFFF& 
      BorderWidth     =   2 
      Index           =   0 
      X1              =   225.372 
      X2              =   4056.703 
      Y1              =   1325.218 
      Y2              =   1325.218 
   End 
   Begin VB.Label lblVer  
      Caption         =   "Intra3D 2.0" 
      Height          =   225 
      Left            =   2520 
      TabIndex        =   0 
      Top             =   960 
      Width           =   1005 
   End 
End 
Attribute VB_Name = "frmAbout" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
Dim angle As Single 
 
Private Sub Form_Load() 
    AboutWindow.SetCameraPosition 0, 0, 10 
    AboutWindow.SetViewVolume 10, 10, 5, 15 
    AboutWindow.SetOrtho 
    AboutWindow.SetClearColor 0.75, 0.75, 0.75 
    AboutWindow.EnableAnimate 
    angle = 0 
End Sub 
 
Private Sub AboutWindow_ControlAnimate() 
    If (angle >= 360) Then angle = 0 
    ogl.glLoadIdentity 
    ogl.glRotatef angle, 0#, 1#, 0# 
    angle = angle + 5 
End Sub 
 
Private Sub AboutWindow_DrawShape() 
    AboutWindow.DrawIntra3DIcon 6 
End Sub