Home  >  Article  >  Computer Tutorials  >  Draw a circle in the VB window, change the position of the circle through different xy inputs, and control the circular movement through the keyboard

Draw a circle in the VB window, change the position of the circle through different xy inputs, and control the circular movement through the keyboard

PHPz
PHPzforward
2024-01-23 21:54:23610browse

Draw a circle in the VB window, change the position of the circle through different xy inputs, and control the circular movement through the keyboard

VB draws a circle in the window and inputs different xy to change the coordinates of the circle and make the circle receive keys

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyRight Then

Picture1.Left = Picture1.Left 100

End If

If KeyCode = vbKeyLeft Then

Picture1.Left = Picture1.Left - 100

End If

End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Picture1.Circle (X, Y), 300

End Sub

You need to control your circle to move inside a container

Write a program to input three numbers x y z when you click the form and display them in the form in order from small to large

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

Dim max As Integer, min As Integer

a = Val(InputBox("Input the first integer", "Input"))

b = Val(InputBox("Enter the second integer", "Input"))

c = Val(InputBox("Enter the third integer", "Input"))

max = a

If b >max Then max = b

If c >max Then max = c

min = a

If b If c

Print max, a b c - max - min, min

End Sub

Design a window form application to randomly input a series of positive characters from the text box

Create a rich textbox, and enter integers separated by commas ",", such as 123, 45, 67, 89, and then

Sort button code

private void button1_Click(object sender, EventArgs e)

{

string str = richTextBox1.Text.Replace("","").TrimEnd(new char[]{','});

if (!string.IsNullOrEmpty(str.Trim(("1234567890,").ToCharArray())))

{

MessageBox.Show("Input data is incorrect!");

return;

}

string[] strs = str.Split(new char[] { ',' });

int[] lint = new int[strs.Length];

for (int i = 0; i

lint[i] = int.Parse(strs[i]);

Array.Sort(lint);

richTextBox1.AppendText("\r\nThe order from small to large is:\r\n");

foreach (int i in lint) richTextBox1.AppendText(i ",");

}

Visual Basic Programming 1 Automatically maximize the window after the program runs 2 Form title xxxxxx

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Click()

n = CInt(InputBox("Please enter an odd number", "Data input"))

Print

For i = 1 To n

Print Tab(51 - i);

For j = 1 To 2 * i - 1

Print Trim(Str(n Mod 10));

Next j

Print

Next i

For i = n - 1 To 1 Step -1

Print Tab(51 - i);

For j = 1 To 2 * i - 1

Print Trim(Str(n Mod 10));

Next j

Print

Next i

End Sub

Private Sub Form_Load()

Me.FontSize = 19

Label1.FontSize = 19

Me.WindowState = 2

Me.Caption = "xxxxxx"

Label1.Caption = "xxxx"

End Sub

The above is the detailed content of Draw a circle in the VB window, change the position of the circle through different xy inputs, and control the circular movement through the keyboard. For more information, please follow other related articles on the PHP Chinese website!

Statement:
This article is reproduced at:docexcel.net. If there is any infringement, please contact admin@php.cn delete