循环文本框和单元格

Question

我需要一些帮助，使这段代码更短。（见下文）我有很多文本框，有时间在我的表格中，我想要复制到我的excel文件。有些盒子需要在excel表格中减少15分钟而我想要循环这些文本框，并将结果复制到正确的单元格中。我的代码可以正常运行，但我想立刻为更多的文本框创建它。

TNX

    Dim d1re1 As Date = TextBox5.Text
    TextBox5.Text = d1re1.ToLongTimeString()
    Dim d1nre1 As Date = d1re1.AddMinutes(-15)
    xlsp1.Cells(7, 100) = d1nre1.ToLongTimeString


    Dim d1re2 As Date = TextBox7.Text
    TextBox7.Text = d1re2.ToLongTimeString()
    Dim d1nre2 As Date = d1re2.AddMinutes(-15)
    xlsp1.Cells(7, 102) = d1nre2.ToLongTimeString

Answer 1

这里的想法是线条以某种方式做同样但具有不同的参数。 这里的功能出现在图片中。您可以为ex创建泛型方法调用它：SetDateToFieldscand接受参数：源文本框以及需要更新的单元格。

像这样你只需要用不同的参数调用方法。