同题。
谢谢!
谢谢!
解决方案 »
- 求助:gdi+如何使用窗口句柄画图
- 读取txt文本数据,急!!!!!
- 在vb2008中有关ado操作的问题
- treeview,listview等控件的边框颜色怎么设呢,我不要黑色。
- 1000分送上!如何通过子类化,限制文本框的输入长度(中英文混合)
- 一个用Textout()在picturebox上输出文字的问题
- 关于DATAGRID
- 请问怎么样用代码方式给窗体生成一些Image控件,然后再清除干净?
- 怎样获得当前网络的工作组名称、域名、和计算机名?100分,先到先得
- 如何自动执行编辑后的脚本文件(代码方式)
- 去面试,没过,郁闷中,三分....
- 如何用程序实现热键关机和重启(100分,不够可再加)
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)把TextBox内容写入文本文件:
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile