waacn的专栏

'========================================================检测文件是否存在并创建        Dim fs As Object        fs = CreateObject("Scripting.FileSystemObject")        If Not fs.fileexists("E:\flashgame\game

If TextBox1.Text = "" Then            MsgBox("滚动公告信息不能为空。", MsgBoxStyle.Information, "提示")            Exit Sub        Else            Dim mssqla As String            mssqla = "Activitie  tit

Dim fileContents As String        fileContents = My.Computer.FileSystem.ReadAllText("E:\flashgame\game\logon.ini") '读取        Me.TextBox3.Text = fileContents,指定到文本域

'退出操作确认         Dim close As DialogResult        close = MessageBox.Show("确认要关闭软件吗？ ", "警告提示 ", MessageBoxButtons.YesNo, MessageBoxIcon.Asterisk)        If close = Windows.Forms.DialogResult.Yes