vb.net填充空格 vb中空格

vb.net 在TextBox1中输入数字和空格，并求奇数数字，并求和

给你个参考的例子

Imports System.Text.RegularExpressions

Public Class Form1

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

Dim a_point As Integer = TextBox1.SelectionStart

Dim bs As String = Regex.Replace(TextBox1.Text, "[^ \d]", "")

If TextBox1.TextLength bs.Length Then

TextBox1.Text = bs

TextBox1.SelectionStart = a_point

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim gs() As String = (From mt As Match In Regex.Matches(TextBox1.Text, "\d*[13579]\b") Select mt.Value).ToArray

TextBox2.Lines = gs

TextBox3.Text = ((From mt As String In gs Select CInt(mt)).ToArray).Sum

End Sub

End Class

相关问答

Q1: 如何在vb.net中的DataGrid中增加一空白行

VS中的DataGridView控件，在机房重构里的出镜率还是很高哒~这篇博客就把一些有关DataGridView

控件的一些使用细节和大家分享一下！

找到控件：

                        

绑定数据源

选中行数代码实现：

DataGridView1.SelectedRows.Count

以增加删除用户窗体中的删除所选行数代码为例：

[vb] view plain copy

Private Sub btnDeleteUser_Click(sender As Object, e As EventArgs) Handles btnDeleteUser.Click

'判断下拉表中是否选择了用户类型

If cmbUserLevel.SelectedItem = "" Then

MsgBox("如需删除用户，请先选择用户类型！", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

End If

Dim K As Integer = DataGridView1.SelectedRows.Count

Dim FFacade As New Facade.DeleteUserFacade

Dim Uuser As New Entity.AddDeleteUserInfo

Dim strResult As Boolean

'strResult = FFacade.DeleteUserinfo(Uuser)

If DataGridView1.SelectedRows.Count  0 Then '如果选中的行数大于0

For i As Integer = K To 1 Step -1

'获取控件的第N行的第一列数据，得到用户ID，以用户ID为主键来删除整行数据

Dim userinfo As String = DataGridView1.SelectedRows(i - 1).Cells("UserID").Value.ToString

'删除的数据不能为当前登录的用户，需要判断用户ID

If Entity.Share.ID.Trim = userinfo Then

MsgBox("您无法删除当前登录的用户！", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

Else

Uuser.UserID = userinfo

End If

strResult = FFacade.DeleteUserinfo(Uuser)

'If FFacade.DeleteUserinfo(Uuser) Then

If strResult = True Then

'删除选中行

DataGridView1.Rows.RemoveAt(DataGridView1.SelectedRows(i - 1).Index)

MsgBox("数据删除成功！", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

Next

Else '如果选中的行数不大于0

MsgBox("请您选中所要删除的行！", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

'DataGridView1.Rows.Clear()

End If

End Sub

运行图：

常用属性：

1.想把Datagridview的第一行隐藏。     Idea：把RowHeadersVisible属性改为False就可以。

2.DataGridview显示出datatable之后，最后一行有空白行怎么去掉？

Idea：修改AllowUserToAddRow属性为False。

Q2: VB.net 如何向DataGridView新增行中填充数据

这样就可以的

DataGridView1.Rows(i).Cells(0).Value = i + 1

RowS指定行，Cells指定列

Q3: vb.net如何讲字符串用空格隔开

        Dim str As String = "中华人民共和国adfjpwqetqadfwetqgasdfewgt"

        Dim tstr As String = ""

        Dim i As Integer

        For i = 0 To str.Length - 1

            tstr = str.Substring(i, 1)  " " '每一个字符后面加空格。

        Next

        tstr = tstr.TrimEnd(" ") '移除最后一个空格

        Textbox1.Text = tstr

Q4: VB.net 中， 输入“空格”的代码

textbox.text = "12345" " " "67890"

或者

textbox.text = "12345" space(1) "67890"

Q5: vb.net。如何给textBox中的text赋值“换行符”和“n个空格”

首先你的textbox有一个属性得设置成多行、支持回车符才行

其次，换行符我记得直接用\n就行

n个空格你就写个循环用，每次循环就加上" "就行。