🚀 go-pugleaf

�� �� xzy (����) �Ĵ������ᵽ: ��
: С������MsFlexGrid����һ��񣬵������޷����룬���ʸ�·��
: �������(��DataSource�����)��
: 

<����Visual Basic 5.0����Աָ��>����ϸ����,�������̫��.
ʵ�ֵĻ�ԭ����:��MSFlexGrid �ڲ����TEXTBOX���������ӹ�ϵ
�ٰ�TextBox֮��ݸ��Ƶ�MSFlexGrid.
������ƪ����Ӧ��Ҳ������MSFlexGrid


 
[һ�ž��������¶�ʮһ�� �ܵ�667��] ��173�� 
VB��������ķ��� 
������ 
��������������VBForWindows�ṩ��һ��ǿ�������Զ�
����������������ʽ�ṩ���û���ʹ�û����Կ���
ֱ�۵���ʾ��༭��ݿ⡢ͼƬ�⡢����ȴ��͵���ݼ�
�ϡ�
����������к��е�ÿһ�������Ϊ��Ԫ�񣬵�Ԫ���п�
�Է������ֻ�ͼƬ���û��ɶ����е����ݽ��ж�д������
�������������Col��Rowָ���˵�ǰ��Ԫ��������е�
λ�ã����Ƕ������в�����ǰ�����������ǿ���ͨ����
�����ַ�����ָ����ǰ��Ԫ��
������1�����ó��������ָ����
������2�������ڼ��÷������ƶ���ָ����
������3�������ڼ������������Ԫ����ָ����
������Text���Կ������û����õ�ǰ��Ԫ������ݡ�
�������������49�����ԣ�Property����14���¼���
Event����7��������Mathed��������ֻ�����˺ͱ����й�
�����ԣ��������ݶ��߿ɲ����й��鼮������˵��һ�㣬
��Ӧ�ó�����ʹ����������֮ǰ��������File�˵��е�
AddFile�����ڹ������м���Grid��VBX�ļ���
�������������Ĺ��ܷdz�ǿ�󣬵������ź����ǣ���δ
�ṩ�Ե�Ԫ��ı༭���ܡ��û�ֻ��ͨ��Ե�ǰ��Ԫ���
Text���Ա������д��Ԫ�����ݣ��������ַ����ǶԾ�̬
��ݵĶ�д�����ޱ༭���ܿ��ԣ�����ʵ�����£�
����Grid1��Col��1
������ָ����ǰ��Ԫ���λ��
����Grid1��Row��1
����Grid1��Text����Semple��
������ָ����ǰ��Ԫ������
��������������⣬������������ֽ���ķ�������ȡ��
�˽Ϻõ�Ӧ��Ч���ֱַ�������£�
������ӷ�
������ӷ���˼·�ǣ�����VB�ṩ�Ŀɱ༭���ı�������
��Ϊ�н飬ͨ���ı��������Change�¼�������ʵʱ�ؽ�
�ı�����������ݴ��͸��������Ҳ����˵��ͨ���
�ı�������ı༭�ﵽ��ӱ༭���������Ŀ�ġ����
��ʵ�ֺ�����ʵ�����£�
����PrivateSubForm��Load����
����Grid1��Row��0
����Fori��1To4
����Grid1��Coi��i
����Grid1��Text��i
����Nexti
����Grid1��Col��0
����Fori��1To3
����Grid1��Row��i
����Grid1��Text��i
����Nexti
����EndSub
����
����PrivateSubGrid1��Click����
����Text1��Text�����
����Text1��SetFocus
����EndSub
����
����PrivateSubText1��Change����
����Colnum��Grid1��SelStartCol
����Rownum��Grid1��SelStartRow
����Gridl��Col��Colnum
����Gridl��Row��Rownum
����Grid1��Text��Text1��Text
����EndSub
 
�������ڼ�ӷ��������ı�����б༭������֧�ֳ����
���ֱ༭�����һ�֧�ֱ�ǡ�����ȸ��ָ߼��༭������
����к�ǿ�ı༭���ܣ�����ȱ��Ҳ����Ȼ�ģ�Ϊ�˱༭
��񣬱������һ���ı����Ʊؽ���Ӱ����Ļ���֣���
֮���岻�壬����������⡣
����ֱ�ӷ�
����ֱ�ӷ���˼·�ǣ��������������KeyDown��KeyPr
ess�¼�����û��İ��������ͨ��Բ�ͬ����ķ�����
������Ӧ���ַ��?��ֱ�Ӵ���Text���ݣ�Ҳ����˵
�Լ��ദ���ַ�ij��򣩣��Ӷ�ﵽֱ�ӱ༭��Ԫ���
Ŀ�ġ������ʵ�����£�
����SubGrid1��KeyDown��KeyCodeAsInte��ger��ShiftAs
Integer��
����IfKeyCode��46Thengrid1��Text�����
����
����Del�����ǰ���Ԫ�������
����EndSub
����SubGrid1��KeyPress��KeyasciiAsIntger��
����SelectCaseKeyascii
����Case8
�����䴦���˸��
����IfLen��grid1��Text����0Then
����ExitSub
����grid1��Text��Left�磨gridl��Text��Len��grid1��
Text����1��
����ExitSub
����Case46
�����䴦��С���
����grid1��Text��grid1��Text�����
����ExitSub
����Case45
�����䴦�?��
����grid1��Text��grid1��Text���壭��
����ExitSub
����Case43
�����䴦�����
����grid1��Text��grid1��Text���士��
����ExitSub
����EndSelect
����If��Keyascii��48Orkeyascii��58��
����Then�䴦�������
����Beep��ExitSub
����EndIf
����gridl��Text��gridl��Text��Right��Str��keyascii
��48����1��
����EndSub
������һ�γ���ʵ�ֵĹ����ǣ��û��������ѡ����ǰ��
��Ԫ�񣬲��������ݵ����빤����ͬʱ�Է��������뷢
�����������γ���ֻ֧����Del�����ǰ��Ԫ����˸�
��ɾ��β�ַ�ı༭���ܡ���Ȼ�����������Ա���Ը��
��Ҫ������ļ��̲������Ӷ���Ƴ���ǿ�ı༭���ܡ�
����ֱ�ӷ����ŵ��DZ༭ֱ�ۣ��ҿ�����Ծ����������
��ר�õı༭���ܣ���ȱ���DZ༭���ܲ�ǿ��
�����ӱ��ߵ�ʹ�þ������������༭�����ִ��?��
�ı༭�����ѿ�������һ���Ҫ�����Ա��ߴӳ��򻯵�
�Ƕ��Ƽ�ʹ��ֱ�ӷ���
����
���� 
������ҳ

--
 ��Դ: ����������BBSվ��bbs.nease.net�E[FROM: www-post@bbs.nease.n]