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
