实现VB中文本框的自动填充

vb怎样让文本框自动值

Private Sub Form_Load()

Text1.Text = ＂＂

Text2.Text = ＂＂

Text3.Text = ＂＂

Text4.Text = ＂＂

End Sub

Private sub lirun()

if text1.text<>＂＂ and text2.text<>＂＂ and text3.text<>＂＂ then

text4.text=(val(text1.text)-val(text2.text))*val(text3.text)

end if

End sub

Private Sub Text1_Change()

lirun

End Sub

Private Sub Text2_Change()

lirun

End Sub

Private Sub Text3_Change()

lirun

End Sub

text1为售价，text2为进价，text3为数量，text4为利润

VB中如何使用文本框控件输入和输出数据

private sub check1_click()

a = split(text1, ＂,＂): text1 = ＂＂

for i = lbound(a) to ubound(a)

if a(i) mod 8 <> 6 then

if text1 = ＂＂ then text1 = a(i) else text1 = text1 & ＂,＂ & a(i)

end if

next i

end sub

private sub command1_click()

for i = 50 to 300

if i = 50 then text1 = i else text1 = text1 & ＂,＂ & i

next i

end sub

private sub check2_click()

a = split(text1, ＂,＂): text1 = ＂＂

for i = lbound(a) to ubound(a)

if a(i) mod 5 <> 1 then

if text1 = ＂＂ then text1 = a(i) else text1 = text1 & ＂,＂ & a(i)

end if

next i

end sub

'''''''''''''''''''''''''''''''''''''''''''''如果你需要一步完成所有筛选的话'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

private sub command1_click()

text1 = ＂＂

for i = 50 to 300

if i mod 8 <> 6 and i mod 5 <> 1 then

if text1 = ＂＂ then text1 = i else text1 = text1 & ＂,＂ & i

end if

next i

end sub

VB编程中窗体中有几个文本框用来输入参数值然后在后面调用

Private Sub Command1_Click()

Text3.Text = CInt(Text1.Text) * 2 + CInt(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = ＂＂

Text2.Text = ＂＂

Text3.Text = ＂＂

End Sub

Private Sub Form_Load()

Text1.Text = ＂＂

Text2.Text = ＂＂

Text3.Text = ＂＂

Command1.Caption = ＂计算＂

Command2.Caption = ＂清空＂

Me.Caption = ＂运算示例＂

End Sub

如何在vb的模块中调用窗体中文本框的值

窗体：form1

模块：module1

Form1中创建文本输入text1

Form1内容如下：

Private Sub Command1_Click()

MsgBox ＂文本内容是＂ & Tx

MsgBox ＂窗体标题是＂ & Tc

MsgBox ＂窗体大小是＂ & Ts

End Sub

模块内容如下：

Function Tx() As String

With Form1

Tx = .Text1.Text

End With

End Function

Function Tc() As String

With Form1

Tc = .Caption

End With

End Function

Function Ts() As String

With Form1

Ts = .Width & ＂-＂ & .Height

End With

End Function