C++VB 初めてプログラム板来た初心者ｽﾚ delphi hsp

C++VB 初めてプログラム板来た初心者ｽﾚ delphi hsp at TECH

392:デフォルトの名無しさん
06/08/22 23:55:56
>>390
Dim fn As Integer = FreeFile()
Try
FileOpen(fn, SaveFileDialog1.FileName, OpenMode.Output)

Dim line As String
For Each line In TextBox1.Lines
PrintLine(fn, line)
Next

Catch ex As Exception
MsgBox(ex.Message)
Finally
FileClose(fn)
End Try

次ページ

続きを表示

1を表示