VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "ClassClipName"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private WithEvents Txt_clip As MSForms.TextBox
Attribute Txt_clip.VB_VarHelpID = -1
Private Lng_ind As Long

Public Property Let setTxt(New_txt As MSForms.TextBox)
Set Txt_clip = New_txt 'テキストボックスオブジェクトの生成
End Property
Public Sub setNothing()
Set Txt_clip = Nothing
End Sub
Public Property Let setIndex(New_ind As Long)
Lng_ind = New_ind 'インデックスをセット
End Property
Private Sub Txt_clip_Change()
SheetClip.Cells(ModuleConst.CLIPNAME, FormTool.TabClip.Value * 10 + Lng_ind + 1) = Txt_clip.Value 'クリップ名
If FormTool.Controls("optclip" & CStr(Lng_ind)).Value Then 'クリップがチェックされていれば
  FormTool.Controls("optclip" & CStr(Lng_ind)).Value = False
  FormTool.Controls("optclip" & CStr(Lng_ind)).Value = True
End If
End Sub