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
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
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
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 ",");
}
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Click()
n = CInt(InputBox("Please enter an odd number", "Data input"))
For i = 1 To n
Print Tab(51 - i);
For j = 1 To 2 * i - 1
Print Trim(Str(n Mod 10));
Next j
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
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!