精华内容
下载资源
问答
  • Multiline:控制字符串为单行还是多行模式 单行模式: 只有一个行首,字符串的最前面;一个行末,字符串的最后面 多行模式: 每行都有一个行首和行末 Mulitiline的设置只会对正则符号:^和$ 有影响 Sub 测试() Dim ...

    Multiline:控制字符串为单行还是多行模式

    单行模式: 只有一个行首,字符串的最前面;一个行末,字符串的最后面
    多行模式: 每行都有一个行首和行末
    Multiline的设置只会对正则符号:^和$ 有影响

    Sub 测试()
        Dim my_str As Variant, mh As Variant, dest$    
        Set reg = CreateObject("vbscript.regexp")
        
        my_str = "这是行首ABC" & Chr(10) & _
                 "123这是行末"
        [a2] = my_str
                    
        With reg
            .Pattern = "^|$"  '正则表达式
            .Global = True  '全局匹配
            
            .MultiLine = False  '多行模式
            
            new_str = .Replace(my_str, "@")  '将“行首\行末”替换为“@”
        End With
                
        [b2] = new_str
    End Sub
    

    在这里插入图片描述

    展开全文
  • 我正在使用它将单元格值复制到文本框(双击): Query_TextBox.Text = DataGridView2.Item(“QueryData”,DataGridView2.CurrentRow.Index).Value TextBox的Multiline和WordWrap属性设置为True . 我试着为...

    我的项目中有一个DataGridView,它有4列和从XML文件加载的数据 - 其中一列包含多行SQL脚本,双击此查询应复制到多行文本框 .

    正如你在这里看到的:My Project

    a4ee421d-a5ac-4286-b0b9-c2dce76972b7.png

    在DGV中,它看起来像多行,但对于文本框,它被复制为一个丑陋且不易读的行......

    我正在使用它将单元格值复制到文本框(双击):

    Query_TextBox.Text = DataGridView2.Item(“QueryData”,DataGridView2.CurrentRow.Index).Value

    TextBox的Multiline和WordWrap属性设置为True . 我试着为TextBox设置:Me.DataGridView2.DefaultCellStyle.WrapMode = DataGridViewTriState.True和:“AcceptsReturn = True”,但仍然没有运气 .

    我试图将一些多行文本附加到文本框中,如:TextBox.Text =“asdasd asdasdads asdads”,它有效......只有当我试图在TextBox中显示来自DGV的数据时才存在问题...

    也许问题是数据加载?我正在使用:Dim reader As New System.IO.StringReader(My.Resources.Library)(...)ds.ReadXml(reader)DataGridView2.DataSource = ds.Tables(0)

    如何将其作为多行字符串复制到文本框?

    展开全文
  • 多行文本框(Text.MultiLine)问题

    万次阅读 2018-05-25 21:19:10
    扩展 Text.Multiline属性 它是获取或设置一个值,该值指示控件是否为多行TextBox控件 语法 声明 Public Overrides Property Multiline As Boolean 用法 Dim instance As TextBox Dim value As Boolean value = ...

    概述

    机房收费系统中的充值窗体本身的难度不是很大,关键是有时候真的细心了吗!今天我就有幸遇到了这样的问题,并通过自己的努力把它发现并解决了。虽然很简单,但是我还是分享给大家。

    问题

    今天敲机房的时候,在充值窗体代码都敲完了以后Text本文框能够显示内容,但是只有一行。我在经过核对后,发现不是代码上的问题,那是哪里出了问题呢?下面看具体问题。
    这里写图片描述
    毕竟这样的显示还是非常的不合理的。经过多次的不断尝试后,发现应该是Text控件属性的问题。带着这样的疑问,经过不断的尝试和核对,终于发现了MultiLine属性,它就是一个决定一个控件是否可以接受多行文本的问题,将属性值默认的False改为True,然后再试,果然问题就迎刃而解了。
    这里写图片描述
    然后看下改变后界面的效果,是不是舒服了很多呢?
    这里写图片描述

    扩展

    • Text.Multiline属性

    它是获取或设置一个值,该值指示控件是否为多行TextBox控件

    • 语法

    声明
    Public Overrides Property Multiline As Boolean
    用法
    Dim instance As TextBox
    Dim value As Boolean

    value = instance.Multiline

    instance.Multiline = value

    • 属性值
      如果该控件时多行TextBox控件,则为True;否则为False,默认为False。

    总结

    遇到问题不要着急,不断的去试,不断的总结,你会发现真的会收获很多,当然作为小白的我目前水平有限还望指点。

    展开全文
  • vb曲线拟合

    2020-12-23 14:23:29
    展开全部我就给你贴出frm文件吧。其他的工程文件也贴不出。希望对你有用。VERSION 5.00Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"Object = "{F9043C88-... "COMDLG32.OCX"Begin VB.F...

    展开全部

    我就给你贴出frm文件吧。其他的工程文件也贴不出。希望对你有用。

    VERSION 5.00

    Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"

    Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"

    Begin VB.Form Form1

    Caption = "曲线拟合"

    ClientHeight = 9330

    ClientLeft = 60

    ClientTop = 345

    ClientWidth = 10590

    Icon = "Form1.frx":0000

    LinkTopic = "Form1"

    ScaleHeight = 9330

    ScaleWidth = 10590

    StartUpPosition = 2 '屏幕中62616964757a686964616fe4b893e5b19e31333262356135心

    Begin VB.CommandButton Command2

    Caption = "曲线拟合"

    Height = 615

    Left = 720

    TabIndex = 12

    Top = 8280

    Width = 2175

    End

    Begin VB.TextBox Text1

    Height = 975

    Left = 4200

    MultiLine = -1 'True

    ScrollBars = 3 'Both

    TabIndex = 11

    Top = 8160

    Width = 6015

    End

    Begin VB.CommandButton Command1

    Caption = "打开点文件"

    Height = 495

    Left = 1080

    TabIndex = 9

    Top = 840

    Width = 1695

    End

    Begin VB.PictureBox Picture1

    AutoRedraw = -1 'True

    Height = 6000

    Left = 4200

    ScaleHeight = 5940

    ScaleWidth = 5940

    TabIndex = 7

    Top = 360

    Width = 6000

    End

    Begin VB.ComboBox Combo1

    Height = 300

    ItemData = "Form1.frx":030A

    Left = 2040

    List = "Form1.frx":032F

    TabIndex = 6

    Text = "6"

    Top = 7320

    Width = 615

    End

    Begin VB.Frame Frame1

    Caption = "插值计算"

    Height = 1215

    Left = 5040

    TabIndex = 0

    Top = 6600

    Width = 4335

    Begin VB.TextBox Text2

    BeginProperty Font

    Name = "宋体"

    Size = 10.5

    Charset = 134

    Weight = 400

    Underline = 0 'False

    Italic = 0 'False

    Strikethrough = 0 'False

    EndProperty

    Height = 375

    Left = 720

    TabIndex = 3

    Top = 480

    Width = 735

    End

    Begin VB.CommandButton Command3

    Height = 345

    Left = 1920

    MaskColor = &H00FFFFFF&

    Picture = "Form1.frx":0356

    Style = 1 'Graphical

    TabIndex = 2

    Top = 480

    UseMaskColor = -1 'True

    Width = 340

    End

    Begin VB.TextBox Text3

    BeginProperty Font

    Name = "宋体"

    Size = 10.5

    Charset = 134

    Weight = 400

    Underline = 0 'False

    Italic = 0 'False

    Strikethrough = 0 'False

    EndProperty

    Height = 375

    Left = 3120

    TabIndex = 1

    Top = 480

    Width = 735

    End

    Begin VB.Label Label2

    Caption = "X="

    BeginProperty Font

    Name = "宋体"

    Size = 10.5

    Charset = 134

    Weight = 400

    Underline = 0 'False

    Italic = 0 'False

    Strikethrough = 0 'False

    EndProperty

    Height = 375

    Left = 360

    TabIndex = 5

    Top = 550

    Width = 1215

    End

    Begin VB.Label Label3

    Caption = "Y="

    BeginProperty Font

    Name = "宋体"

    Size = 10.5

    Charset = 134

    Weight = 400

    Underline = 0 'False

    Italic = 0 'False

    Strikethrough = 0 'False

    EndProperty

    Height = 255

    Left = 2760

    TabIndex = 4

    Top = 550

    Width = 255

    End

    End

    Begin MSComDlg.CommonDialog CommonDialog1

    Left = 3120

    Top = 1080

    _ExtentX = 847

    _ExtentY = 847

    _Version = 393216

    End

    Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1

    Height = 4695

    Left = 480

    TabIndex = 8

    Top = 1680

    Width = 2775

    _ExtentX = 4895

    _ExtentY = 8281

    _Version = 393216

    Rows = 21

    Cols = 3

    FormatString = "^记录数|^ X|^ Y"

    End

    Begin VB.Label Label1

    Caption = "拟合次数"

    BeginProperty Font

    Name = "宋体"

    Size = 10.5

    Charset = 134

    Weight = 400

    Underline = 0 'False

    Italic = 0 'False

    Strikethrough = 0 'False

    EndProperty

    Height = 375

    Left = 840

    TabIndex = 10

    Top = 7320

    Width = 1215

    End

    End

    Attribute VB_Name = "Form1"

    Attribute VB_GlobalNameSpace = False

    Attribute VB_Creatable = False

    Attribute VB_PredeclaredId = True

    Attribute VB_Exposed = False

    Option Explicit

    Dim X() As Single, Y() As Single

    Dim A(20, 20) As Single, M As Integer, B() As Single '最多取20次的拟合

    Dim N As Integer, I As Integer, J As Integer

    Dim xiaoA() As Single

    Dim Xmin As Single, Xmax As Single

    Dim Ymin As Single, Ymax As Single

    Dim Xo As Single, Yo As Single

    Private Sub ZuoDian(X() As Single, Y() As Single)

    Dim XL As Single

    Dim YL As Single

    N = UBound(X): Picture1.Cls

    Xmin = X(1): Xmax = X(1): Xo = X(1): Yo = Y(1)

    Ymin = Y(1): Ymax = Y(1)

    For I = 1 To N

    If Xmin > X(I) Then

    Xmin = X(I)

    Xo = Xmin: Yo = Y(I) '后面画曲线时用到。

    End If

    If Xmax < X(I) Then Xmax = X(I)

    If Ymin > Y(I) Then Ymin = Y(I)

    If Ymax < Y(I) Then Ymax = Y(I)

    Next I

    XL = Xmax - Xmin: YL = Ymax - Ymin

    Picture1.Scale (Xmin - XL / 10, Ymax + YL / 10)-(Xmax + XL / 10, Ymin - YL / 10)

    Picture1.DrawWidth = 5

    For I = 1 To N

    Picture1.PSet (X(I), Y(I)), vbRed

    Next I

    Picture1.DrawWidth = 1

    Picture1.Line (Xmin, Ymin)-(Xmax, Ymax), vbBlue, B

    Picture1.Refresh

    End Sub

    Private Sub HuaQuXian(xiaoA() As Single)

    Call ZuoDian(X, Y)

    Dim Ysum As Single, Ii As Single

    For Ii = Xmin To Xmax Step (Xmax - Xmin) / 100

    Ysum = 0

    For J = 1 To M

    Ysum = Ysum + xiaoA(J) * Ii ^ (J - 1)

    Next J

    Picture1.Line (Xo, Yo)-(Ii, Ysum)

    Xo = Ii: Yo = Ysum

    Next Ii

    End Sub

    Private Sub Command1_Click()

    Dim FileName As String

    Dim Xstr As String, Ystr As String

    On Error GoTo errhandle

    CommonDialog1.InitDir = App.Path '设置初始路径 数据导入

    CommonDialog1.FileName = "" '清除文件名

    CommonDialog1.ShowOpen '显示“打开”对话框

    FileName = CommonDialog1.FileName '保存文件名

    If Len(CommonDialog1.FileName) > 0 Then

    'File = FreeFile() '获得可用文件号

    Open FileName For Input As #1 '打开文件

    End If

    I = 0

    MousePointer = 11

    Do While EOF(1) = False

    I = I + 1

    ReDim Preserve X(I)

    ReDim Preserve Y(I)

    MSFlexGrid1.Rows = I + 1

    Input #1, Xstr, Ystr ' 分别输入各数据

    MSFlexGrid1.TextMatrix(I, 1) = Xstr

    X(I) = Val(Xstr)

    MSFlexGrid1.TextMatrix(I, 2) = Ystr

    Y(I) = Val(Ystr)

    MSFlexGrid1.TextMatrix(I, 0) = I

    Loop

    Close #1: N = I '检验一下N是否对???

    Call ZuoDian(X, Y)

    errhandle:

    MousePointer = 0

    Exit Sub

    MousePointer = 0

    End Sub

    Private Sub Command2_Click()

    Dim Xh As Integer

    M = Val(Combo1.Text) + 1

    Erase B: Erase xiaoA: Erase A '必不可少***********

    ReDim B(M): ReDim xiaoA(1 To M)

    '形成方程组的各元素

    A(1, 1) = N

    For I = 1 To N

    B(1) = B(1) + Y(I)

    Next I

    For J = 2 To M

    For I = 1 To N

    A(1, J) = A(1, J) + X(I) ^ (J - 1)

    Next I

    Next J

    For I = 2 To M

    For J = 1 To M

    For Xh = 1 To N

    A(I, J) = A(I, J) + X(Xh) ^ (I + J - 2)

    If J = 1 Then

    B(I) = B(I) + X(Xh) ^ (I - 1) * Y(Xh)

    End If

    Next Xh

    Next J

    Next I

    Call JieFangCheng(A, B, xiaoA)

    For I = 1 To M

    Text1.Text = Text1.Text & "a" & I - 1 & "=" & xiaoA(I) & ";"

    Next I

    Dim Str As String: Str = "y="

    For I = 1 To M '写方程

    If I < M Then

    Str = Str & xiaoA(I) & "x^" & I - 1 & "+"

    Else

    Str = Str & xiaoA(I) & "x^" & I - 1

    End If

    Next I

    Text1.Text = Text1.Text & vbCrLf & "曲线方程:" & vbCrLf & Str

    Call HuaQuXian(xiaoA)

    End Sub

    Private Sub Command3_Click()

    Dim Xzhi As Single, Yzhi As Single

    Xzhi = Val(Text2.Text)

    Yzhi = 0

    For J = 1 To M

    Yzhi = Yzhi + xiaoA(J) * Xzhi ^ (J - 1)

    Next J

    Text3.Text = Yzhi

    End Sub

    Private Sub Form_Load()

    For I = 0 To 2

    MSFlexGrid1.ColAlignment(I) = 4

    Next I

    For I = 1 To 20

    MSFlexGrid1.TextMatrix(I, 0) = I

    Next I

    End Sub

    Private Sub JieFangCheng(A() As Single, B() As Single, X() As Single)

    N = UBound(B)

    Dim TempA As Single, L As Integer, K As Integer, Kk As Integer

    Dim Ii As Integer, ChuShu As Single, Sum As Single

    For I = 1 To N

    L = 0: Kk = 0

    For J = I To N

    If A(J, I) = 0 Then L = L + 1

    Next J

    For J = I To N - L

    If A(J, I) = 0 Then

    Kk = Kk + 1

    For K = I To N

    TempA = A(J, K)

    A(J, K) = A(N - Kk + 1, K)

    A(N - Kk + 1, K) = TempA

    Next K

    TempA = B(J): B(J) = B(N - Kk + 1): B(N - Kk + 1) = TempA

    End If

    Next J

    For Ii = I To N - L

    ChuShu = A(Ii, I)

    For J = I To N

    A(Ii, J) = A(Ii, J) / ChuShu

    Next J

    B(Ii) = B(Ii) / ChuShu

    Next Ii

    For Ii = I + 1 To N - L

    For J = I To N

    A(Ii, J) = A(Ii, J) - A(I, J)

    Next J

    B(Ii) = B(Ii) - B(I)

    Next Ii

    Next I

    For I = 1 To N

    For J = 1 To I - 1

    A(I, J) = 0

    Next J

    Next I

    X(N) = B(N) / A(N, N)

    For I = N - 1 To 1 Step -1

    Sum = 0

    For J = I + 1 To N

    Sum = Sum + A(I, J) * X(J)

    Next J

    X(I) = (B(I) - Sum) / A(I, I)

    Next I

    End Sub

    已赞过

    已踩过<

    你对这个回答的评价是?

    评论

    收起

    展开全文
  • VB封装RichEdit文本框控件,可编辑文字,实现像Word文字编辑功能的文本控件,关于RichEdith Class(菜新 2007):  下列属性需要在Init过程之前调用.另:如果觉得不方便您可以自己定义类中相关属性与方法  ...
  • 摘要:VB源码,系统相关,DOS,文本框 VisualBasic6.0外连接DOS显示文本框思路,源码说明:  1. 本程序代码内已进行相关标识,以便学者学习  2.很多系统信息和操作都可调用DOS操作  3.创建如下控件:  mand1,Text1,...
  • 【摘要】即将参加全国计算机等级考试的考生们,考试即将到来,大家的...关于2020年全国计算机二级VB复习知识点:创建VB应用程序的一的具体内容如下:2020年全国计算机二级VB复习知识点:创建VB应用程序的一般步骤创...
  • 正则表达式匹配模式  引用了Microsoft VBScript Regular ... RegExp 这是VB使用正则表达式匹配模式的主要对象了。其提供的属性用于设置那些用来比较的传递给 RegExp 实例的字符串的模式。 其提供的方法以确定字符
  • VB读取网页源码

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

    千次阅读 2019-04-04 08:17:11
    MultiLine 属性的设置值包括: True 允许以多行形式输入正文。 False (缺省)忽略回车换行并将数据限制为一行。 说明 当输入的正文超出文本框时,多行 RichTextBox 控件将使正文自动换行。 也可以添加滚动条...
  • 1、VB6.0对口升学考点分析与总结第一章 VB使用基础1、VB的特点2、VB的启动与退出3、VB的窗口组成4、VB的属性窗口中、代码窗口的打开操作方法5、VB程序的保存及各种文件的扩展名6、VB程序的运行方法7、对象、属性、...
  • VB6使用正则浅谈

    2021-05-13 12:39:07
    注释:VB6本身不支持正则,需要引入VBS中的正则来工作…… 文章目录一、正则的前期绑定与后期绑定1)正则的前期绑定(静态绑定)2)正则的前期绑定(动态绑定)二、属性与方法1)RegExp2)MatchCollection3)Match...
  • 使用vb.net开发简单的socket通信

    千次阅读 2020-08-03 19:04:37
    使用vb.net开发简单的socket通信(环境是visual stdio 2019)说明参考文章实现功能 说明 之前用vb6编程时都是用的winsock控件进行网络通信,现在研究.net平台发现网上说socket更好用,不过在网上一直都没有找到合适...
  • [原创]河南省对口升学计算机专业VB教材分析(2011-03-21 20:53:48)标签:河南省计算机杂谈VB教材知识点分析第一章 VB使用基础1、VB的特点2、VB的启动与退出3、VB的窗口组成4、VB的属性窗口中、代码窗口的打开操纵方法...
  • VB6.0串口操作

    2021-07-25 04:25:53
    VB6.0串口操作》由会员分享,可在线阅读,更多相关《VB6.0串口操作(7页珍藏版)》请在人人文库网上搜索。1、VB6.0串口操作职业2010-12-22 11:30:58 阅读60评论0 字号:大中小 订阅一直想通过计算机人机界面来控制...
  • vb_ASCII对照

    2012-02-02 09:54:04
    vb_ASCII对照表 个label,2个text VERSION 5.00 Begin VB.Form Form1 Caption = "ASCII对照表 制作:雨毅无痕 QQ... MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 3 Top = 2760 Width = 6735 End
  • vb中使用正则表达式

    万次阅读 2012-09-21 08:15:10
     Vb中使用正则表达式首先引用MicrosoftVBScript Regular Expressions 5.5,然后生名正则表达式相关对象RegExp. 属性 Pattern:一个字符串,用来定义正则表达式。 IgnoreCase:一个布尔值属性,指示是否...
  • asp:TextBox multiline只读下 滚动条是不能拖动的 要看不在当前屏幕的内容用鼠标在文本框中向下拖动也是看到内容 但比较麻烦 按照自动比例展开
  • 这段时间在移植项目的过程中,起初我想判断一个字符串中是否存在某字符(串),直接的使用方法是用instr(start,string1,string2,VB compare),但经过分析在VB中可以只用一下方法来判断!1.常用的INStr方法Function ...
  • msg End Function '--end block--' 接着在FORM1里面加入一个Command,六个text box ,text的Multiline都设置成真. -------------------------------------------------------------------------------- Option ...
  • 国家计算机二级VB知识点 (37页) 本资源提供全文预览,点击全文预览即可全文预览,如果喜欢文档就下载吧,查找使用更方便哦!29.9 积分Visual Basic程序设计基础知识要点(概念分析篇)知识点1:(1) 在工程资源管理器...
  • VB复习§1、VB的特点、运行环境、对象、属性、方法、事件各概念,尤其是方法和事件的区分。熟悉VB的IDE,VB开发应用程序的一般步骤。特点:GUI(集成开发环境)、OLE(对象的连接和嵌入)、OOP(面向对象);运行环境:...
  • 安徽大学VB选择题

    2021-07-13 01:38:05
    简单VB程序设计对于窗体,下面______属性在程序运行时其属性设置起作用。 (A)MaxButton (B)BorderStyle (C)Name (D)Left类是对象的抽象,对象则是类的具体化。在窗体上建立的一个控件称为______。 (A)对象 (B)容器 ...
  • VB基础

    千次阅读 2019-04-08 18:23:52
    VB基础 1、VB For循环 基本语法 For counter [ As datatype ] = start To end [ Step step ] [ statements ] [ Continue For ] [ statements ] [ Exit For ] [ statements ] Next [ counter ...
  • VB常用控件介绍

    千次阅读 2018-02-16 16:24:30
    (3)MultiLine 属性:用来设置文本框中的文本是否可以输入多行并以多行显示。值为true时,允许多行显示。值为false 时不允许多行显示,一旦文本超过文本框宽度时,超过部分不显示。 (4)HideSelection 属性...
  • 内容简介:VB程序设计期末考试试卷(A、B卷,有答案),含大纲VB程序设计期末考试试卷(A卷)1、Visual Basicr 基本特点有两点:一是VB提供 可视化的编程工具 二是程序采取 “事件驱动” 方式。2、VB应用程序清单中,...
  • VB6.0如何使用正则表达式

    千次阅读 2018-07-08 22:24:55
    引用了Microsoft VBScript Regular Expressions 5.5 后就可以声明正则相关对象了...VBA 中使用正则表达式[vb] view plain copy print?Dim objRegExp As Object Set objRegExp = CreateObject("vbscript....
  • PC机与单片机通信 上位机的界面设计方法串口通信是MCU跟PC通信经常用到的一种通信方式,做界面、写上位机程序的编程语言、编译环境有不少,诸如VB、VC++,Delphi、LABVIEW等等,不过无论黑猫还是白猫,能够抓到老鼠...
  • 摘要:语音识别技术的发展和广泛应用,使用户与计算机的对话方式不再仅仅局限在使用键盘或鼠标发送指令的...VB6.0 1 引言 随着计算机技术的飞速发展,用户与计算机对话的方式由机器语言指令,到图形用户界面,现...
  • VB怎么让文本框滚动条滚动text自带的那个滚动条,我要的是写代码让滚动条移动的...给个思路就好~~VB中让文本框滚动条滚动,首先要设置文本框的属性值Mutiline属性为true;其次,设置文本框的Scrollbars的属性为...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,212
精华内容 884
关键字:

vb的multiline