cb.Enabled = False cb.Value = \Else
cb.Enabled = True End If '数据系列
Dim z As String = e.Form.Controls(\Dim zs As String() If z > \
zs = z.Split(\ If zs.Length > 1 Then
cb.ComboList = z.Replace(\ Else
cb.Value = \ End If Else
cb.Value = \End If
Dim c As String = cb.Value If c > \
e.Form.Controls(\ zs = z.Split(\所有数据列集合 Dim zls As New List(Of String) zls.AddRange(zs)
Dim cs As String() = c.Split(\次轴数据列集合 Dim cls As New List(Of String) cls.AddRange(cs)
For i As Integer = 0 To cls.Count - 1 Dim va As String = cls(i) If zls.Contains(va) Then zls.Remove(va) Else
cls.Remove(va) End If Next
Dim zxx As String If zls.Count > 0 Then
For Each cn As String In zls zxx = zxx & \ Next
zxx = zxx.Trim(\ End If
e.Form.Controls(\ zxx = \
If cls.Count > 0 Then
For Each cn As String In cls zxx = zxx & \ Next
zxx = zxx.Trim(\ End If
e.Form.Controls(\Else
If z > \
e.Form.Controls(\ End If
6
e.Form.Controls(\ e.Form.Controls(\End If
图表设置_Button7_Click
e.Form.Close
图表设置_CheckBox11_CheckedChanged
e.Form.Controls(\e.Form.Controls(\e.Form.Controls(\
图表设置_CheckBox3_CheckedChanged
e.Form.Controls(\
图表设置_CheckBox4_CheckedChanged
e.Form.Controls(\
图表设置_CheckBox6_CheckedChanged
e.Form.Controls(\e.Form.Controls(\e.Form.Controls(\
图表设置_CheckBox9_CheckedChanged
e.Form.Controls(\
图表设置_CheckedComboBox1_TextChanged
e.Form.Controls(\
图表设置_CheckedComboBox2_TextChanged
Dim cb As WinForm.CheckBox = e.Form.Controls(\cb.Enabled = False cb.Checked = False
Dim xx As String = e.Sender.Value If xx <> \
cb.Enabled = True cb.Checked = True End If
图表设置_CheckedComboBox3_TextChanged
e.Form.Controls(\
图表设置_ComboBox1_ValueChanged
Dim lst As String = Functions.Execute(\e.Form.Controls(\
7
Dim lsts As String() = lst.Split(\
e.Form.Controls(\
图表设置_ComboBox2_ValueChanged
e.Form.Controls(\
图表设置_ListBox1_DoubleClick
Dim v As String = e.Sender.Value If v > \
v = v.SubString(v.IndexOf(\】\ exStr = \数据系列_\ Forms(\图表数据系列\End If
图表设置_ListBox2_DoubleClick
Dim v As String = e.Sender.Value If v > \
v = v.SubString(v.IndexOf(\】\ exStr = \数据系列_\ Forms(\图表数据系列\End If
图表数据系列_AfterLoad
Dim lx As String = exStr
If lx.SubString(0,1) = \如果是主轴的数据系列,不允许设置类型 e.Form.Controls(\
If Forms(\图表设置\饼图\ e.Form.Controls(\ End If End If
lx = lx.SubString(lx.IndexOf(\
e.Form.Text = \数据系列【\】格式设置\
Dim f As String = ProjectPath & \数据系列_\If FileSys.FileExists(f) Then
Dim vs As String() = FileSys.ReadAllText(f).Split(\ㄉ\ Dim v As String = vs(1) vs = v.Split(\ '系列名称
e.Form.Controls(\ '图表类型
Dim lxs As String() = Functions.Execute(\ e.Form.Controls(\ e.Form.Controls(\ '数据标签
e.Form.Controls(\ e.Form.Controls(\ e.Form.Controls(\ '分色显示
e.Form.Controls(\Else
e.Form.Controls(\
8
End If
If e.Form.Controls(\ e.Form.Controls(\End If
图表数据系列_Button1_Click
Forms(\图表外观\
图表数据系列_Button2_Click
Dim xlmc As String = e.Form.Controls(\If xlmc = \
MessageBox.Show(\数据系列名称不能为空! \信息提示\ Return
Elseif xlmc.Contains(\
MessageBox.Show(\数据系列名称中不能包含半角逗号! \信息提示\ Return End If
Dim tblx As Integer =
Functions.Execute(\).Value)
Dim flmc As Boolean = e.Form.Controls(\Dim sz As Boolean = e.Form.Controls(\Dim bfb As Boolean = e.Form.Controls(\Dim fs As Boolean = e.Form.Controls(\'保存设置
Dim str As String = xlmc & \
Dim f As String = ProjectPath & \保存文件名 If Not FileSys.FileExists(f) Then
If Not FileSys.DirectoryExists(ProjectPath & \ FileSys.CreateDirectory(ProjectPath & \ End If
str = \宋体,0,9,0,0,0,0,0,0,0,3,255,255,255,False,True,4,False,13,False,,,靠右ㄉ\Else
Dim vs As String() = FileSys.ReadAllText(f).Split(\ㄉ\ Dim qtz As String = vs(0) str = qtz & \ㄉ\End If
FileSys.WriteAllText(f,str,False) e.Form.Close
图表数据系列_Button3_Click
e.Form.Close
图表数据系列_ComboBox1_ValueChanged
Dim lst As String = Functions.Execute(\Dim lsts As String() = lst.Split(\lst = \
For Each l As String In lsts
If Not l.Contains(\三维\
9
lst = lst & \ End If Next
lst = lst.Trim(\
e.Form.Controls(\lsts = lst.Split(\
e.Form.Controls(\
图表外观_AfterLoad
Dim lx As String = exStr
e.Form.Text = \【\】项目设置\If lx.Contains(\数据系列\
e.Form.Text = \【\】项目设置\ lx = lx.SubString(1) End If
If lx = \绘图区\
e.Form.Controls(\End If
If lx <> \标题\
e.Form.Controls(\End If
If lx <> \图例\
e.Form.Controls(\End If
Dim f As String = ProjectPath & \If FileSys.FileExists(f) Then
Dim vs As String() = FileSys.ReadAllText(f).Split(\ If lx.Contains(\数据系列\
vs = FileSys.ReadAllText(f).Split(\ㄉ\ Dim szz As String = vs(0) vs = szz.Split(\ End If '字体
Dim zt1 As String = vs(0) Dim zt2 As FontStyle = vs(1) Dim zt3 As Integer = vs(2)
e.Form.Controls(\
e.Form.Controls(\ '边框样式
Dim ss As String() = e.Form.Controls(\ e.Form.Controls(\ '边框颜色
e.Form.Controls(\ '边框粗细
ss = e.Form.Controls(\ e.Form.Controls(\ '填充颜色
e.Form.Controls(\ '是否启用填充效果
e.Form.Controls(\ '渐变方向
e.Form.Controls(\
ss = e.Form.Controls(\ If vs(16) = 7 Then
10