Thread View: cn.bbs.comp.program
1 messages
1 total messages
Started by ���ܵ�Сʨ
Sat, 18 Apr 1998 00:00
��VFP 3.0����ͳ��ͼ��
Author: ���ܵ�Сʨ
Date: Sat, 18 Apr 1998 00:00
Date: Sat, 18 Apr 1998 00:00
132 lines
7112 bytes
7112 bytes
\ Visual Foxpro 3.0(���¼��VFP)�ṩ��һ������MS-Graphͳ��ͼ
�ε�����,�������ΪWZGRAPH.APP���ź�����,���ø�����
ֻ���Խ����ķ�������ͳ��ͼ,���Ա�̵ķ�ʽ��ݲ�ͬ����Ҫ��
��ؿ���ͳ��ͼ����VB 4.0�ṩ��һ������ͳ��ͼ�ε�Graph�ؼ�,��
�ؼ�����OLE DLL��ʽ�ṩ��,���к�ǿ�Ļ�ͼ����,����ֱ��ͼ����
ͼ��11��ͼ�Ρ�VFP ��OLE�������ƿ��Ե��ø�Graph�ؼ�,�ﵽ����
ͳ��ͼ�ε�Ŀ�ġ�
Graph�ؼ�����
Graph�ؼ��ṩ�����Էdz��ḻ,������ʮ����,��ϸ˵�����Բ�
��VB4.0���û��ؼ��ֲ�,���潫���ܼ������õ����ԡ�
��AutoInc:��ͳ��ͼ�������Ը�ֵʱ,�Ƿ��Զ����Ӽ�������(Th
isPoint��ThisSet����)��ֵ��AutoInc=1�Զ�,AutoInc=0���˹�����
��
��DrawMode:����ͼ����λ��ơ��丳ֵ����:
DrawMode=0ͼ������
DrawMode=1 ͼ����ʾΪ��,����BackGroup���Ե���ɫ��ʾ��
������ʾGraphCaption �������õı���
DrawMode=2������ʾͼ��
DrawMode=3��λͼ��ʽ��ʾͼ��
DrawMode=4��ͼ�ο����������
DrawMode=5��ӡͼ�εĿ���
DrawMode=6��ͼ�α��浽�ļ�
��GraphCaption:ָ��ͼ�ı��⡣
��GraphTitle:ָ����ݼ�����Ŀ��
��ThisPoint:ָ���ص�ǰ���λ�á�
��ThisData:�趨��ͼ�����,����������������,�����ͼ�ϵ�
λ����ThisPoint��Thi sSet����ȷ����
��LabelText:ÿ����ݵ�ı��,������Ҳ����������,��ݵ���
ͼ�ϵ�λ����ThisPoi nt��ThisSet����ȷ����
��GraphType:ָ��ͼ�ε����͡��丳ֵ����:
GraphType=0 û��ͼ��
GraphType=1 ��ά��ͼ
GraphType=2 ��ά��ͼ
GraphType=3(ȱʡ)��άֱ��ͼ
GraphType=4��άֱ��ͼ
GraphType=5�ʵ�ͼ
GraphType=6��ͼ
GraphType=7��־/��ͼ
GraphType=8����ͼ
GraphType=9ɢ��ͼ
GraphType=10��״ͼ
GraphType=11�ߵ�ͼ
ʵ�ַ���
����,��VB4.0�е�Graph32.OCX�ļ�������Windowsϵͳ��system
Ŀ¼��,���Ӧ�Ըÿؼ�����ע�ᡣ����VFPϵͳ,�����˵���ѡ��"��
��"��,Ȼ��ѡ��"ѡ��",�ڵ�����ҳ����ƴ�����ѡ��"����"��,ѡ��
OLE�������ʱ���б���л��г����е���ע���OLE����,ѡ��"
���"��ť,ϵͳ�ᵯ��һ�������ļ���Ĵ���,��systemĿ¼�µ�Gra
ph32.OCX�ļ�ѡ��,����OLE�����б���л����Pinnacle-BPS Graph
Control�
������ȫ������ʹ��Outline��������ʹ��Graph����,��VFP�¼�
����ʹ�ñ?�����, Ҳ����ʹ���������������ͳ��ͼ�γ���;��
��������ȫ���Զ�ͼ�ε�ÿ��ϸ�ڽ��п��ơ�
����������Ƕ�Graph���Ƶļ�Ӧ��,���ȶ�����һ���?��,
�ڸñ?�м���һ��Gr aph OLE����,��OleClass="GraphLib.Graph"
��Ϊ�˼����,ͳ��ͼ����ݲ���ֱ�ӽ���ݸ�ֵ��GraphData��La
belText����,��ȻҲ���Խ���ݿ��е���ݸ����������н��л�ͼ��
����������л���Ϊ:����Windows 95,����VFP 3.0��
����
frmMyForm=CREATEOBJECT(��frmGraph') &&�����?
frmMyForm.Caption=��ͳ��ͼ�δ���'
frmMyForm.oleGraphObject.GraphTitle=��ͳ��ͼ��'
*�ɸ��ʵ�����,����ݿ��е����
*���ڴ�����е���ݽ��л�ͼ
With frmMyForm.oleGraphObject
��NumSets=2
&&���������
��NumPoints=4
&&ÿ����ݵ�4��
��AutoInc=1
&&�Զ����Ӽ���
*����ͳ�����
��ThisPoint=1
��ThisSet=1
��GraphData=10
��GraphData=20
��GraphData=30
��GraphData=40
��GraphData=20
��GraphData=30
��GraphData=40
��GraphData=50
*���ñ��
��ThisPoint=1
��ThisSet=1
��DataReset=4
��LabelText=' 1��'
��LabelText=' 2��'
��LabelText=' 3��'
��LabelText=' 4��'
��GraphType=4
&& ��άֱ��ͼ
��GridStyle=3
&& �������
Endwith
frmMyForm.Show
&& ��ʾ�?
READ EVENTS
&& �����¼�����
*����?��
Define Class frmGraph As Form
AutoCenter=.T.
Closable=.F.
&& ��ֹ���Ʋ˵���
BackColor=RGB(192,192,192)
Height=350
Width=500
ControlBox=.F.
*�����˳����ť
ADD OBJECT cmdMyCmdBtn1 AS CommandButton;
With Caption='�˳�[<X]',;
Cancel=.T.,:
Left=200,;
Top=310,;
Height=25,;
Visible=.T.,:
PROCEDURE cmdMyCmdBtn1.Click
CLEAR EVEBTS &&�����¼�����,�رձ?
ENDPROC
*����ͳ��ͼ�ζ���
ADD OBJECT oleGraphObject as OLEControl;
WITH OleClass="GraphLib.Graph",;
Visible=.T.,;
Height=300,;
Width=500
oleGraphObject.PrintStyle=2 &&��ɫ��ʽ��ӡ��
ENDDEFINE
--
[m[1;32m�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn][m
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads