Page 104 - 6735

view1.ModelViewName = 0
view2.ModelViewName = 3
sheet1.Name = "Sheet0"
sheet2.Name = "Sheet1"
view1.PositionX = 0.15
view1.PositionY = 0.19
view2.PositionX = 0.3
view2.PositionY = 0.19

sheet1.views.Add view1
sheet1.views.Add view2
data.Sheets.Add sheet1
data.Sheets.Add sheet2

'заповнити список листів
For Each s In data.Sheets
ComboBox1.AddItem s.Name
Next s

TextBox6.Text = macroPath & "\Drawing1.SLDDRW"

End Sub

Public Sub writeViewFields() 'записати дані поточного виду
в поля
ComboBox2.Text = view.Name
TextBox1.Text = view.ModelViewName
TextBox2.Text = view.PositionX
TextBox3.Text = view.PositionY
TextBox4.Text = view.ReferenceModelPath
TextBox5.Text = view.Configuration
End Sub

Public Sub readViewFields() 'прочитати дані поточного виду
з полів
view.Name = ComboBox2.Text
view.ModelViewName = CInt(TextBox1.Text)

104