Question

我正在制作一个小应用程序来处理云服务的定价和报价。

在我的一个表单上，我在'me.shown'位中找出了一些定价信息。在应用程序启动时从mysql数据库读取各种项目的价格，所以我已经获得了所有这些信息。

我的代码价格如下：

    calc_vmCPUprice = vmcpuprice * cpuslider.Value
    calc_vmHDDprice = vmhddprice * hddslider.Value
    calc_vmRAMprice = vmRAMprice * memoryslider.Value

    If requirebackup.Checked = True Then
        calc_backupsetupfee = vmbackupsetupfeecost
        calc_backupfee = vmbackupcostperGB * sliderbackup.Value
    End If

    If supportcheck.Checked = True Then
        calc_supportfee = vmsupportfee
    End If
    vmmonthlycost = calc_vmCPUprice + calc_vmHDDprice + calc_vmRAMprice + calc_backupfee +         calc_backupsetupfee + calc_supportfee
    vm_monthlycost.Text = "£" & vmmonthlycost

每次更改项目时，我都需要让程序重新计算'vmmonthlycost'变量。因此，例如，如果您更改cpu（cpuslider.value）的滑块，那么价格将明显改变，因为'calc_vmCPUprice'变量现在将不同。

我不想将计算代码复制并粘贴到每个项目的更改事件中，因为这将是混乱的，任何未来的更改都需要在所有项目中进行镜像等。

你们会推荐什么作为实现价格重新计算的最佳方式？

理想情况下，我需要接受一些代码并将其分离，然后从每个更改事件中调用它，但是当我作为业余爱好者修补vb时，我的知识仍然有限。

提前致谢!!

在没有重复代码的情况下重新计算变更事件的变量

0 个答案: