vb 读取txt文本并按下图的形式用PictureBox输出

Question

我做好第一题了 不知道第二题怎么用picturebox输出
求大神指教~

Answer 1

采用Print方法输出文本到图片框。

Option Explicit
    Dim colvb As Variant, X As Variant, Y As Variant, N As Variant, txt As Variant
    Dim dd As Variant

Public Function dy(colvb As Variant, X As Variant, Y As Variant, N As Variant, txt As Variant)
    Picture1.ForeColor = colvb
    Picture1.CurrentX = X
    Picture1.CurrentY = Y
    Picture1.FontSize = N
    Picture1.Print txt '
End Function

Private Sub Command1_Click()
    colvb = vbRed
    X = 15: Y = 15
    N = 12
    txt = "CO"
    dd = dy(colvb, X, Y, N, txt)
    X = 20: Y = 14
    txt = "2"
    N = 9
    dd = dy(colvb, X, Y, N, txt)
End Sub

Private Sub Command2_Click()
    X = 2: Y = 12
    Debug.Print ((X + 2) - Y) ^ 3
End Sub

Private Sub Form_Load()
    Picture1.ScaleMode = vbMillimeters '以mm为单位
    Picture1.AutoRedraw = True
End Sub