File.WriteAllText("保存txt的路徑","要寫入的內(nèi)容")
成都創(chuàng)新互聯(lián)從2013年開始,先為洛寧等服務(wù)建站,洛寧等地企業(yè),進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為洛寧企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。
'或者
File.WriteAllLines("保存txt的路徑",?new?string(){?"要寫入的內(nèi)容"})
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
給你一個思路,具體實(shí)現(xiàn)應(yīng)該很簡單的 只是我是搞VB6的 VB2005語句跟它有點(diǎn)區(qū)別 我不敢貿(mào)然發(fā)代碼
1.首先建立一個程序,使它每次運(yùn)行都寫入一個log文件,內(nèi)容為當(dāng)前時間(date+time),具體的你還可以順便加入讀取上次log內(nèi)容的功能
2.將這個程序編譯成exe,復(fù)制到一個固定目錄下,然后運(yùn)行regedit,定位到HKey_local_Machine\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\
右邊Shell鍵值修改為explorer.exe 文件路徑 (如explorer.exe c:\1.exe)。這樣每次開機(jī)都會啟動并記錄時間(包括以安全模式啟動)
簡單點(diǎn)的:
dim 上一個數(shù) as double
dim 下一個數(shù) as double
dim 結(jié)果 as double
dim 操作 as string
private sub 加減乘除(byval sender as object, byval e as eventargs) handles 加.click, 減.click, 乘.click, 除.click
上一個數(shù) = cdbl(輸入框.text) ' 存儲當(dāng)前輸入的數(shù)值
輸入框.text = "" ' 等待下一個數(shù)值
select case sender.text ' 根據(jù)按下的按鈕的文本屬性確定你要做什么,這里可以用加減乘除號代替
case "加"
操作 = "加"
case "減"
操作 = "減"
case "乘"
操作 = "乘"
case "除"
操作 = "除"
end select
end sub
private sub 計(jì)算(byval sender as object, byval e as eventargs) handles 等號.click
下一個數(shù) = 輸入框.text
輸入框.text = ”“
select case 操作
case "加"
結(jié)果 = 上一個數(shù) + 下一個數(shù)
case "減"
結(jié)果 = 上一個數(shù) - 下一個數(shù)
case "乘"
結(jié)果 = 上一個數(shù) * 下一個數(shù)
case "除"
結(jié)果 = 上一個數(shù) / 下一個數(shù)
end select
輸入框.text = cstr(結(jié)果)
上一個數(shù) = 結(jié)果
end sub
.NET 的哈,我沒有 .NET 現(xiàn)在,不知道行不行
Allocconsle 打開一個控制臺窗口
Call 調(diào)用DLL文件中的函數(shù)
Freeconsole 關(guān)閉控制臺窗口
Call 命令調(diào)用DLL文件中函數(shù)后,函數(shù)運(yùn)行時,如果用戶關(guān)閉控制臺,會彈出錯誤對話框。
本人想實(shí)現(xiàn):當(dāng)用戶點(diǎn)擊控制臺關(guān)閉按鈕后,彈出一個確認(rèn)對話框,點(diǎn)確定,控制臺關(guān)閉,并不會出現(xiàn)錯誤對話框;點(diǎn)取消,控制臺繼續(xù)運(yùn)行。