File.WriteAllText("保存txt的路径","要写入的内容")
成都创新互联从2013年开始,先为洛宁等服务建站,洛宁等地企业,进行企业商务咨询服务。为洛宁企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
'或者
File.WriteAllLines("保存txt的路径", new string(){ "要写入的内容"})
File 方法 (System.IO)
Dim sw As StreamWriter = New StreamWriter(“c:\xxxxx.log”, True) 'true是指以追加的方式打开指定文件
For i = 0 To j
temp = i.ToString
sw.WriteLine(temp)
sw.Flush()
Next
sw.Close()
sw = Nothing
给你一个思路,具体实现应该很简单的 只是我是搞VB6的 VB2005语句跟它有点区别 我不敢贸然发代码
1.首先建立一个程序,使它每次运行都写入一个log文件,内容为当前时间(date+time),具体的你还可以顺便加入读取上次log内容的功能
2.将这个程序编译成exe,复制到一个固定目录下,然后运行regedit,定位到HKey_local_Machine\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\
右边Shell键值修改为explorer.exe 文件路径 (如explorer.exe c:\1.exe)。这样每次开机都会启动并记录时间(包括以安全模式启动)
简单点的:
dim 上一个数 as double
dim 下一个数 as double
dim 结果 as double
dim 操作 as string
private sub 加减乘除(byval sender as object, byval e as eventargs) handles 加.click, 减.click, 乘.click, 除.click
上一个数 = cdbl(输入框.text) ' 存储当前输入的数值
输入框.text = "" ' 等待下一个数值
select case sender.text ' 根据按下的按钮的文本属性确定你要做什么,这里可以用加减乘除号代替
case "加"
操作 = "加"
case "减"
操作 = "减"
case "乘"
操作 = "乘"
case "除"
操作 = "除"
end select
end sub
private sub 计算(byval sender as object, byval e as eventargs) handles 等号.click
下一个数 = 输入框.text
输入框.text = ”“
select case 操作
case "加"
结果 = 上一个数 + 下一个数
case "减"
结果 = 上一个数 - 下一个数
case "乘"
结果 = 上一个数 * 下一个数
case "除"
结果 = 上一个数 / 下一个数
end select
输入框.text = cstr(结果)
上一个数 = 结果
end sub
.NET 的哈,我没有 .NET 现在,不知道行不行
Allocconsle 打开一个控制台窗口
Call 调用DLL文件中的函数
Freeconsole 关闭控制台窗口
Call 命令调用DLL文件中函数后,函数运行时,如果用户关闭控制台,会弹出错误对话框。
本人想实现:当用户点击控制台关闭按钮后,弹出一个确认对话框,点确定,控制台关闭,并不会出现错误对话框;点取消,控制台继续运行。