For j = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = j
Tj = Trim(MSFlexGrid1.Text)‘这个就直接把各项横着打过去了!
l = (j * w1 + w1 / 2) / 2.54 * 1440 - Picture1.TextWidth(Tj) / 2
Picture1.CurrentX = x0 + mLft / 2.54 * 1440 + l
Picture1.Print Tj;
Next怎么竖打啊,希望和各位做VB+SQL的成为朋友。MSN: [email protected]
MSFlexGrid1.Col = j
Tj = Trim(MSFlexGrid1.Text)‘这个就直接把各项横着打过去了!
l = (j * w1 + w1 / 2) / 2.54 * 1440 - Picture1.TextWidth(Tj) / 2
Picture1.CurrentX = x0 + mLft / 2.54 * 1440 + l
Picture1.Print Tj;
Next怎么竖打啊,希望和各位做VB+SQL的成为朋友。MSN: [email protected]
返回 Variant (String),其中包含字符串中指定数量的字符。语法Mid(string, start[, length])Mid 函数的语法具有下面的命名参数:部分 说明
string 必要参数。字符串表达式,从中返回字符。如果 string 包含 Null,将返回 Null。
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数,Mid 返回零长度字符串 ("")。
length 可选参数;为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数(包括 start 处的字符),将返回字符串中从 start 到尾端的所有字符。
说明欲知 string 的字符数,可用 Len 函数。注意 MidB 函数作用于字符串中包含的字节数据,如同在双字节字符集(DBCS)语言中一样。因此其参数指定的是字节数,而不是字符数。对于使用 MidB的示例代码,请参阅示例主题中的第二个示例。
本示例使用 Mid 语句来得到某个字符串中的几个字符。Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" 建立一个字符串。
FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid"。
LastWord = Mid(MyString, 14, 4) ' 返回 "Demo"。
MidWords = Mid(MyString, 5) ' 返回 "Funcion Demo"。