Maison  >  Article  >  tutoriels informatiques  >  Dessinez un cercle dans la fenêtre VB, modifiez la position du cercle via différentes entrées xy et contrôlez le mouvement circulaire via le clavier

Dessinez un cercle dans la fenêtre VB, modifiez la position du cercle via différentes entrées xy et contrôlez le mouvement circulaire via le clavier

PHPz
PHPzavant
2024-01-23 21:54:23610parcourir

Dessinez un cercle dans la fenêtre VB, modifiez la position du cercle via différentes entrées xy et contrôlez le mouvement circulaire via le clavier

VB dessine un cercle dans la fenêtre et saisit différents xy pour changer les coordonnées du cercle et faire en sorte que le cercle reçoive les clés

Sous-image privée1_KeyDown (KeyCode en entier, Shift en entier)

Si KeyCode = vbKeyRight Alors

Image1.Left = Image1.Left + 100

Fin si

Si KeyCode = vbKeyLeft Alors

Image1.Left = Image1.Left - 100

Fin si

Fin du sous-marin

Private Sub Picture1_MouseDown (Bouton en tant qu'entier, Shift en tant qu'entier, X en tant que simple, Y en tant que simple)

Image1.Cercle (X, Y), 300

Fin du sous-marin

Vous devez contrôler votre cercle pour vous déplacer dans un conteneur

Écrivez un programme pour saisir 3 nombres x y z lorsque vous cliquez sur le formulaire, et ils seront affichés sur le formulaire dans l'ordre du petit au grand

Sous-commande privée1_Click()

Dim a comme entier, b comme entier, c comme entier

Dim max en tant qu'entier, min en tant qu'entier

a = Val(InputBox("Saisissez le premier entier", "Input"))

b = Val(InputBox("Entrez le deuxième entier", "Input"))

c = Val(InputBox("Entrez le troisième entier", "Input"))

max = a

Si b >max Alors max = b

Si c >max Alors max = c

min = a

Si b Si c

Imprimer max, a + b + c - max - min, min

Fin du sous-marin

Concevez une application de formulaire de fenêtre pour saisir aléatoirement une série de caractères positifs à partir de la zone de texte

Créez une zone de texte enrichie et saisissez des entiers séparés par des virgules ",", tels que 123, 45, 67, 89, puis

Code du bouton de tri

bouton d'annulation privé1_Click (expéditeur de l'objet, EventArgs e)

{

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

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

{

MessageBox.Show("Les données saisies sont incorrectes!");

retour ;

}

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

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

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

Array.Sort(lint);

richTextBox1.AppendText("rn Trié du petit au grand : rn");

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

}

Programmation Visual Basic 1 Agrandir automatiquement la fenêtre après l'exécution du programme 2 Titre du formulaire xxxxxx

Sous-commande privée1_Click()

Fin

Fin du sous-marin

Sous-formulaire privé_Click()

n = CInt(InputBox("Veuillez saisir un nombre impair", "Saisie de données"))

Imprimer

Pour i = 1 à n

Onglet Imprimer (51 - i);

Pour j = 1 à 2 * i - 1

Imprimer Trim(Str(n Mod 10));

Suivant j

Imprimer

Suivant je

Pour i = n - 1 à 1 étape -1

Onglet Imprimer (51 - i);

Pour j = 1 à 2 * i - 1

Imprimer Trim(Str(n Mod 10));

Suivant j

Imprimer

Suivant je

Fin du sous-marin

Sous-Formulaire Privé_Load()

Me.FontSize = 19

Label1.FontSize = 19

Me.WindowState = 2

Moi.Caption = "xxxxxx"

Label1.Caption = "xxxx"

Fin du sous-marin

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!

Déclaration:
Cet article est reproduit dans:. en cas de violation, veuillez contacter admin@php.cn Supprimer