精华内容
下载资源
问答
  • 后来看zy910写到“由于Edit控件的设定(只能在创建窗口时设置风格,创建后不能修改)所以TextBox的MultiLine屬性实现原理是:先清除原有的Edit,再创建一个新的Edit这在设计时是可行的。但在运行时,会导致文本框...

    我刚开始在csdnvb论坛里看到这个帖子的时候,想了很久都没有找到解决方法。后来看zy910写到“由于Edit控件的设定(只能在创建窗口时设置风格,创建后不能修改)

    所以TextBoxMultiLine屬性实现原理是:先清除原有的Edit,再创建一个新的Edit

    这在设计时是可行的。但在运行时,会导致文本框相关数据的丢失,甚至会因不安全的代码导致非法操作,所以M$TextBoxMultiLine屬性设置成运行时只读”,那么通过直接使用textbox控件是无法满足要求的了。

    其实我们可以找到一个替代的方法,微软给我们提供了一组无窗口控件库。所谓“无窗口控件”是见名知义,是没有无窗口,因而没有hwnd属性。这个库在主要语言的参考文档中没有提到,它必须手工从common/Tools/vb/Winless目录下安装。安装的方法是将这个目录复制到硬盘上,用regsvr32vb中对它进行注册,然后双击Mswless.reg,它创建使activex控件对vb环境可用的注册关键字。注册完毕后,从按Ctrl+T从可用的Active控件列表中选取Microsoft Windowless Control 6来把函数库加载到IDE中。

    使用windowless函数库的好处是在运行时没有内部控件的限制,事实上所有的属性都可以在运行时改变。这个库中包括TextBox的无窗口版—MSWLess.WLText。也就说我们可以通过动态加载这个控件,来实现动态添加multiline属性的text控件。

    Dim WithEvents TxtEditor As MSWLess.WLText

    Private Sub Command1_Click()

       

        Set TxtEditor = Controls.Add("MSLess.WLText", "txtEdit")

        TxtEditor.MultiLine = True

        TxtEditor.ScrollBars = wlBoth

        TxtEditor.Move 0, 0, ScaleWidth, ScaleHeight

        TxtEditor.Visible = True

       

    End Sub

    注意:“工程属性”中“删除有关未使用的active控件的信息”的复选框不要选。
    展开全文
  •   源码及可执行文件下载:http://files.cnblogs.com/deerchao/VB.Multiline.zip
    展开全文
  • TextBox控件的Multiline属性默认为false,如果要修改TextBox控件的大小,就需要将Multiline属性改为True。 按钮事件 设置三个全局变量 分别用来记录计算器显示框中的输入数字 到目前为止的计算结果 以...

    使用VB.NET控制台应用程序实现一个简单的计算器

    工具

    VS2019

    创建界面

    就是一个非常简单的计算器

    一共使用了2种控件,显示数字的是TextBox,各种按钮是Button。

    注意事项

    TextBox控件的Multiline属性默认为false,如果要修改TextBox控件的大小,就需要将Multiline属性改为True。

    按钮事件

    设置三个全局变量
    分别用来记录计算器显示框中的输入数字
    到目前为止的计算结果
    以及记录所使用的运算符

        Dim num As Double = 0  
        Dim sum As Double = 0
        Dim f As String = ""
    

    数字按钮以1为例,其余数字代码基本类似

    	Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            num = num * 10 + 1
            TextBox1.Text = num
    	End Sub
    

    运算符号按钮以+为例,其余运算符号代码都相类似

        Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
            If (f = "") Then
                sum = num
            ElseIf (f = "+") Then
                sum = sum + num
            ElseIf (f = "-") Then
                sum = sum - num
            ElseIf (f = "*") Then
                sum = sum * num
            ElseIf (f = "/") Then
                sum = sum / num
            End If
            num = 0
            f = "+"
            TextBox1.Clear()
        End Sub
    

    最后等号的按钮事件为

        Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
            If (f = "") Then
                sum = num
            ElseIf (f = "+") Then
                sum = sum + num
            ElseIf (f = "-") Then
                sum = sum - num
            ElseIf (f = "*") Then
                sum = sum * num
            ElseIf (f = "/") Then
                sum = sum / num
            End If
            num = 0
            f = ""
            TextBox1.Text = sum
            sum = 0
        End Sub
    

    这样就结束啦。刚刚开始学这个,希望慢慢进步哟。

    展开全文
  • VB中 文本框ScrollBars属性不管用

    千次阅读 2018-08-27 15:49:29
    错误一:文本框的ScrollBars属性不管用 错误:当文本框ScrollBars属性设置了非零值,却没有效果。 解决方案:将文本框的MultiLine属性设置为False即可。 ...

    错误一:文本框的ScrollBars属性不管用

     

    错误:当文本框ScrollBars属性设置了非零值,却没有效果。

    解决方案:将文本框的MultiLine属性设置为False即可。

     

    展开全文
  • 点击上方蓝字关注我们今天我们聊一聊VB中文件数据读与写,读与写可以让你批量导入计算再把计算结果导出去,而不是人为输入计算这样效率太低。我今天将从以下几点进行讲解说明:批量输入输出控件文件读写控件...
  • VB- vbCrlf

    2017-06-18 15:55:40
    VB- vbCrlfvbCrLf是Visual Basic中一个字符串常数,即“Chr(13) & Chr(10)”(回车符与换行符连接在一起),是**换行**意思。 例如: Text1.Text = “第一行” & vbCrLf & “第二行” 注意:要在TextBox控件中...
  • VB.net 基础

    2007-10-04 12:51:00
    最近写作业,用到VB.NET, 根本一窍不通, 于是根据作业要求查找, 一点点写, 发现论坛答复有很不全面, 有根本不对, 就我用到总结一下,以后不断更新vb.net 2005换行chr(10)+chr(13) 不是全都可以用, 我试了...
  • 主讲老师:郭盛华 TextBox控件: ...Multiline:是否多行显示 ScrollBars:不显示、显示垂直、显示水平、同时显示垂直或水平滚动条。 实例一: Private Sub Text1_Change() Label1.Caption = ...
  • VB中Textbox同时显示垂直滚动条和水平滚动条方法 在属性窗口设置:1.首先将Multiline(多行与否)设置为true,开启多行模式2.再将scrollbar属性(是否有滚动条)设置为both(既有水平滚动又有垂直滚动),但目前依然只...
  • 1.首先将Multiline设置为true,开启多行模式 2.再将scrollbar滚动条属性设置为1.horizontal(水平滚动),2.vretical(垂直滚动)3.both(既有水平滚动又有垂直滚动) ...
  • '增加一个TextBox(Text1), 修改BorderStyle 为0-None, MultiLine 为 True。 Const EM_GETLINECOUNT = &HBA Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ...
  • 上一篇的我找到的转换代码不太理想。任然有一些是“?...文本框的Multiline属性设置为true Const URLaddr = "http://api.douban.com/book/subject/isbn/9787115157676" '豆瓣网获取书籍信息网页地址DimIEr...
  • 本期知识视频教程文字讲解:素数其实就是我们平时说质数。...首先来按照题目意思来设计一下:文本框相关设置:1、multiline 选择 true代表可以多行写。2、scrollbar选2代表打开纵向滚动条。相关属性:...
  • VB读取网页源码

    2021-02-01 00:29:42
    在窗体上画两个标签(Label1,Label2),一个下拉式列表框(Combo1),一个按钮(Command1),两个文本输入框(Text1,Text2),将Text2属性Multiline设为True,ScrollBars设为3-Both,其他控件属性为默认,代码如下: ...
  • vb语法-vbcrlf

    2019-09-25 13:48:15
    vbCrLf简介 vbCrLf是Visual Basic中一个字符串常数,即“Chr(13) & Chr(10)”(回车符与换行符连接在一起),...注意:要在TextBox控件中换行,需先将MultiLine属性设置为True。 编辑本段相关常数 常数...
  • VB TEXT控件多行显示

    2019-10-01 14:06:15
    在属性窗口将Text1的Multiline(多行显示)设为True,根据需要设置ScrollBars(滚动条),这俩属性都是只读的,只能在设计时在属性窗体指定,不能在程序中用代码来变更。 转载于:...
  • 2014-09-05VB中WordWrap和Multiline的区别SSTab控件提供了一组选项卡,每个都充当一个容器,包含了其他控件。控件中每次只有一个选项卡是活动,给用户提供了其所包含控件,而其他选项卡都是隐藏。要使用该...
  • vb考试题

    2008-01-17 11:21:00
    1、在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程: Private Sub Form_Click()  Open "d:"test"smtext1.txt"...
  • VB封装RichEdit文本框控件,可编辑文字,实现像Word文字编辑功能文本控件,关于RichEdith Class(菜新 2007):  下列属性需要在Init过程之前调用.另:如果觉得不方便您可以自己定义类中相关属性与方法  ...
  • 2哥学Vb.net--随记

    2013-05-18 20:47:25
    刚刚在微博上看到的一道题:在vb.net中如何用二维数组逐个的把TEXTBOX文本框里面的数字读取?... 参照这个题目,自己写了下代码(先将TEXTBOX的MultiLine 勾选)   Try Dim arry1(,) As Integer Dim
  • 满意答案RX78102013.05.24采纳率:40%等级:12已帮助:10400人首先设置text1的multiline属性设置为true(允许多行显示,这点非常重要)然后在check1的click事件下写if check1.value=1 thentext1.text="您好"end if再在...
  • VB VBA 文本框回车键换行

    千次阅读 2014-12-26 14:57:51
    1,设置文本框Multiline = true 2,设置文本框Wordwarp = true 2,设置文本框Enterkeybehavior= true 最好加个Scrollbars , vertical为垂直 菊子曰:我在用着博客编辑软件
  • VB Label自动换行妙招

    千次阅读 2013-03-08 07:33:10
    哈哈,其实是用Textbox代替label 将textboxappearance设为flat 然后border设为0 背景设为“按钮表面” multiline设为true scrollbar设为0 这样就可以自动换行了
  • 全部符号解释 字符 ...将下一个字符标记为一个特殊字符、或一个原义字符、或一个 向后引用、或一个八进制转义符。...如果设置了 RegExp 对象 Multiline 属性,^ 也匹配 '\n' 或 '\r' 之后...
  • VB 获取系统26项配置信息

    千次阅读 2007-04-24 12:47:00
    用最简单的代码获取系统信息包括(系统...!)Option Explicit设置Text1的MultiLine属性为True设置Text1的ScrollBars属性为 2 - VerticalPrivate Sub Form_Load()Dim i As IntegerDim txt As String For i = 1 To 100
  • 这是使用EM_GETLINE message来做,比较奇特是lParam是指向一个字串所在位置...'以下在Form需一个TextBox,并设定MultiLine = True, 一个Command Button  Private Sub Command1_Click() Dim str5 As String ...

空空如也

空空如也

1 2 3
收藏数 50
精华内容 20
关键字:

vb的multiline