[原创]一个小程序，发上来分享

mokina

本来是自己用的，但是改了一下，觉得还是有实用价值的，于是发上来和大家一起共享

这是一个用来记事的工具，我是按照遨游浏览器的记事本来做的，虽然外貌没一点像的地方= =
大家下了就知道了，里面有说明

http://free5.ys168.com/?bnghty  的“记事美化1.2版”文件夹

有BUG也提出来哦 [s:1]

叮当

卡吧死机提示有病毒哦，请LZ仔细检查后再上传

mokina

5555555555TOT，该死的YS168 TAT，放心，绝对没毒，只是YS168的系统让杀毒软件误以为是毒了…………TOT [s:6]

这种事以前也发生过，看来我要做个告示了 [s:6]

叮当

里面的确有病毒，不过貌似可以杀掉

mokina

真的米啊 [s:6]  [s:6]  [s:6]  [s:6]
大不了我把源代码发上来给大家看嘛 [s:6]

Private Sub I1_Click()
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容

strFileName = "text.dat"
lngHandle = FreeFile() '取得句柄
'准备要写入的内容
strWrite = Text1.Text
'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub I3_Click()
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容

strFileName = "text.dat"
lngHandle = FreeFile() '取得句柄
'准备要写入的内容
strWrite = Text1.Text
'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件
End
End Sub

Private Sub I2_Click()
Dim inputdata As String
Text1.Text = ""
Open "text.dat" For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata '一行行读文件
Text1.Text = Text1.Text + inputdata + vbCrLf
Loop
Close #1
End Sub

Private Sub Image1_Click()
End
End Sub

Private Sub ITXT_Click()
Shell "notepad  " & "text.dat"
End Sub

Private Sub Form_Load()
Dim inputdata As String
Text1.Text = ""
Open "text.dat" For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata '一行行读文件
Text1.Text = Text1.Text + inputdata + vbCrLf
Loop
Close #1
End Sub

Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub

叮当

[s:5]  也可能是卡吧死机误报…… 但是却确实是是报了  [s:5]

Saiholmes

丫...瑞星和NOD尖叫了....
VB的程序啊...

盗贼王JING

用VB做的。。

xavier

从来只用Notepad++的人路过......

mokina

LS……用记事本的？ [s:5]

寒一个先  [s:5]

呃……那个谁……帮忙把源代码那帖删了吧
呃……其实不删也可以拉，做个开源的……
呃……再说这代码也是从网上找来的……

@_@成功地晕了 [s:5]