首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

打印最后缺少一个字符?求解!谢谢

2012-04-12 
打印最后缺少一个字符?求解!多谢str2 lbl5.TextDim temp As String str2Dim j As Integer 0Dim k As

打印最后缺少一个字符?求解!多谢
str2 = lbl5.Text
  Dim temp As String = str2


  Dim j As Integer = 0
  Dim k As Integer = 0
  Dim i As Integer
  Dim l As Integer = 0
  MsgBox(str2.Length)
  a = System.Text.Encoding.Default.GetByteCount(str2) / 72 ‘ 以72字节分行

  a = Fix(a) + 1
  b = 0
  c = 0

  Dim x(a - 1) As Integer
   
  For l = 0 To a - 1 Step 1
  x(l) = k
  b += x(l)

  j = 0
  k = 0

  For i = b + 1 To temp.Length - 1 Step 1 ’问题可能出在这行,如果写成temp.length报错

  If Regex.IsMatch(temp.Substring(i, 1), "[\u4e00-\u9fa5]+") Then

  j += 2
  Else
  j += 1
  End If
  If j <= 72 Then
  k += 1
  End If

  Next
  MsgBox(x(l))

  prngraph.DrawString(Mid(temp, b + 1, k), prnfont1, prnbrush, lbl5.Left, lbl5.Top + c) '打印作业内容
  c += 18
  Next


lbl5.text为一字符串

现在情况是如果打印,前面都正常,只有最后一行的最后一个字,无法打印!求解!

多谢啊!

[解决办法]

[解决办法]

探讨

嘿嘿,搞明白了,加个限制条件即可完成!嘿嘿!

[解决办法]
嘿嘿,搞明白了,加个限制条件即可完成!嘿嘿!

热点排行