正文
vb.net中数值框 vbnet handles
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
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
相关问答
Q1: 使用VB.NET的五个技巧之处理数据行
处理数据行（DataRow）
Windows窗体中的数据绑定列表框和组合框很节省时间 典型的代码如下（假定已经建立了SqlDataAdapter或者其它部件获取数据）
Dim ds As New DataSet() SqlDataAdapter Fill(ds Customers ) ListBox DataSource = ds Tables( Customers ) ListBox DisplayMember = CompanyName ListBox ValueMember = CustomerID
在这种情况下 代码使用Northwind数据库的顾客记录工作 DisplayMember属性设置为你希望用户在列表框中看到的记录字段 它是customers表的CompanyName 通常ValueMember属性设置为数据表中的一个键字段 对于customer来说是CustomerID 一旦用户选择了列表框中的一行 很容易使用列表框的SelectedValue属性获得键字段
MsgBox（ListBox SelectedValue）
但是有可能需要一个与被选择项相关的整个数据行对象的引用 例如 如果被选择的行需要被删除 就不知道键了 你需要一个数据行的引用以使用Delete方法
典型的Visual Basic开发者通常这样想 我已经得到了该行的键了 我将编写一些逻辑来查找使用该键的行 这样可以实现 但是有更好的实现方法 可以使用一行代码获取与列表框中选项关联的数据行
Dim dr As DataRow = CType（ListBox SelectedItem DataRowView） Row
通常该逻辑不会凭直觉出现 即使对经验丰富的开发者 为了解释这是怎样实现的 我把上面的一行拆成几行 下面的代码与上面代码的功能相同
Dim drv As DataRowView drv = CType(ListBox SelectedItem DataRowView) Dim dr As DataRow dr = drv Row
DataRowView类是数据行的包装 它被多个Windows窗体控件使用 它使得显示与控件中的数据行相关的数据更加容易 当列表框被数据绑定到数据表时（假定列表框中的有些行当前被选定了） 列表框的SelectedItem属性保存了一个DataRowView对象
这意味着我们能把列表框的SelectedItem属性转换到DataRowView对象 这就是上面代码中的第二行实现的 接着DataRowView暴露一个Row属性 它指向被包装的数据行 上面的代码声明了一个数据行并设置了Row属性
转换对象的类型以访问它的接口的技术在Visual Basic 中不是经常使用 但是在Visual Basic NET中这是经常的 有了上面的例子后 大多数有经验的开发者迅速跟上了这种技术
数据行的引用（dr）可用于用任何方式维护行 访问数据行中的任何特定字段是可行的 行中的数据可以被改变 能使数据行的Delete方法把该行标识为删除 或者从数据表的行集合中删除该行 下面的代码标识删除了一行
dr Delete（）
lishixinzhi/Article/program/net/201311/12974
Q2: 求助大神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
Q3: VB.net中 datagridview控件如何读取框选区域内的行数和区域内的数据总和
在窗体上加上三个标签控件：Label1、Label2、Label3
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中数值框和vbnet handles的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
