摘要:
Dim i As IntegerSub addNewInfo(ByVal stext As String, ByVal icount As String) Worksheets("Sheet2").Activate Dim rowcount As Integer Dim j, m As Intege... 阅读全文
摘要:
var TmpRect,BackRect:TRect; sWidth,sHeight:integer;begin with pgcMain.Canvas do begin sWidth:=textwidth(pgcMain.Pages[TabIndex].Caption); sHeight:=tex... 阅读全文