vb.net中数值框 vb对象列表框

VB.net中 datagridview控件如何读取框选区域内的行数和区域内的数据总和

在窗体上加上三个标签控件：Label1、Label2、Label3

创新互联2013年开创至今，先为靖西等服务建站，靖西等地企业，进行企业商务咨询服务。为靖西企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

Private Sub DataGridView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseUp

Dim counter As Integer

Dim SelectedCellTotal As Integer = 0

Dim SelectedCellCount As Integer = 0

For counter = 0 To (DataGridView1.SelectedCells.Count - 1)

If DataGridView1.SelectedCells(counter).FormattedValueType Is _

Type.GetType("System.String") Then

Dim value As String = Nothing

If (DataGridView1.IsCurrentCellDirty = True) Then

value = DataGridView1.SelectedCells(counter).EditedFormattedValue.ToString()

Else

value = DataGridView1.SelectedCells(counter).FormattedValue.ToString()

End If

If value IsNot Nothing Then

If Not value.Length = 0 Then

SelectedCellTotal = SelectedCellTotal + Integer.Parse(value)

SelectedCellCount = SelectedCellCount + 1

End If

End If

End If

Next

Label1.Text = "选中的单元格个数为: "  SelectedCellCount.ToString()

Label2.Text = "单元格里数据之和为: "  SelectedCellTotal.ToString()

Label3.Text = "选中的单元格行数为："  DataGridView1.SelectedRows.Count.ToString()

End Sub

vb.net 中inputbox 用法

虽然下面代码也用了两个inputbox函数，但是比你的应该也要简单点，仅供参考

const

a

=

1.5

dim

v0

as

string

dim

vt

as

string

dim

t

as

long

dim

s

as

double

private

sub

form_load()

v0

=

inputbox("请输入初速度(m/s)",

"数据输入框")

text1.text

=

v0

t

=

inputbox("请输入时间(s)",

"数据输入框")

text2.text

=

t

vt

=

v0

+

a

*

t

s

=

v0

*

t

+

(1

/

2)

*

a

*

t

^

2

end

sub

private

sub

command1_click()

msgbox

"距离是"

s

end

sub

求助大神vb.net窗口数值调用

分析：窗体之间的数值传递有3种方案。分别是通过公共变量、接口和事件委托。我给你说说通过接口来在窗体之间传递数据吧。

显示"第一位成绩":从form2传值到form1,显示排序，需要传递一个datatable.

为了方便起见，这两个数据都从datatable里面来。

1、首先定义一个公共接口（新建项）（假设传递的是

Public Interface ITransferText

Sub 数据传输(ByVal tText As datatable)

End Interface

2、在form2和form3中加入代码：

Private 数据发送 As ITransferText

Sub New(ByVal iTrans As ITransferText)

Me.iTransferLink = iTrans

InitializeComponent()

End Sub

‘在form2和form3的一个按钮事件中加入：

数据发送.数据传输(dt)

me.dispose

'当然，你需要在这之前将需要传输的东西装类型为datatabe的变量dt中。

3、在form1中加入代码：

（1）Public Class Form1

Implements ITransferText

（2）、sub…点击后form2显示，通过form2操作生成第一位成绩事件…

Dim newFrm As New Form2(Me)

newFrm.Show()

end sub

、sub…点击后form3显示，通过form3操作生成绩列表，然后传递…

Dim newFrm As New Form3(Me)

newFrm.Show()

end sub

（3）当然你还需要在form1中用个方法实现接口

Sub 数据接收(ByVal dt As datatable) Implements ITransferText.数据传递

这里如果dt只有1行1列就更新你的第一名成绩

如果多行，就再你的form1上显示这个表dt就行了。

end sub