modpublic.bas

一个用VB开发的非常不错的企业ERP管理源码,值得一看.

Attribute VB_Name = "modPublic"
Option Explicit
Public Const glngPAPERH As Long = 29.7 * 567 'A4纸张之长   单位:twips
Public Const glngPAPERW As Long = 21 * 567   'A4纸张之宽   单位:twips
Public glngTopMargin As Long '上边界        单位:twips
Public glngBottomMargin As Long '下边界  单位:twips
Public glngLeftMargin As Long '左边界        单位:twips
Public glngRightMargin As Long '右边界      单位:twips
Public gobjFormToPrint As Object '储存有资料需要列印的表单名称
Public Eorrp As String     '是不第一次用
Public ManText As String  '打印标题

Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const EM_GETLINECOUNT = &HBA


' 假设要读取 Text16 第 N 行的数据
Public Const EM_GETLINE = &HC4
Public Const EM_LINELENGTH = &HC1
Public Const EM_LINEINDEX = &HBB
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
Sub TB_GetLine(ByVal hwnd As Long, ByVal whichLine As Long, Line As String)
Dim length As Long, bArr() As Byte, bArr2() As Byte, lc As Long
lc = SendMessage(hwnd, EM_LINEINDEX, whichLine, ByVal 0&)
length = SendMessage(hwnd, EM_LINELENGTH, lc, ByVal 0&)
If length > 0 Then
ReDim bArr(length + 1) As Byte, bArr2(length - 1) As Byte
Call RtlMoveMemory(bArr(0), length, 2) '准备一个存储器，传递消息之前先在存储器的前两个字节填入存储器的长度
Call SendMessage(hwnd, EM_GETLINE, whichLine, bArr(0))
Call RtlMoveMemory(bArr2(0), bArr(0), length)
Line = StrConv(bArr2, vbUnicode)
Else
Line = ""
End If
End Sub