Question

VB6的代码转为VS2013 VB的代码

还有





Answer 1

   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim g As Graphics = Graphics.FromHwnd(PictureBox1.Handle)
        Dim c As Brush = New SolidBrush(Color.White) '清空的颜色
        g.FillRectangle(c, 0, 0, PictureBox1.Width, PictureBox1.Height)
        Dim x As Integer, y As Integer
        Dim fontColor As Color
        Dim s As String = ""
        For u As Integer = 0 To lrck
            s = bstr(u)
            Dim sz As SizeF = g.MeasureString(s, Me.Font, PictureBox1.Size)
            x = (PictureBox1.Width + 2000 + sz.Width) / 2 - 1000
            y = PictureBox1.Height - 400 - tolrc * 200 + u * 200
            If u = tolrc Then
                fontColor = Color.FromArgb(&HFF)
            Else
                fontColor = Color.FromArgb(&HFFFF)
            End If
            g.DrawString(s, Me.Font, New SolidBrush(fontColor), x, y)
        Next
        g.Dispose()
    End Sub

    Private Function GetFile(ByVal path As String) As String()
        Dim s() As String, i As Integer
        Dim fo As New IO.StreamReader(path)
        Do While Not fo.EndOfStream
            ReDim Preserve s(i)
            s(i) = fo.ReadLine
            i += 1
        Loop
        Return s
    End Function

追问

这貌似只是第一张图的？第二张呢？

追答

Private Function GetFile(ByVal path As String) As String()
这个函数就是啊