Перевести код рисования фигур с 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д