LightTools 之投影仿真的checkerboard pattern的创建 2

checkerboard数值写入

---

前言

上一篇完成checkerboard的整体框架的搭建，本次实现makeLCD点击后，将对应输入框的值复制进入sheet1中。

一、需要更改的位置

右键点击属性

将对应page，bottton，以及TextBox的名称全更改成对应的英文名字，便于后续编程

二、具体代码

1.Workbook

代码如下（示例）：

'打开工作簿时，打开控件
Private Sub Workbook_Open()
    UserForm1.Show
End Sub

2.make LCD点击后将数据保存至对应的单元格

代码如下（示例）：

Private Sub Make_LCD_Click()

  Sheets("Sheet1").Range(Cells(1, 1), Cells(1, 1)) = Base_Name.Value
  Sheets("Sheet1").Range(Cells(2, 1), Cells(2, 1)) = Substrate.Value
  Sheets("Sheet1").Range(Cells(3, 1), Cells(3, 1)) = Substrate_height.Value
  Sheets("Sheet1").Range(Cells(4, 1), Cells(4, 1)) = Magnification.Value
  Sheets("Sheet1").Range(Cells(5, 1), Cells(5, 1)) = On_Retardance.Value
  Sheets("Sheet1").Range(Cells(6, 1), Cells(6, 1)) = Off_Retardance.Value


End Sub

输出

点击运行，程序运行，并点击 Make LCD后，单元格出现对应的字符和数值

下一小节，讲解checkerboard的原理和分解。