s = "c:\1.txt"
Open s For Binary As #1
ReDim Data(LOF(1) - 1)
Get #1, , Data
Close #1
End Sub
我奇怪了，我已经够快了，居然还有快的
哪位大虾帮帮忙,我用vb做了一个文本编辑器,可以保存文本,但是不能保存...
要保持文本的格式就需要你自己创建自己的文件格式，如果存为正常的文本格式那么你文本的其它格式是不能被保存的，只能存为正常的文本文件，如果你使用自己的文本格式，那么存储与读取都按照这个格式就没问题了，比如在没个文字前加入文字大小代码，存储的时候先存储文字大小再存储文字，读取时候先读取代码再...
vb 采集的实时数据怎样保存?文本格式或数据库都行,用什么控件和代码啊...
最简单的方法:open "c:\\新文件.txt" for output as #1 print #1, aa,bb close #1 aa,bb是变量名 如果output 改为append则后面加入的数据不会冲掉前面的数据
跪求各位大虾,在vb环境中编译生成exe后的程序,退出程序后保存命令按钮...
需要自己组织文件系统，简单点说，就是需要有专门的文件来保存，你想要保存的信息。然后，当你这个程序每次启动时，去读取这个文件里的信息，然后把读到信息通过代码实现。这就好比，我们使用Office的软件，做过的设置，下次启动会恢复前一次做的设置。基本原理，就是用自己的文件系统来实现。在windows里，...
VBA编完XML后怎么设置保存路径保存xml文件
调用 GetSaveAsFilename 时加入文件名完整路径即可固定保存在某个目录下，请看演示代码：Sub DemoSaveAsXML() Dim varDialogResult varDialogResult = Application.GetSaveAsFilename("D:\\search_keywords.xml", "XML Files(*.xml), *.xml") If VarType(varDialogResult) = vbString Then ThisW...
在线等,VB大虾请进。
在工程1中添加文件，将工程2的Form2作为工程1文件使用，并另存为工程1的窗体文件。所编译的EXE文件不会有问题。
关于用VB下载文件的方法
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long sub cmmand1_click()R= URLDownloadToFile(0,"http:\/\/www....
跪求大虾帮忙 vb 中 一个text 一个command ,点击command按钮 保存tex...
CommonDialog1.Filter = "所有文件 (*.*)|*.*|" & "TXT文件 (*.TXT)|*.txt|" '定义和过滤文件类型 CommonDialog1.FilterIndex = 2 '定义第二个文件类型为默认类型 CommonDialog1.FileName = "test.txt" '定义默认的文件名 CommonDialog1.ShowSave '显示另存为对话框 strFileName = Common...
各位大虾,VB利用Setup Factory打包时出现源代码
我一般就WinRAR自带的SFX功能，很好用。，。
VB登陆界面 本人VB小白,请大虾帮忙看看,最好能给份 我复制后 我的登陆...
"Text1.SetFocusText1.Text = ""Exit SubEnd IfIf Trim(Text2.Text) = "" ThenMsgBox "密码不能为空，请重新输入！"Text2.SetFocusText2.Text = ""Exit SubEnd IfAdodc1.RecordSource = "select * from user"Adodc1.RefreshIf Adodc1.Recordset.Fields("Username") = Text1.Text Then ...
跪求大虾帮忙 vb 中 一个text 一个command ,点击command按钮 保存tex...
'定义默认的文件名 CommonDialog1.ShowSave '显示另存为对话框 strFileName = CommonDialog1.FileName '读取用户在“保存”对话框中输入的文件名 intFileNum = FreeFile()'取得下一个可用文件号 Open strFileName For Output As intFileNum '以Output模式打开用户指定的文件以便进行写入 Print intFile...
