国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

'打開
Private SubmnuOpen_Click()
     CommonDialog1.Filter = "文檔文件(*.txt)|*.txt|所有文件(*.*)|*.*"
     CommonDialog1.ShowOpen
     OpenCommonDialog1.FileNameForInputAs# 1
     Text1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)
     Close #1
End Sub

'保存
Private SubmnuSave_Click()
     OnErrorResumeNext
     CommonDialog1.Filter = "文檔文件(*.txt)|*.txt|所有文件(*.*)|*.*"
     CommonDialog1.ShowSave
     OpenCommonDialog1.FileNameForOutputAs# 1
    Print #1, Text1.Text
     Close1
End Sub