03/01/17 17:51
>>257>>しぃ豆 ◆FTP/Z/SD72さん、
どうも無限ﾙｰﾌﾟに陥ってるみたいだね。
●修正案
Private Sub 名前を付けて保存_Click()
On Error GoTo handora
コモンダイアログ.ShowSave
テキストボックス.SaveFile コモンダイアログ.FileName, 1
編集画面.Caption = コモンダイアログ.FileName + " Ci Editor"
ReDim 元に戻す文字列(0)
元に戻す文字列カウント = 0
元に戻すカウント = 0
元に戻す.Enabled = False
やり直し.Enabled = False
handora:
End Sub
こんなかんじでいかがっすか？
でしゃばってごめんよ。