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

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

PHPz
PHPznach vorne
2024-01-23 21:54:23628Durchsuche

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

VB zeichnet einen Kreis im Fenster und gibt verschiedene xy-Koordinaten ein, um die Koordinaten des Kreises zu ändern und dafür zu sorgen, dass der Kreis Schlüssel erhält

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

Schreiben Sie ein Programm, um 3 Zahlen x y z einzugeben, wenn Sie auf das Formular klicken. Diese werden dann in der Reihenfolge von klein nach groß auf dem Formular angezeigt

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

Entwerfen Sie eine Fensterformularanwendung, um zufällig eine Reihe positiver Zeichen aus dem Textfeld einzugeben

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

Private Sub Command1_Click()

Ende

End Sub

Privates Unterformular_Click()

n = CInt(InputBox("Bitte geben Sie eine ungerade Zahl ein", "Dateneingabe"))

Drucken

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

Drucken

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

Drucken

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!

Stellungnahme:
Dieser Artikel ist reproduziert unter:docexcel.net. Bei Verstößen wenden Sie sich bitte an admin@php.cn löschen