wlbk.net
当前位置:首页 >> vB中riCh tExtBox1控件怎么使用 >>

vB中riCh tExtBox1控件怎么使用

在Form2中定义一个变量 a,b Public a As String Public b As String 将 Form1中Text1,Text2的值传给Form2中的a,b Form2.a= Text1.Text Form2.a= Text2.Text Form2.Show() a,b就可以接收到Form1中Text1,Text2的值了

Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click TextBox1.SelectAll() TextBox1.ForeColor = Color.Blue End Sub如果不想每次都这样的话,就加一个if判断TextBox1.ForeColor 是否是Color.Blue就可以了

设置焦点,对于Textbox可以看到里面有一闪一闪的光标,表示Textbox获得了当前焦点,可以进行输入,若是Button,会显示一个虚线框,表示Button为当前焦点,这个时候按回车就相当于点击该按钮。

需要将name用双引号括起来。 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False" Adodc1.RecordSource = "select * from jishijilu" Adodc1.Refresh Set Text2.Da...

这个相当于字符串连接符号,意思是:textbox1.text=textbox1.text & b 这是一种简写形式。

楼上有高手答了,我换一个方式作答 Private Sub Text1_Change() Dim X As Integer If IsNumeric(Text1.Text) Then If Int(Text1.Text) >= 1 And Int(Text1.Text)

未处理的“System.InvalidCastException”类型的异常出现在 Microsoft.VisualBasic.dll 中。 其他信息: 从字符串“”到类型“Single”的转换无效。 修改: Dim newform1 As New Form1 Dim MyValue As Single Single.TryParse(newform1.TextBox1.Text, M...

你的:MyFileName = Dir("d:\*.txt") 改为:MyFileName = Dir(TextBox2.Text & "*.txt") 或者也可以在Sub Test() 中加个参数, 在调用的地方,把路径作为参数传入。

text控件的enable属性用来设置 text控件是否可用,也就是设置 text控件是否可编 辑文本内容。 其实既使设置了enable=False,通过方法仍可以修改 text控件的text等属性,只是text控件的会变成浅灰色,而且,通过窗口无法编辑而矣。 当然,与其它...

网站首页 | 网站地图
All rights reserved Powered by www.wlbk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com