Foxtable所有范例代码(3)

2019-08-20 19:16

e.Form.Controls(\中心辐射\ Else

e.Form.Controls(\ End If '纹理图案

e.Form.Controls(\

ss = e.Form.Controls(\ e.Form.Controls(\ '背景图片

e.Form.Controls(\ e.Form.Controls(\ '标题

e.Form.Controls(\ '图例

e.Form.Controls(\End If

图表外观_Button1_Click

e.Form.Close

图表外观_Button2_Click

Dim s As New Windows.Forms.FontDialog s.ShowColor = True

s.Font = e.Form.Controls(\

s.Color = e.Form.Controls(\If s.ShowDialog = DialogResult.OK Then

e.Form.Controls(\

e.Form.Controls(\End If

图表外观_Button4_Click

Dim style,weight,gradient,texture As Integer Dim r1,g1,b1,r2,g2,b2,r3,g3,b3 As Integer '字体设置

Dim fn As String = e.Form.Controls(\Dim fs As Integer = e.Form.Controls(\Dim fsize As Integer = e.Form.Controls(\Dim RGBColor As Color = e.Form.Controls(\r1 = RGBColor.R g1 = RGBColor.G b1 = RGBColor.B '边框样式

Select e.Form.Controls(\ Case \无\ style = 0 Case \实线\ style = 1 Case \不连续线\ style = 2

Case \单点连续线\ style = 3

Case \单点单线结合\

style = 4

Case \双点单线结合\ style = 5 End Select '边框颜色

RGBColor = e.Form.Controls(\r2 = RGBColor.R g2 = RGBColor.G b2 = RGBColor.B '边框粗细

Select e.Form.Controls(\ Case \最细\ weight = 1 Case \细\

weight = 2 Case \中等\ weight = 3 Case \粗\

weight = 4 End Select '填充颜色

RGBColor = e.Form.Controls(\r3 = RGBColor.R g3 = RGBColor.G b3 = RGBColor.B '渐变方向

Select e.Form.Controls(\ Case \水平\

gradient = 1 Case \垂直\

gradient = 2 Case \斜上\

gradient = 3 Case \斜下\

gradient = 4 Case \角部辐射\ gradient = 5 Case \中心辐射\ gradient = 7 End Select '纹理图案

Select e.Form.Controls(\ Case \纸莎草纸\ texture = 1 Case \画布\

texture = 2 Case \斜纹布\ texture = 3 Case \编织物\ texture = 4 Case \水滴\

texture = 5 Case \纸袋\

texture = 6 Case \鱼类化石\

texture = 7 Case \沙滩\

texture = 8 Case \绿色大理石\ texture = 9 Case \白色大理石\ texture = 10 Case \褐色大理石\ texture = 11 Case \花岗岩\ texture = 12 Case \新闻纸\ texture = 13 Case \再生纸\ texture = 14 Case \羊皮纸\ texture = 15 Case \信纸\

texture = 16 Case \蓝色面巾纸\ texture = 17 Case \粉色面巾纸\ texture = 18 Case \紫色网格\ texture = 19 Case \花束\

texture = 20 Case \软木塞\ texture = 21 Case \胡桃\

texture = 22 Case \栎木\

texture = 23 Case \深色木质\ texture = 24 End Select '其它设置

Dim sfxg As Boolean = e.Form.Controls(\Dim rd1 As Boolean = e.Form.Controls(\Dim rd2 As Boolean = e.Form.Controls(\Dim rd3 As Boolean = e.Form.Controls(\Dim f As String = e.Form.Controls(\Dim bt As String = e.Form.Controls(\Dim wz As String = e.Form.Controls(\'保存设置

Dim str As String = fn & \\\

\f = ProjectPath & \检查路径是否存在 If Not FileSys.DirectoryExists(f) Then FileSys.CreateDirectory(f) End If

Dim lx As String = exStr

f = f & \保存文件名

If lx.Contains(\数据系列\

f = f.Replace(lx,lx.SubString(1)) str = str & \ㄉ\

If FileSys.FileExists(f) Then

Dim vs As String() = FileSys.ReadAllText(f).Split(\ㄉ\ Dim qtz As String = vs(1) str = str & qtz End If End If

FileSys.WriteAllText(f,str,False) e.Form.Close

图表外观_CheckBox1_CheckedChanged

e.Form.Controls(\

图表外观_RadioButton1_CheckedChanged

e.Form.Controls(\

图表外观_RadioButton2_CheckedChanged

e.Form.Controls(\

图表外观_RadioButton3_CheckedChanged

e.Form.Controls(\

图表外观_TextBox2_DoubleClick

Dim f As New OpenFileDialog

f.Filter= \图片文件|*.jpg;*.bmp;*.gif\If f.ShowDialog = DialogResult.Ok Then

e.Form.Controls(\End If

自定义函数

App_ChartNum

Dim tblx As String Select Case Args(0) Case 51

tblx = \柱形图,簇状柱形图\ Case 52

tblx = \柱形图,堆积柱形图\ Case 53

tblx = \柱形图,百分比堆积柱形图\ Case 57

tblx = \条形图,簇状条形图\ Case 58

tblx = \条形图,堆积条形图\ Case 59

tblx = \条形图,百分比堆积条形图\ Case 4

tblx = \折线图,折线图\ Case 65

tblx = \折线图,数据点折线图\ Case 63

tblx = \折线图,堆积折线图\ Case 66

tblx = \折线图,堆积数据点折线图\ Case 64

tblx = \折线图,百分比堆积折线图\ Case 67

tblx = \折线图,百分比堆积数据点折线图\ Case 1

tblx = \面积图,面积图\ Case 76

tblx = \面积图,堆积面积图\ Case 77

tblx = \面积图,百分比堆积面积图\End Select Return tblx

App_Charts

Dim lst As String Select Case Args(0) Case \柱形图\

Case \折线图\

App_ChartType

Dim tblx As Integer Select Case Args(0) Case \柱形图\

Select Case Args(1)

共10页:

Foxtable所有范例代码(3).doc 将本文的Word文档下载到电脑下载失败或者文档不完整，请联系客服人员解决！

下载这篇word文档