- 133
- 0
- 约6.01千字
- 约 8页
- 2016-10-19 发布于重庆
- 举报
vb读写txt
有2个txt文件
txt1:123
txt2:456
一个按钮一个text
怎么点击按钮 读取txt1+txt2在text(123456)恩,这样
Private Sub Command1_Click()
Dim intTxt1 as double
Dim intTxt2 as double
intTxt1=Cdbl(text1.text)
intTxt2=Cdbl(text2.text)
lblCaption.caption = intTxt1 intTxt2
End Sub你提的问题不清楚,是2个txt文件还是2个文本框,如果是2个txt文件就要用到读取文件的操作了。如:open 文件名 as # 12011-10-31 08:51 killserver007 | 一级
读取
Private Sub Command1_Click()
Dim fn As Long, StrRead As String
Dim aStr As String
fn = FreeFile()
aStr =
路径可以用 App.Path \aa.txt 表示程序所在目录的aa.txt文件
Open d:\aa.txt For Input As #fn
Do While Not EOF(fn)
Line Input #fn, StrRead
aStr =
您可能关注的文档
- TDS试题讲解部分.docx
- 中医内科笔记_2010.doc
- TD-LTE掉线优化指导书.docx
- Teradata数据仓库基础知识.doc
- TDA9965工作原理及其在TDI-CCD相机电路中的应用.doc
- Tesla汽车公司战略管理浅析.docx
- TFT-LCD光学膜介绍.docx
- 香药草栽培及利用(农营二技二) .doc
- TH800(发那科)技术协议.doc
- TheComparisonandTranslationofAnimalWordsinChineseandWesternCulture修改版.doc
- 清明节高中下学期主题班会课件.pptx
- 统编版语文一年级下册课件《语文园地三》.pptx
- 统编版语文一年级下册课件《语文园地六》.pptx
- 一例ECMO术患者的个案护理.pptx
- 2.12 辽宋夏金元时期经济的繁荣 课件 2025-2026学年统编版七年级历史下学期.pptx
- 一例重症肺炎患者改善肺功能的循证个案护理.pptx
- 青春不“翻车”:电动车安全小贴士 高中下学期主题班会.pptx
- 主动脉夹层破裂的急救护理.pptx
- Unit 3 My school calendar Part A let's spell 课件(内嵌音视频)2025-2026学年人教PEP版英语五年级下册.pptx
- 乳糜尿的微生物学分析.pptx
原创力文档

文档评论(0)