Question

我正在尝试将一些旧的vb6项目升级到.net。我的计划是使用vs2005升级向导，获取.net 2.0，修复所有错误，然后升级到vs2008等。我的一个项目允许用户通过改变x和y位置来动态格式化数据，查看表单上的新输出，如果他们喜欢他们看到的内容，请使用新格式将数据库打印到打印机。我遇到了一些“形式属性”的问题，即.CurrentX，.CurrentY和.Print。在vb6中，我们可以使用me.CurrentX，me.CurrentY和me.Print直接格式化并直接打印到表单上。如何在.net

中完成

  Code example:
  xpos = txtStartLeft
  YPos = txtStartTop
  'center and print Name
  xpos = (WW - Me.TextWidth(rs!name)) / 2
  Me.CurrentY = YPos
  Me.CurrentX = xpos
  Me.Print rs!name
  YPos = YPos + LineSize
  If IsNull(rs!Desc1) = True Then Exit Sub
  'format and print Desc1
  'left(temp,11) are for formatting purposes only
  Temp = rs!Desc1
  Me.Font.Bold = Mid(Temp, 9, 1)
  Me.Font.Italic = Mid(Temp, 10, 1)
  Me.Font.Underline = Mid(Temp, 11, 1)
  Me.Font.name = cboToFontName.List(CInt(Mid(Temp, 5, 2)))
  Me.Font.Size = CInt(Mid(Temp, 7, 2))
  If Left(Temp, 2) = "C " Then 'Align Center
     xpos = (WW - Me.TextWidth(Right(Temp, Len(Temp) - 11))) / 2
  ElseIf Left(Temp, 2) = "L " Then 'Align Left
     YPos = HH / 3
     xpos = txtToStartLeft + 100
  End If
  Me.CurrentY = YPos
  Me.CurrentX = xpos
  Me.Print Right(Temp, Len(Temp) - 11)
  YPos = YPos + LineSize

.net相当于form.print

0 个答案: