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
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
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
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
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!