1001コメント360KB

VBScriptについて必死に話し合うスレ

レス数が950を超えています。1000を超えると書き込みができなくなります。

0965ピラフ

2014/01/29(水) 22:55:52.64

一度だけセットできるプロパティ

Class OneSet
　Dim Already_
　Dim Value_

　Sub Class_Initialize
　　Already_ = False
　End Sub

　Property Get Value
　　Value = Value_
　End Property

　Property Let Value(pValue)
　　If Already_ Then
　　　Err.Raise 1
　　End If
　　Value_ = pValue
　　Already_ = True
　End Property
End Class

レス数が950を超えています。1000を超えると書き込みができなくなります。