home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / DM_INI_Edi2127419172008.psc / IniEditor / frm / frmAdd.frm next >
Text File  |  2008-09-18  |  4KB  |  140 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAdd 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   2115
  5.    ClientLeft      =   45
  6.    ClientTop       =   330
  7.    ClientWidth     =   6060
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   2115
  12.    ScaleWidth      =   6060
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   1  'CenterOwner
  15.    Begin VB.CommandButton cmdBut 
  16.       Caption         =   "C&ancel"
  17.       Height          =   375
  18.       Index           =   1
  19.       Left            =   4830
  20.       TabIndex        =   5
  21.       Top             =   840
  22.       Width           =   1055
  23.    End
  24.    Begin VB.CommandButton cmdBut 
  25.       Caption         =   "&OK"
  26.       Enabled         =   0   'False
  27.       Height          =   375
  28.       Index           =   0
  29.       Left            =   4830
  30.       TabIndex        =   4
  31.       Top             =   405
  32.       Width           =   1055
  33.    End
  34.    Begin VB.TextBox txtData 
  35.       Height          =   350
  36.       Left            =   225
  37.       TabIndex        =   3
  38.       Top             =   1155
  39.       Width           =   4470
  40.    End
  41.    Begin VB.TextBox txtValue 
  42.       Height          =   350
  43.       Left            =   225
  44.       TabIndex        =   1
  45.       Top             =   435
  46.       Width           =   4470
  47.    End
  48.    Begin VB.Label lblData 
  49.       AutoSize        =   -1  'True
  50.       BackStyle       =   0  'Transparent
  51.       Caption         =   "Item Data:"
  52.       Height          =   195
  53.       Left            =   225
  54.       TabIndex        =   2
  55.       Top             =   900
  56.       Width           =   735
  57.    End
  58.    Begin VB.Label lblName 
  59.       AutoSize        =   -1  'True
  60.       BackStyle       =   0  'Transparent
  61.       Caption         =   "0"
  62.       Height          =   195
  63.       Left            =   225
  64.       TabIndex        =   0
  65.       Top             =   180
  66.       Width           =   90
  67.    End
  68. End
  69. Attribute VB_Name = "frmAdd"
  70. Attribute VB_GlobalNameSpace = False
  71. Attribute VB_Creatable = False
  72. Attribute VB_PredeclaredId = True
  73. Attribute VB_Exposed = False
  74. Option Explicit
  75.  
  76. Private Sub cmdBut_Click(Index As Integer)
  77.     Select Case Index
  78.         Case 0
  79.             'Set variable data
  80.             mValName = txtValue.Text
  81.             mValData = txtData.Text
  82.             
  83.             ButtonPress = vbOK
  84.             Unload frmAdd
  85.         Case 1
  86.             ButtonPress = vbCancel
  87.             Unload frmAdd
  88.         End Select
  89. End Sub
  90.  
  91. Private Sub Form_Load()
  92.     Set frmAdd.Icon = Nothing
  93.     
  94.     lblName.Caption = "Item Name:"
  95.     
  96.     'Add new item
  97.     If (mEditMode = INI_NEW_VALUE) Then
  98.         frmAdd.Caption = "New Item"
  99.     End If
  100.     
  101.     'Edit Item
  102.     If (mEditMode = INI_EDIT_VALUE) Then
  103.         frmAdd.Caption = "Edit Item"
  104.         txtValue.Text = mValName
  105.         txtData.Text = mValData
  106.         txtValue.Enabled = False
  107.     End If
  108.     
  109.     'Add New Selection
  110.     If (mEditMode = INI_NEW_SELECTION) Then
  111.         frmAdd.Caption = "Add Selection"
  112.         lblName.Caption = "Selection Name:"
  113.         txtData.Visible = False
  114.         lblData.Visible = False
  115.     End If
  116.     
  117.     'Rename Selection
  118.     If (mEditMode = INI_RENAME_SELECTION) Then
  119.         frmAdd.Caption = "Rename Selection"
  120.         lblName.Caption = "Selection Name:"
  121.         'Update textbox with selection name.
  122.         txtValue.Text = mCurSelection
  123.         txtData.Visible = False
  124.         lblData.Visible = False
  125.     End If
  126.     
  127. End Sub
  128.  
  129. Private Sub Form_Unload(Cancel As Integer)
  130.     Set frmAdd = Nothing
  131. End Sub
  132.  
  133. Private Sub txtData_Change()
  134.     Call txtValue_Change
  135. End Sub
  136.  
  137. Private Sub txtValue_Change()
  138.     cmdBut(0).Enabled = Len(Trim$(txtValue.Text))
  139. End Sub
  140.