重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在窗体上加上三个标签控件: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
Private Sub Command1_Click()
MsgBox CalcResult(2)
End Sub
Public Function CalcResult(X As Long) As Double
Dim dblMinLevel As Double
Dim dblItem As Double
Dim dblN As Double
Dim dblMember As Double, dblBase As Double
Dim i As Double
Dim dblResult As Double
dblMinLevel = 10 ^ (-6)
dblN = 0
Do
dblMember = X ^ dblN
dblBase = 1
i = dblN
Do While i 1
dblBase = dblBase * i
i = i - 1
Loop
dblItem = dblMember / dblBase
dblResult = dblResult + dblItem
dblN = dblN + 1
Loop While dblItem = dblMinLevel
CalcResult = dblResult
End Function
用循环啊
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim count As Integer = Me.DataGridView1.Rows.Count
Dim sum As Double = 0
For i = 0 To count - 1
sum += Val(Me.DataGridView1.Item("Amount", i).Value)
Next
MsgBox("和是:" sum)
End Sub
Dim textColumn As New DataGridViewTextBoxColumn() '定义一个新的textbox格式的列
textColumn.Name = "Column1" '定义该列的Name
textColumn.HeaderText = "Column1" '定义该列的标题
DataGridView1.Columns.Add(textColumn)
For Each r As DataGridViewRow In DataGridView1.Rows '循环DataGridView的行
r.Cells(textColumn.Index).Value = r.Cells(0).Value + r.Cells(1).Value '将第一列和第二列单元格数据相加,并显示在新添加的单元格上
Next