form1.frm

用ＶＢ编写的一个用于实时显示卫星云图的应用程序

VERSION 5.00
Object = "{0E54732C-B4D3-4A27-9D18-9C148B92A019}#1.0#0"; "CloudX.ocx"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   8850
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9945
   LinkTopic       =   "Form1"
   ScaleHeight     =   8850
   ScaleWidth      =   9945
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "颜色演示"
      Height          =   375
      Left            =   8460
      TabIndex        =   5
      ToolTipText     =   "演示SetColor方法,设置255号颜色为随机颜色"
      Top             =   8460
      Width           =   1395
   End
   Begin VB.PictureBox Picture1 
      Height          =   8340
      Left            =   0
      ScaleHeight     =   8280
      ScaleWidth      =   8280
      TabIndex        =   3
      Top             =   0
      Width           =   8340
      Begin CLOUDXLib.CloudX CloudX1 
         Height          =   8340
         Left            =   0
         TabIndex        =   4
         Top             =   0
         Width           =   8280
         _Version        =   65536
         _ExtentX        =   14605
         _ExtentY        =   14711
         _StockProps     =   0
         CloudFileName   =   "C:\YT"
         MapFileName     =   ".\map.bmp"
         PalFileName     =   ".\colormap.004"
      End
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   100
      Left            =   8880
      Top             =   4020
   End
   Begin VB.CommandButton Command1 
      Caption         =   "动画演示"
      Height          =   375
      Left            =   8460
      TabIndex        =   2
      ToolTipText     =   "开始或停止云图动画"
      Top             =   8040
      Width           =   1395
   End
   Begin VB.FileListBox File1 
      Height          =   8010
      Left            =   8400
      Pattern         =   "*.000"
      TabIndex        =   1
      Top             =   0
      Width           =   1575
   End
   Begin VB.Label Label1 
      BorderStyle     =   1  'Fixed Single
      Height          =   435
      Left            =   0
      TabIndex        =   0
      Top             =   8400
      Width           =   8340
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'*********************************************************************
'       Micaps云图控件V1.0演示程序----云图动画
'
'           陕西汉中 郭江峰  [e-mail]
''
' 控件有如下关键属性:
'
'   CloudX.CloudFileName    云图文件名(Micaps第13类文件)
'   CloudX.MapFileName      地图文件名(BMP位图)
'   CloudX.PalFileName      云图调色板名(Micaps第15类文件)
'   CloudX.CloudTitle       云图文件头内容
'
' 还有以下方法:
'
'   打开云图(同CloudFileName属性)
'   CloudX.LoadCloud(FileName as string) as Boolean
'      FileName: 云图文件名(Micaps第13类文件)
'      返回: 成功 true 失败:false
'
'   打开地图(同MapFileName属性)
'   CloudX.LoadMap(FileName as string) as Boolean
'      FileName: 地图文件名(BMP位图)
'      返回: 成功 true 失败:false
'
'   打开调色板(同PalFileName属性)
'   CloudX.LoadPal(FileName as string) as Boolean
'      FileName: 云图调色板名(Micaps第15类文件)
'      返回: 成功 true 失败:false
'
'   设置云图一种颜色索引的颜色RGB值
'   CloudX.SetColor(i,r,g,b as integer)
'       i: 颜色索引
'       r,g,b: 颜色的红绿蓝三色分量
'   *调用完该方法后需要调用CloudX.Refresh刷新云图才能看到效果
'**********************************************************************
'
'注意:
'    地图文件为一张BMP位图,用户可自行修改,注意黑色为透明色,即位图上的黑色
'在显示时将不能看见。
'    在IDE环境调整程序界面时,控件画面有时会变乱,这是我为了避免云图切换时闪
'烁,代码中去掉了擦除DC的代码,所以.....,但为了动画时更加平滑好看,这个还是值
'得的.
'
'**********************************************************************
'声明:
'    本控件仅供气象软件开发技术交流使用!!!如果你要用在气象业务程序和科研课
'题中,需要注册!!!!注册版程序请和软件作者联系
'
'  用户可到http://www.hzqx.com.cn/gjf下载最新版本!!!!
'**********************************************************************
'云图改变时显示云图文件头信息
Private Sub CloudX1_Change()
    '显示云图文件头信息
    Label1.Caption = CloudX1.CloudTitle
End Sub
'窗口创建时赋初值
Private Sub Form_Load()
    '云图存放路径
    'File1.Path = "C:\micaps\cloud\ir\l"
    File1.Path = App.Path + "\cloud"
    '设置地图文件
    'CloudX1.MapFileName = App.Path + "\map.bmp"
    '设置调色板文件
    'CloudX1.PalFileName = App.Path + "\colormap.004"
End Sub

'单击文件列表显示选中云图
Private Sub File1_Click()
    '显示云图
    CloudX1.CloudFileName = File1.Path + "\" + File1.FileName
End Sub

'动画显示云图
Private Sub Timer1_Timer()
    '文件列表下移一行
    File1.ListIndex = (File1.ListIndex + 1) Mod File1.ListCount
    '调用文件列表单击事件,显示云图
    File1_Click
End Sub

'开始或停止动画
Private Sub Command1_Click()
    Timer1.Enabled = Not Timer1.Enabled
End Sub

'演示SetColor方法,设置255号颜色为随机颜色
Private Sub Command2_Click()
    Dim r, g, b As Byte
    '产生随机的r,g,b分量值
    Randomize Timer
    r = Int(Rnd(1) * 255)
    g = Int(Rnd(1) * 255)
    b = Int(Rnd(1) * 255)
    '设置云图255号颜色
    CloudX1.SetColor 255, r, g, b
    '图像刷新
    CloudX1.Refresh
End Sub