イベント実装コード:
次のようにコードをコピーします。
プライベートサブ mQuit_Click()
Text1.Text = ""
終わり
エンドサブ
プライベートサブmNew_Click()
Text1.Text = ""
Form1.Caption = "無題"
エンドサブ
プライベートサブmopen_Click()
CommonDialog1.ShowOpen
フレーム = CommonDialog1.FileName
fname <> "" の場合
Form1.Caption = fname
Text1.Text = ""
#1 として入力用の fname を開きます
b = ""
EOF(1)まで実行
ライン入力 #1、次の行
b = b & ネクストライン & Chr(13) & Chr(10)
ループ
閉じる #1
テキスト1.テキスト = b
終了の場合
エンドサブ
プライベートサブ mSave_Click()
Form1.Caption = "無題" または Form1.Caption = "" の場合
CommonDialog1.ShowSave
fname = CommonDialog1.FileName
それ以外
fname = Form1.Caption
終了の場合
fname <> "" の場合
Form1.Caption = fname
#1 として出力用に fname を開きます
印刷 #1、テキスト 1.テキスト
閉じる #1
終了の場合
エンドサブ
Private Sub mNewSave_Click()
CommonDialog1.ShowSave
fname <> "" の場合
Form1.Caption = fname
#1 として出力用に fname を開きます
印刷 #1、テキスト 1.テキスト
閉じる #1
終了の場合
エンドサブ
CommonDialog コントロールを使用する必要があります。
プロパティコード:
次のようにコードをコピーします。
VB.Menu mFile の開始
キャプション = 「ファイル」
VB を開始します。メニュー mNew
キャプション = 「新しい」
終わり
VB を開始します。メニューを開く
キャプション = 「開く」
終わり
VB を開始します。メニュー mSave
キャプション = 「保存」
終わり
VB を開始します。メニュー mNewSave
キャプション = 「名前を付けて保存」
終わり
VB を開始します。メニュー mQuit
キャプション = 「終了」
ショートカット = ^E
終わり
終わり