frmguotongyunfei.vb

（开头部分） 6KB

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

Public Class frmguotongyunfei
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If Me.ComboBox1.Text = "一类地区" Then
            Me.Label1.Text = "包含省份：江苏，浙江，上海，安徽"
            qibu.Text = "4"
            xuzhong.Text = "0.8"
        ElseIf Me.ComboBox1.Text = "二类地区" Then
            Me.Label1.Text = "包含省份：北京，天津，山东，河北，河南，湖北，湖南，福建，广东，江西"
            qibu.Text = "5"
            xuzhong.Text = "3"
        ElseIf Me.ComboBox1.Text = "三类地区" Then
            Me.Label1.Text = "包含省份：广西，四川，重庆，吉林，辽宁，黑龙江，"
            qibu.Text = "7"
            xuzhong.Text = "5"
        ElseIf Me.ComboBox1.Text = "四类地区" Then
            Me.Label1.Text = "包含省份：贵州，云南，甘肃，海南,陕西，山西，"
            qibu.Text = "8"
            xuzhong.Text = "6" 
        End If
        zhongliang.Focus()
    End Sub 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Me.ComboBox1.Text = "" Then
            ComboBox1.Focus()
            Exit Sub
        End If

        If zhongliang.Text.Trim = "" Then
            zhongliang.Focus()
            Exit Sub
        End If

        If IsNumeric(zhongliang.Text.Trim) = False Then
            zhongliang.Text = ""
            zhongliang.Focus()
            Exit Sub
        End If


        zhongliang.Text = Format(CDbl(zhongliang.Text), "0")
        If CInt(zhongliang.Text) <= 3 Then
            paisong.Text = 0
            Me.Button3.PerformClick()
            Exit Sub
        Else
            paisong.Text = 0
        End If
        jieguo.Text = qibu.Text & "+(" & zhongliang.Text & "-3)*" & xuzhong.Text & "+" & zhongliang.Text & "*" & paisong.Text

        Label7.Text = "￥" & Format(CDbl((CDbl(qibu.Text) + (CDbl(zhongliang.Text) - 3) * CDbl(xuzhong.Text) + CDbl(zhongliang.Text) * CDbl(paisong.Text))), "0.00")

        ''''''''添加到统计窗口'''''''''''''''''''''''''''''''''''''''''''''''' 
        If Me.hejibut.Enabled = False Then
            DataGridView1.Rows.Clear()
        End If
        Dim row1 As String() = {ComboBox1.Text, zhongliang.Text & "Kg", Label7.Text}
        DataGridView1.Rows.Add(row1)
        Me.DataGridView1.FirstDisplayedScrollingRowIndex = Me.DataGridView1.Rows.Count - 1
        Me.DataGridView1.Rows(Me.DataGridView1.Rows.Count - 1).Selected = True
后面还有 88 行代码，购买后查看完整代码

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。