早 - vb6.0吧

level 8

撷一樱花落楼主

早

2015年12月17日 05点12分 1

level 8

撷一樱花落楼主

本人职高高三学了一年半vb
以前学习的时候在贴吧论坛文库找到了很多学习资料现在想分享给需要的人
大神绕道 [哈哈]

喷子留情

2015年12月17日 05点12分 2

level 8

撷一樱花落楼主

[无效] http://pan.baidu.com/share/link?shareid=3891986213&uk=3174377358这个是书籍资料虽然手机看起来很麻烦但是真的是不错的书我想买一本但是图书馆没有

2015年12月17日 05点12分 4

时空穿梭lumia

谢谢保存了 ——来自爱贴吧 Windows Phone 客户端

2016年02月15日 16点02分

level 8

撷一樱花落楼主

11.取某路径最终文件名
DimFnm$
Fnm="D:\1.txt"
text1.text=(Fnm,InStrRev(Fnm,"\")+1)
说明：InStrRev(Fnm,"\")即从后往前找FNM里最后一个\的位置。
+1表示\后面的全部字符串列如1.txt
MID就是从FNM里查找1.txt的位置

2015年12月17日 05点12分 6

level 8

撷一樱花落楼主

既然说到从最终路径获取文件名那么获取文件路径怎么获得呢？
可以设置可拖入
Form1.OLEDropMode = 1
窗体1可拖入
Private Sub form1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
text1.text=data.files（1）
解释一下当文件拖入text1时
text获得拖入文件的路径
不止form 有可拖入功能大部分控件也都有的

2015年12月17日 06点12分 7

level 8

撷一樱花落楼主

如何将text内容输出到文本呢
可以使用vb 的open
Open "c:\1.txt" For Append As #1 Append是以追加的方式打开，每次写入的都追加在文件最后 Open "c:\1.txt" For Output As #1 Output是写入方式打开，每次写入都会覆盖原来的文件
Open "D:\1.txt" For Output As #1
Print #1, Text1.Text
Close #1
把text1.text 保存到d盘名字为1.txt

2015年12月17日 06点12分 8

level 8

撷一樱花落楼主

读取内容
把txt文档输入到text1.text中：
Open "d：\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, nextline '逐行读入
Text1.Text = Text1.Text + nextline + Chr(13) + Chr(10) '
Loop
Close #1
#1应该是代表文件号也可以
#2 #
3
如果文件号为#3的话
eof（）的内容为3
chr（10）+chr（13）相当于按下回车这两个一个是回车符一个是换行符

2015年12月17日 06点12分 9

level 8

撷一樱花落楼主

下次更

2015年12月17日 07点12分 10

level 8

撷一樱花落楼主

dd

2016年01月02日 12点01分 11