Private Sub Form_Load()
Dim x As Long, y As Long, i As Long, j As Long
Dim width As Long, height As Long
ScaleMode = vbPixels
WindowState = vbMaximized
BackColor = vbWhite
ForeColor = vbBlack
Cls
AutoRedraw = True
Print text
width = TextWidth(text)
height = TextHeight(text)
i = Screen.width / Screen.TwipsPerPixelX / 2 - width * 5
j = Screen.height / Screen.TwipsPerPixelY / 2 - height * 5
Font.Name = "Arial"
Font.Size = 20
For y = 0 To height
For x = 0 To width
If Point(x, y) <> vbWhite Then
CurrentX = i + x * 10
CurrentY = j + y * 10
Print "*";
End If
Next
Next
Line (0, 0)-(width, height), vbWhite, BF
End Sub
ببخشید پس چرا برنامه عمل نمیکنه؟
این کدهارو باید در کجا قرار بدم.
وقتی تو فرم لود قرار میدم و برنامه رو اجرا میکنم فقط یه صفحه سفید خالی میاره!!!!!!!!!1
