Thread View: cn.bbs.comp.program
1 messages
1 total messages
Started by ����
Thu, 30 Jul 1998 00:00
��ν��VB��Grid�ؼ��Ĵ�ӡ����
Author: ����
Date: Thu, 30 Jul 1998 00:00
Date: Thu, 30 Jul 1998 00:00
399 lines
15474 bytes
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]
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