MODIFIED SOURCE CODE FOR DATATYPE.FRM

DATATYPE.FRM contained 19 resource strings and 4 non-user interface strings.

Option Explicit
'>>>>>>>>>>>>>>>>>>>>>>>>
'ResMe Converted To A Property: Const BUTTON1 = "&OK"
'ResMe Converted To A Property: Const BUTTON2 = "&Cancel"
'ResMe Converted To A Property: Const Label1 = "Data Source:"
'>>>>>>>>>>>>>>>>>>>>>>>>


Private Sub cmdCancel_Click()
  gnDataType = gnDT_NONE
  Me.Hide
End Sub

Private Sub cmdOK_Click()
  gnDataType = lstTypes.ListIndex
  Me.Hide
End Sub

Private Sub lstTypes_DblClick()
  Call cmdOK_Click
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF1 And Shift = 0 Then
    DisplayTopic 2016123
  End If
End Sub

Private Sub Form_Load()
    'ResMe autogenerated line of code to call the initialization routine that was automatically generated.
    Call frmDataType_Auto_Init
  cmdOK.Caption = BUTTON1
  cmdCancel.Caption = BUTTON2
  lblLabel1.Caption = Label1
  
  If Tag <> "LOADED" Then
    Tag = "LOADED"
  End If
  'WAS: lstTypes.AddItem "Access MDB"
  lstTypes.AddItem LoadResString(S32_Access_MDB)

  'WAS: lstTypes.AddItem "Dbase IV"
  lstTypes.AddItem LoadResString(S153_Dbase_IV)

  'WAS: lstTypes.AddItem "Dbase III"
  lstTypes.AddItem LoadResString(S151_Dbase_III)

  'WAS: lstTypes.AddItem "FoxPro 2.6"
  lstTypes.AddItem LoadResString(S266_FoxPro_2_6)

  'WAS: lstTypes.AddItem "FoxPro 2.5"
  lstTypes.AddItem LoadResString(S264_FoxPro_2_5)

  'WAS: lstTypes.AddItem "FoxPro 2.0"
  lstTypes.AddItem LoadResString(S262_FoxPro_2_0)

  'WAS: lstTypes.AddItem "Paradox 4.X"
  lstTypes.AddItem LoadResString(S400_Paradox_4_X)

  'WAS: lstTypes.AddItem "Paradox 3.X"
  lstTypes.AddItem LoadResString(S398_Paradox_3_X)

  'WAS: lstTypes.AddItem "Btrieve"
  lstTypes.AddItem LoadResString(S74_Btrieve)

  'WAS: lstTypes.AddItem "Excel 5.0"
  lstTypes.AddItem LoadResString(S216_Excel_5_0)

  'WAS: lstTypes.AddItem "Excel 4.0"
  lstTypes.AddItem LoadResString(S214_Excel_4_0)

  'WAS: lstTypes.AddItem "Excel 3.0"
  lstTypes.AddItem LoadResString(S212_Excel_3_0)

  'WAS: lstTypes.AddItem "Text"
  lstTypes.AddItem LoadResString(S538_Text)

  lstTypes.AddItem "ODBC"

  lstTypes.ListIndex = 0

End Sub


'*********************************************************************************
'**          This Section Of Code Was Automatically Generated By ResMe          **
'**                                                                             **
'** String assignments to Constants have been converted to read-only properties **
'*********************************************************************************


'This was: Const BUTTON1 = "&OK"
Property Get BUTTON1 As String
    BUTTON1 = "&OK"
End Property

'This was: Const BUTTON2 = "&Cancel"
Property Get BUTTON2 As String
    'WAS: BUTTON2 = "&Cancel"
    BUTTON2 = LoadResString(S84_Cancel)

End Property

'This was: Const Label1 = "Data Source:"
Property Get Label1 As String
    'WAS: Label1 = "Data Source:"
    Label1 = LoadResString(S135_Data_Source)

End Property


Private Sub frmDataType_Auto_Init()
'This routine initializes all User Interface control properties on frmDataType.
'This section of code was automatically generated by the ResMe String Extraction Utility.
    'WAS: Me.Caption = "Data Type"
    Me.Caption = LoadResString(S136_Data_Type)

    'WAS: cmdCancel.Caption = "&Cancel"
    cmdCancel.Caption = LoadResString(S84_Cancel)

    'WAS: cmdOK.Caption = "&OK"
    cmdOK.Caption = LoadResString(S355_OK)

    'WAS: lblLabel1.Caption = " Data Source: "
    lblLabel1.Caption = LoadResString(S134_Data_Source)

End Sub