大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
先将文件的每一行数据一行一行读到变量中
成都创新互联公司长期为上千多家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为阳明企业提供专业的成都网站建设、网站制作,阳明网站改版等技术服务。拥有十多年丰富建站经验和众多成功案例,为您定制开发。
然后执行一下下面
代码
就能取得
Dim
s
As
String
D_FILE
=
FreeFile
Open
你的文本地址
"\ini.txt"
For
Input
As
#D_FILE
Do
While
Not
EOF(D_FILE)
Line
Input
#D_FILE,
s
s
=
Replace(s,
vbTab,
"
")
Debug.Print
s
这里可以写出你想做的别的操作。
Loop
Close
#D_FILE
可以用Replace把他替换成空或别的字符:Vb的TAB表示方式为:vbTab 例:Replace(内容,vbTab,"")
chr(9),或直接定义一个字符串变量,令值=“在这里敲一下Tab键”
连接时用字符串时加上这个就好了
其实是起了作用的,只不过vbTab跟4个字符有关系,所以显示的列,8的倍数个字符和不是8的倍数个字符之间就显示得有差异了。
tab就是如果不够4个字符就补齐4个字符的位置。 超过的话就是补齐4的整倍数个字符。
textBox1.Text = "a" vbTab "1" vbLf "b" vbTab "2"
想必你一定是用PictureBox1的graphics直接绘制的,不存在程序语句错误,问题在于绘制后TabPage切换时并没有被自动刷新,所以图形存在但不显示(按钮点击可以画出来相当于手工刷新了)
你可以定义一个bitmap,在TabControl2_Selected函数中先用这个bitmap的graphics绘制图形,然后PictureBox1.Image=这个bitmap