Heim > Artikel > Computer-Tutorials > Zeichnen Sie einen Kreis im VB-Fenster, ändern Sie die Position des Kreises über verschiedene xy-Eingaben und steuern Sie die Kreisbewegung über die Tastatur
Private Sub Picture1_KeyDown(KeyCode als Ganzzahl, Verschiebung als Ganzzahl)
Wenn KeyCode = vbKeyRight Then
Bild1.Links = Bild1.Links + 100
Ende wenn
Wenn KeyCode = vbKeyLeft Then
Picture1.Left = Picture1.Left - 100
Ende wenn
End Sub
Private Sub Picture1_MouseDown(Button als Ganzzahl, Verschiebung als Ganzzahl, X als Einzelzahl, Y als Einzelzahl)
Bild1.Kreis (X, Y), 300
End Sub
Sie müssen Ihren Kreis kontrollieren, um sich in einem Container zu bewegen
Private Sub Command1_Click()
Dim a als Ganzzahl, b als Ganzzahl, c als Ganzzahl
Max als Ganzzahl dimmen, Min als Ganzzahl dimmen
a = Val(InputBox("Geben Sie die erste Ganzzahl ein", "Eingabe"))
b = Val(InputBox("Geben Sie die zweite Ganzzahl ein", "Eingabe"))
c = Val(InputBox("Geben Sie die dritte Ganzzahl ein", "Eingabe"))
max = a
Wenn b >max, dann ist max = b
Wenn c >max, dann ist max = c
min = a
Wenn b Wenn c
Drucken Sie max, a + b + c - max - min, min
End Sub
Erstellen Sie ein Rich-Textfeld und geben Sie durch Kommas "," getrennte Ganzzahlen ein, z. B. 123, 45, 67, 89 und dann
Schaltflächencode sortieren
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("Eingabedaten sind falsch!");
zurück;}
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("rn Sortiert von klein nach groß: rn");
foreach (int i in lint) richTextBox1.AppendText(i + ",");
}
Visual Basic-Programmierung 1 Maximiert das Fenster automatisch, nachdem das Programm ausgeführt wird. 2 Formulartitel xxxxxx
Ende
End Sub
Privates Unterformular_Click()
n = CInt(InputBox("Bitte geben Sie eine ungerade Zahl ein", "Dateneingabe"))
Für i = 1 bis n
Registerkarte Drucken(51 - i);
Für j = 1 bis 2 * i - 1
Print Trim(Str(n Mod 10));
Nächstes j
Als nächstes
Für i = n - 1 bis 1 Schritt -1
Registerkarte Drucken(51 - i);
Für j = 1 bis 2 * i - 1
Print Trim(Str(n Mod 10));
Nächstes j
Als nächstes
End Sub
Private Sub Form_Load()
Me.FontSize = 19
Label1.FontSize = 19
Me.WindowState = 2
Me.Caption = "xxxxxx"
Label1.Caption = "xxxx"
End Sub
Das obige ist der detaillierte Inhalt vonZeichnen Sie einen Kreis im VB-Fenster, ändern Sie die Position des Kreises über verschiedene xy-Eingaben und steuern Sie die Kreisbewegung über die Tastatur. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!