🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: cn.bbs.comp.program
Article #514

��ν��VB��Grid�ؼ��Ĵ�ӡ����

#514
From: ����
Date: Thu, 30 Jul 1998 00:00
399 lines
15474 bytes

                ����Grid�ؼ���Visual Basic���ؼ�֮һ����VB3.0
                ��VB5.0���иÿؼ���Ҳ��VB��������ϲ���Ĺ���֮һ��
                ��������Ա����ʽ��ʾ�������ݣ��ر�����ݿ�Ӧ
                �ã�ֱ�Ӱ󶨼�����ʾ�����ݿ���Ϣ��Ȼ�����в���
                ����Gridû�б༭�ʹ�ӡ���ܣ������е�λ�ò����໥��
                �������������Ÿ�Grid��������Щ���ܣ�ʹ֮������
                �������ܸ�ǿ���������Ľ���Դ���򣬶���ֻ��
                ������д��Դ���򼴿�ʹ���Grid���д�ӡ���ܡ��ó���
                ������HP5/100 Window 95��������VB5.0����ͨ��

                ������Grid �ؼ����Ӵ�ӡ���������֣�

                ����(1)��ֱ�Ӵ�ӡ�ؼ��ķ�����

                ����(2)��ͨ��printer��ʵ�ִ�ӡ���ܣ�

                ����(3)��ͨ�����MS��Word��MS��Excel ��ʵ�ִ�ӡ��

                �������ȣ���һ��Ӧ�ã���FORM1������DATA�ؼ�
                DATA1,��DATA1��CONNECT������ΪdBASE ���ٰ�
                DATABASENAME������ΪD:\PJXM.DBF��Ȼ������FORM1����
                ��MSFLEXGRID�ռ�GRID1������GRID1��DATASOURCE������
                ΪDATA1��������ݿ�PJXM.DBF����Ϣ�ͻ���GRID1����ʾ
                ������

                ��������һ��ֱ�Ӵ�ӡ���巨����FORM1���������ť
                (command)��CAPTION������Ϊֱ�Ӵ�ӡ����д�����б�
                �룺

                ���� Sub command��click

                ���� Form1.printform

                ���� End sub

                ���������ͨ���ӡ����FORM1�ķ�����GRID1����ݴ�ӡ
                �������ź�����ֻ�ܴ�ӡGRID1����ʾ����ݲ��֣���ʾ
                �����������޷���ӡ�����ִ�ӡ����������ĻӲ��������
                ��ؼ�Ҳ��ӡ�������Ҳ������Ŀ�������ȡ�

                ������������ͨ��PRINTERʵ�ִ�ӡ�����ַ����������
                ӡ���ť(command1)������(prnt1)����ʵ�ִ�ӡ��
                �ܣ�д��������룬�����ԼӸĶ���д�ɱ�׼�ĺ�����
                �̡�

                ����Function prnt1 (x As Integer, y As Integer,
                font As Single, txt As String)

                ���� printer.CurrentX = x

                ���� printer.CurrentY = y

                ���� printer.FontBold = False

                ���� printer.FontSize = font

                ���� printer.Print txt

                ����End Function

                ���� Sub command1��click

                ����Dim fnt As Single

                ����Dim pp as integer

                ����Pp=0�����ÿ�ʼҳ��0

                ����Dim stry,strx,strx1,stry1,linw,page1,p As
                Integer

                ����Static a(8) As Integer�䶨���ӡ������

                ����ss�� = ���ڲ�����������ʵ��� �䶨���ͷ

                ����kan = 0

                ����For i = 0 To 8

                ���� a(i) = 1500�䶨��ÿ�п�

                ���� kan = kan �� a(i)��������ܿ��

                ����Next

                ����page1 = 50�䶨��ÿҳ����

                ����strx = 200

                ����strx1 = 200�䶨��X������ʼλ��

                ����stry = 1400

                ����stry1 = 1400�䶨��Y������ʼλ��

                ����linw = 240�䶨���п�

                ����fnt = 8�䶨�������С

                ����printer.fontname = �������䶨������

                ����dd = prnt1(4000, 700, 18, ss��)���ӡ����

                ����printer.Line (strx �� 50, stry �� 30)��(strx
                �� kan �� 10, stry �� 30)

                ����For j = 0 To gridrow �� 1��gridrowΪ��Ҫ��ӡ��
                ����

                ���� grid1.row = j

                ���� strx = strx1

                ���� printer.Line (strx �� 50, stry �� 30)��(strx
                �� kan �� 10, stry �� 30)

                ���� p = p �� 1

                ���� For i = 0 To 8

                ���� grid1.col = i

                ���� dd = prnt1(strx, stry, fnt, grid1.text)

                ���� strx = strx �� a(i)

                ���� Next

                ���� If p > page1 Then��next page

                ���� p = 0

                ���� strx = strx1

                ���� ��line last line

                ���� printer.Line (strx �� 50, stry �� linw)��
                (strx �� kan �� 10, stry �� linw)

                ���� stry = stry1

                ���� ��line col

                ���� For n = 0 To 8

                ���� printer.Line (strx �� 30, stry �� 30)��(strx
                �� 30, stry �� (page1 �� 2) �� linw)

                ���� strx = strx �� a(n)

                ���� Next

                ���� printer.Line (strx �� 30, stry �� 30)��(strx
                �� 30, stry �� (page1 �� 2) �� linw)

                ���� pp=pp��1

                ���� foot��=��� �士cstr(pp)���� ҳ��

                ���� dd = prnt1(strx �� 30��1000, stry �� (page1
                �� 2) �� linw��100, 10, foot��)���ӡҳ����

                ���� printer.NewPage��next page

                ���� dd = prnt1(4000, 700, 18, ss��) ���ӡ����

                ���� strx = strx1

                ���� stry = stry1

                ���� printer.Line (strx �� 50, stry �� 30)��(strx
                �� kan �� 10, stry �� 30)�� print first row

                ���� Else

                ���� stry = stry �� linw

                ���� End If

                ����Next

                ���� st = stry

                ���� If p < page1 Then �������ҳʣ�໮����

                ���� For o = p To page1 �� 1

                ���� strx = strx1

                ���� printer.Line (strx �� 50, stry �� 30)��(strx
                �� kan �� 10, stry �� 30)

                ���� stry = stry �� linw

                ���� Next

                ����End If

                ���� stry = stry1

                ���� strx = strx1

                ���� stry = stry1 ��line col

                ���� For n = 0 To 8

                ���� printer.Line (strx �� 30, stry �� 30)��(strx
                �� 30, stry �� (page1 �� 2) �� linw)

                ���� strx = strx �� a(n)

                ���� Next

                ���� printer.Line (strx �� 30, stry �� 30)��(strx
                �� 30, stry �� (page1 �� 2) �� linw)

                ���� pp=pp��1

                ���� foot��=��� �士cstr(pp)���� ҳ��

                ���� dd = prnt1(strx �� 30��1000, stry �� (page1
                �� 2) �� linw��100, 10, foot��)���ӡҳ����

                ���� printer.EndDoc���ӡ����

                ����Endsub

                �������ַ���ͨ�����ı�̿��Է���ص������塢��
                �͡����Ρ�ҳ�桢ֽ�Ŵ�С�ȡ��ɴ�ӡ���Ƚ������Ч
                �������ļ������װ��MICROSOFT WORD��MICRO
                EXCEL����ʵ��÷����ǰ�GRID�ı��ͨ��VB���͵�
                MICROSOFT WORD��MICRO EXCEL�����MICROSOFT WORD��
                MICRO EXCEL�������Ϳ��Գ������MICROSOFT WORD
                ��MICRO EXCEL�Ĵ�ӡ���༭���ܴ�ӡ��������Ľ��
                ������һ���ܡ�

                ����������ͨ�����MICROSOFT WORD����ӡ

                ����1����declaration ���:

                ���� Dim msword As Object

                ����2�������ӡ���ť(command2)��CAPTION��Ϊ����
                ��WORD��񡱣�д��������룬Private Sub command2��
                Click()

                ���� screen.MousePointer = 11

                ���� Set msword = CreateObject(��word.basic��)

                ���� Dim AppID, ReturnValue

                ����appID = Shell(��d:\office97\office\WINWORD.EXE
                ��, 1) �� Run Microsoft Word.

                ���� msword.AppActivate ��Microsoft Word��

                ���� ��msword.AppActivate ��Microsoft Word��, 1

                ���� full

                ���� Screen.MousePointer = 0

                ����End Sub

                ����3��д�����¹��full()

                ����Sub full()

                ���� Dim i As Integer, j As Integer, col As
                Integer, row As Integer

                ���� Dim cellcontent As String

                ���� Me.Hide

                ���� cols = 4���������

                ���� row = gridrow���ӡ�������

                ���� msword.filenewdefault

                ���� msword.MsgBox �����ڽ���MS��WORD���?����
                ��.......��, ���, ��1

                ���� msword.leftpara

                ���� msword.screenupdating 0

                ���� msword.tableinserttable , col, row, , , 16,
                167

                ���� msword.startofdocument

                ����for j=0 to gridrow���������

                ���� grid1.row=j

                ���� For i = 1 To cols

                ���� Grid1.col=i

                ����If IsNull(grid1.text) Then

                ����cellcontent�� = ���

                ���� Else

                ����cellcontent�� = grid1.text

                ���� End If

                ���� msword.Insert cellcontent��

                ���� msword.nextcell

                ���� Next i

                ����Next j

                ���� msword.tabledeleterow

                ���� msword.startofdocument

                ���� msword.tableselectrow

                ���� msword.tableheadings 1

                ���� msword.centerpara

                ���� ��msword.startdocument

                ���� msword.screenrefresh

                ���� msword.screenupdating 1

                ���� msword.MsgBox ������, ���, ��1

                ���� Me.Show

                ����End Sub

                ���������ģ�ͨ���͵�MICROSOFT EXCELʵ�ֱ���ӡ

                ���������ӡ���ť(command3)��CAPTION��Ϊ�����
                EXCEL��񡱣�д���������

                ����Private Sub command3��Click()

                ���� Dim i As Integer

                ���� Dim j As Integer

                ���� Dim xlApp As Excel.Application

                ���� Dim xlBook As Excel.Workbook

                ���� Dim xlSheet As Excel.Worksheet

                ���� Set xlApp = CreateObject(��Excel.Application
                ��)

                ���� xlApp.Visible = True

                ���� ��Set xlBook = xlApp.Workbooks.Add

                ���� ��On Error Resume Next

                ���� Set xlBook = xlApp.Workbooks.Add ��Open(��
                d:\text2.xls��)

                ���� SetxlSheet = xlBook.Worksheets(1)

                ���� xlSheet.Cells(6, 1) = ��i��

                ���� For i = 0 To gridrow

                ���� grid1.Row = i

                ���� For j = 0 To 6

                ���� Grid1.Col = j

                ���� If IsNull(Grid1.Text) = False Then

                ����xlSheet.Cells(i �� 5, j �� 1) = Grid1.Text

                ���� End If

                ���� Next j

                ���� Next i

                ����Exit Sub

--
�� ��Դ:��Yat-sen Channel argo.zsu.edu.cn��[FROM: www.ee.zsu.edu.c]
Technical Details
Message-ID: <3Pg4Xf$tH2@argo.zsu.edu.cn>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB
X-Google-Thread: fc86e,3c8324f236915926,start
X-Google-Attributes: gidfc86e,public
From: lhh.bbs@argo.zsu.edu.cn (����)
Subject: ��ν��VB��Grid�ؼ��Ĵ�ӡ����
Date: 1998/07/30
Message-ID: <3Pg4Xf$tH2@argo.zsu.edu.cn>
X-Deja-AN: 376259441
Organization: Yat-sen Channel BBS
X-Filename: Programming/M.901778009.A
Newsgroups: cn.bbs.comp.program