精华内容
下载资源
问答
  • 输入时,另一文本框中边输边显示代码: Private Sub Text1_Change() Call text6xs 'Text6.Text = Label1.Caption & " " & Text1.Text End Sub Private Sub Text2_Change() Call text6xs End Sub Private Sub...
  • 主要介绍了VB的TextBox文本框实现垂直居中显示的方法,比较实用的功能,需要的朋友可以参考下
  • 摘要:VB源码,系统相关,DOS,文本框 VisualBasic6.0外连接DOS显示文本框思路,源码说明:  1. 本程序代码内已进行相关标识,以便学者学习  2.很多系统信息和操作都可调用DOS操作  3.创建如下控件:  mand1,Text1,...
  • VB 获得文本框中文字的行数,并返回某一行的内容。这方面的资料比较少,现在可以放心了。稍作修改就可以让程序把文本框中的内容按行处理了。
  • vb读取文件并在文本框中显示

    千次阅读 2010-07-15 22:50:00
    Dim Str1 As String Dim Str2 As String Dim StrFileName As String StrFileName = App.Path & "/1.txt" '获取文本文件路径 Open StrFileName For Input As #1 '打开文件 Do Until EOF(1) '判断是否末尾 Line ...

        Dim Str1 As String
        Dim Str2 As String
        Dim StrFileName As String

        StrFileName = App.Path & "/1.txt" '获取文本文件路径
        Open StrFileName For Input As #1 '打开文件
        Do Until EOF(1) '判断是否末尾
            Line Input #1, Str1 '逐行读取
            Str2 = Str2 & Str1 & vbCrLf '获取文本 'vbCrLf 回车符
        Loop
        Text1.Text = Str2  'text1的MultiLine设置为ture
        Close #1

    展开全文
  • 内容索引:VB源码,字符处理,语法高亮 对VB中的的RichText文本控件进行语法高亮显示操作的一个示例,搞明白了这个,你就能写一个简单的语法编辑器啦!
  • 'select得到的临时表,游标指向尾记录,Access指向第一条 mrc.MoveFirst End Sub Private Sub viewData() txtStudentno.Text = mrc.Fields(1) txtstudentName.Text = mrc.Fields(2) ' 把临时表...
        Dim mrc As ADODB.Recordset  
      
    Private Sub cmdQuery_Click()    
        Dim txtSQL As String
        Dim MsgText As String
    
        txtSQL = "select * from student_Info"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        Call viewData
    	’调用该函数
    
        Set txtMoney.DataSource = mrc
        txtMoney.DataField = "cash"
    End Sub
    
    Private Sub Form_Load()
         Dim MsgText As String
         Dim txtSQL As String
    
        
        txtSQL = "select * from student_Info"
        Set mrc = ExecuteSQL(txtSQL, MsgText)    '得到student表,并显示出来
        
        'select得到的临时表,游标指向尾记录,在Access中指向第一条
        
        mrc.MoveFirst         
        
    End Sub
    
    Private Sub viewData()
        
        txtStudentno.Text = mrc.Fields(1)
        txtstudentName.Text = mrc.Fields(2)            ' 把临时表中当前记录赋给文本框
        txtsex.Text = mrc.Fields(3)
        txtDepartment.Text = mrc.Fields(4)
        txtGrade.Text = mrc.Fields(5)
        txtClassno.Text = mrc.Fields(6)
        txtstatus.Text = mrc.Fields(10)
        txtcomment.Text = mrc.Fields(8)
        txtMoney.Text = mrc.Fields(9)
    
    End Sub

    注:       

          文本框的DataField属性:

          返回/设置一个值,将控件绑定到当前记录的一个字段。

          DataSource属性:

          设置一个数值,指出数据控件通过它将当前控件绑定到数据库。

    展开全文
  • VB文本框操作代码

    2013-05-13 22:22:19
    文本框限制(只能输入汉字、数字、首位不能输入0,可修改) .文本框加入指定文字 文本框删除文字 去除文本框里所有的空格
  • vb语言实现的功能 实现的窗体和文本框的下拉和弹出式菜单
  • 根据字符串的长度自动调整文本框的大小显示出来。自己研究了大半天终于做出来了,但是还是需要优化,因为我们的项目不适用。
  • VB中基于Text1文本框的PasswordChar属性

    千次阅读 2019-03-04 09:26:45
    此程序Text的属性栏PasswordChar属性设置为 * Private Sub C1_Click() If Text1.Text = “123456” Then Text1.Text = “口令正确” Text1.PasswordChar = “” Else Text2.Text = Text2.Text - 1 If Text2.Text &...

    在这里插入图片描述
    此程序中Text的属性栏PasswordChar属性设置为 *
    Private Sub C1_Click()
    If Text1.Text = “123456” Then
    Text1.Text = “口令正确”
    Text1.PasswordChar = “”
    Else
    Text2.Text = Text2.Text - 1
    If Text2.Text > 0 Then
    MsgBox “第” & (3 - Text2.Text) & “次口令错误,请重新输入”
    Else
    MsgBox “3次输入错误,请退出”
    Text1.Enabled = False
    End If
    End If
    End Sub
    问题:此处Text1.PasswordChar = "“起到了什么作用?
    解析:程序在运行的过程中,在口令框输入密码时,显示的是 * ,如果密码输入错误,Text文本框显示仍然为 * ,如果密码输入正确,Text文本框显示汉字:口令正确。如果程序中没有设定Text1.PasswordChar=”"的话,那么密码输入正确,Text文本框则显示 *,无法提示密码口令正确。

    展开全文
  • VB6.0编写的一个自定义的Text文本框控件,实现了基本的文本加载并显示的功能,由VB代码写出的控件,不是调用VB自带的Editor控件。编写的过程,使用了ucText.ctl、modText.bas等类库。后续会添加代码语法高亮功能...
  • 利用vb在文本框中现实单击窗体的次数,源代码
  • 操作一软件,所有信息都显示在文本框里的。我可以用VB获取该软件的文本框窗口句柄。 但我想把文本框里的数据取出来入打开的记事本。应该怎样做。用VB
  • 要完成的功能:点击ListBox选中一个或多...你原先错误的思路:ListBox配置好数据源,然后TextBox的后台事件TextBox1_TextChanged写入方法获取ListBox被选中项的数量的值。 正确思路:1.此功能是点击ListBox控...

    要完成的功能:点击ListBox选中一个或多个选项时,TextBox中自动显示选中项的数量。

    如下图显示:

                              

    分析:

    你原先错误的思路:ListBox配置好数据源,然后在TextBox的后台事件TextBox1_TextChanged中写入方法获取ListBox中被选中项的数量的值。

    正确思路:1.此功能是点击ListBox控件引发的事件,ListBox是主动,TextBox是被动,所以是ListBox主动传值给TextBox,而不是TextBox去获                 取ListBox选中项数量的值。所以应该是在ListBox的后台事件ListBox1_SelectedIndexChanged中写入方法。

                  2.赋值等式的左边不能是方法体,只能是参数或变量名。如不能写成Convert.ToInt32(TextBox1.Text)=ListBox1.Items.Count;

                    而写成TextBox1.Text=ListBox1.Items.Count+"";(这样左右都为string类型)

                  3.ListBox只能获取项目的总数量ListBox1.Items.Count,而无法通过函数直接获取被选中项目的总数量。因而需要通过for循环判断每                   项是否被选中,且设置一个int型变量count计数。

    正确代码如下:

                  

    protected void ListBox1_SelectedIndexChanged(object sender, EventArgs e)
        {
            int count = 0;
            for (int i = 0; i < ListBox1.Items.Count; i++)
            {
                if (ListBox1.Items[i].Selected)
                {
                    count++;
                }
            }
            TextBox1.Text = count + ""; //等式两边均为string类型
        }

     

     

                              

    转载于:https://www.cnblogs.com/xyhy-sxh/p/4205802.html

    展开全文
  • 快速DataGrid控件中的数据显示在文本框中,可以使用DataGrid控件的Columns集合中的Text属性。具体实现代码如下: Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) Text11....
  • VB.net小技巧——读取文本文件并显示文本框中 第一步,工具箱添加OpenFileDialog控件 第二步 openfiledialog 属性 filter设置为: 文本文件(*.txt)|*.txt|配置文件(*.ini*)|*.ini*|所有文件(*.*)|*.* 第三步 ...
  • VBVB.NET中文本框获得焦点,自动全选文本框内容

    万次阅读 热门讨论 2016-08-10 11:36:03
    vb vb.net textbox 全选文本框的内容
  • 在文本框中输入公式(如:sin(10),abs((123+456)/(123-456))),自动计算结果 实现简单,一看就懂
  • 只需此行:frmVCard.txtVCard.Text + = Cell.ToString更改为此:frmVCard.txtVCard.Text + = Cell.Text
  • VB中 文本框的ScrollBars属性不管用

    千次阅读 2018-08-27 15:49:29
    错误一:文本框的ScrollBars属性不管用 错误:当文本框ScrollBars属性设置了非零值,却没有效果。 解决方案:将文本框的MultiLine属性设置为False即可。 ...
  • Vb程序设计,现有两个文本框控件和一个按钮控件(3).txt
  • vb语言如何产生随机数组并使数组text中显示.txt
  • function checkItem(e,itemId) { var item = document.getElementById(itemId); var $items = $(item); if (e.checked) { var checkval = $items.val()...
  • vb6文本框获得焦点问题

    千次阅读 2012-11-13 16:00:06
    好久不用vb6了,今天写个简单的程序,想使文本框在画面初期显示时获得焦点, 以为写个Text1.SetFocus就可以了,调试了却发现报错。   上网查了一些资料后,原来如下: 1.页面初期化事件Form_Load写Text1....
  • '去除文本框首尾空行  If Left(Text2, 2) = Chr(13) & Chr(10) Then   Text2 = Right(Text2, Len(Text2) - 2)  End If  If Right(Text2, 2) = Chr(13) & Chr(10) Then   Text2 = Left(Text2, Len(Text2) ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 8,132
精华内容 3,252
关键字:

vb将结果显示在文本框中