Перевести код рисования фигур с Visual Basic .NET - VB

Узнай цену своей работы

Формулировка задачи:

Мне нужно переделать программный код с Visual Basic.NET на Visual Basic 6.0 Пожалуйста...
+ Как запостить тему, чтобы не получить ответ

Решение задачи: «Перевести код рисования фигур с Visual Basic .NET»

textual
Листинг программы
Private Sub Комманда3_Click()
'Dim Pen1 As New Pen(Color.Black, 2) =
Dim Pen1 As Long: Pen1 = vbBlack
 
'Dim Pen2 As New Pen(Color.Red, 2)
Dim Pen2 As Long: Pen2 = vbRed
 
'Dim drawbrush1 As New SolidBrush(Color.Black)
Dim drawbrush1  As Long: drawbrush1 = vbBlack
 
 
'Dim drawfont1 As New Font(, 10)
Dim drawfont1_Name As String
Dim drawfont1_Size As Byte
drawfont1_Name = "Arial"
drawfont1_Size = 10
 
 
Dim Y As Single
Dim X As Single
Dim N As Single
 
 
 N = Val(TextBox1.Text)
 Рисунок1.Cls
 Рисунок1.Scale (-350, 1.5)-(350, -1.5)
 Рисунок1.Line (-330, 0)-(330, 0)
 Рисунок1.Line (0, 1.3)-(0, -1.3)
  
 Рисунок1.Font.Name = drawfont1_Name
 Рисунок1.Font.Size = drawfont1_Size
        For X = -300 To 300 Step 150
             Рисунок1.CurrentX = X-20
             Рисунок1.CurrentY = 0
             Рисунок1.Print X / 100
        Next X

Оцени полезность:

12   голосов , оценка 4.083 из 5