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 Text1_Change() Dim X As Integer If IsNumeric(Text1.Text) Then If Int(Text1.Text) >= 1 And Int(Text1.Text)

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就可以了

需要将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 这是一种简写形式。

比如text1 Private Sub Text1_Click() Text1.Text = "" End Sub

关键是这样做的目地何在。

给个代码参考,是将文本全部读入的: Private Sub Command1_Click() Dim strSj As String Dim s As String Open "c:\10.txt" For Input As #1 Do Until EOF(1) Line Input #1, s strSj = strSj & s & vbCrLf Loop Close #1 Text1 = strSj '设置T...

Private Sub Text1_Click() '单击Text1后发生 Dim i, inpa, GetTxt(500) As Variant, GotText As String GotText = "" ' Text1.Text For i = 0 To UBound(Split(Text1.Text, vbCrLf)) - 1 GetTxt(i) = Split(Text1.Text, vbCrLf)(i) inpa = Inpu...

您的代码原意是找“质数”,拼音是zhishu,不是奇数和偶数。按您的代码,如果是质数,就显示jishu,否则显示oushu。按算法,只有2、3、5、7、11、13……这些质数才会显示jishu,而9、15这些会显示oushu。 不知您说的错误是什么错误。如果是显示的jis...

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