frmcmdconvertdataproperties.frm

Data monkey是一个强大的是数据传输和转换应用程序。使用DataMonkey用户可以把复杂的文本文件格式

VERSION 5.00
Begin VB.Form frmCMDConvertDataProperties 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Convert To"
   ClientHeight    =   2232
   ClientLeft      =   48
   ClientTop       =   288
   ClientWidth     =   3300
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2232
   ScaleWidth      =   3300
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.ComboBox cboFromDataType 
      Appearance      =   0  'Flat
      Height          =   315
      Left            =   720
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   5
      Top             =   420
      Width           =   2415
   End
   Begin VB.ComboBox cboToDataType 
      Appearance      =   0  'Flat
      Height          =   315
      Left            =   720
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   4
      Top             =   1260
      Width           =   2415
   End
   Begin VB.PictureBox CVPicture 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      ForeColor       =   &H8000000A&
      Height          =   300
      Left            =   120
      Picture         =   "frmCMDConvertDataProperties.frx":0000
      ScaleHeight     =   276
      ScaleWidth      =   288
      TabIndex        =   2
      Top             =   120
      Width           =   312
   End
   Begin VB.CommandButton btnCancel 
      Caption         =   "&Cancel"
      Height          =   375
      Left            =   2280
      TabIndex        =   1
      Top             =   1740
      Width           =   855
   End
   Begin VB.CommandButton btnOk 
      Caption         =   "&Ok"
      Default         =   -1  'True
      Height          =   375
      Left            =   1320
      TabIndex        =   0
      Top             =   1740
      Width           =   855
   End
   Begin VB.Label fadjslk 
      AutoSize        =   -1  'True
      Caption         =   "Convert the value from DataType"
      Height          =   195
      Left            =   720
      TabIndex        =   6
      Top             =   120
      Width           =   2355
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "to Data Type"
      Height          =   195
      Left            =   720
      TabIndex        =   3
      Top             =   960
      Width           =   930
   End
End
Attribute VB_Name = "frmCMDConvertDataProperties"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' DataMonkey Data Conversion Application. Written by Theodore L. Ward
' Copyright (C) 2002 AstroComma Incorporated.
'
' This program is free software; you can redistribute it and/or
' modify it under the terms of the GNU General Public License
' as published by the Free Software Foundation; either version 2
' of the License, or (at your option) any later version.
'
' This program is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU General Public License for more details.
'
' You should have received a copy of the GNU General Public License
' along with this program; if not, write to the Free Software
' Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
' The author may be contacted at:
' [e-mail] or [e-mail]

Option Explicit
Private mCD As CCmdConvertData

Public Sub Initialize(ByRef theParent As CCmdConvertData, NameForCaption As String)
    Dim i As Integer
    
    Set mCD = theParent
    
    ' Set the default types as strings.
    If mCD.ConvertFromType = -1 Then mCD.ConvertFromType = rdtReducedDataTypeSet.rdtString
    If mCD.ConvertToType = -1 Then mCD.ConvertToType = rdtReducedDataTypeSet.rdtString
    
    Me.Caption = NameForCaption
    
    For i = 0 To rdtReducedDataTypeSet.rdtItemCount - 1
        
        ' Fill the From combo.
        cboFromDataType.AddItem GOutputID.GetRSTDescription(i)
        cboFromDataType.ItemData(cboFromDataType.NewIndex) = i
        
        ' Fill the To Combo.
        cboToDataType.AddItem GOutputID.GetRSTDescription(i)
        cboToDataType.ItemData(cboToDataType.NewIndex) = i
        
    Next i

    ' Select the correct types in the combo boxes.
    ' Can't do this during the loop above, since the list is sorted,
    ' things get rearranged everytime an item is added.
    For i = 0 To rdtReducedDataTypeSet.rdtItemCount - 1
        If cboFromDataType.ItemData(i) = mCD.ConvertFromType Then
            cboFromDataType.ListIndex = i
        End If
        
        If cboToDataType.ItemData(i) = mCD.ConvertToType Then
            cboToDataType.ListIndex = i
        End If
        
    Next i
    
End Sub

Private Sub btnCancel_Click()
    GFormReturnValue = vbCancel
    Set mCD = Nothing
    Unload Me
End Sub

Private Sub btnOk_Click()
    
    mCD.ConvertToType = cboToDataType.ItemData(cboToDataType.ListIndex)
    mCD.ConvertFromType = cboFromDataType.ItemData(cboFromDataType.ListIndex)

    Set mCD = Nothing
    GFormReturnValue = vbOK
    Unload Me
End Sub


Private Sub Form_Load()
    Me.left = Screen.Width / 2 - Me.Width / 2
    Me.top = Screen.Height / 2 - Me.Height / 2
    
    GFormReturnValue = vbCancel
End Sub