Lukis bulatan dalam tetingkap VB, tukar kedudukan bulatan melalui input xy yang berbeza, dan kawal pergerakan bulat melalui papan kekunci

VB melukis bulatan dalam tetingkap dan memasukkan xy yang berbeza untuk menukar koordinat bulatan dan menjadikan bulatan menerima kekunci

Sub Gambar Persendirian1_KeyDown(KeyCode Sebagai Integer, Shift Sebagai Integer)

Jika KeyCode = vbKeyRight Kemudian

Gambar1.Kiri = Gambar1.Kiri + 100

Tamat Jika

Jika KeyCode = vbKeyLeft Then

Gambar1.Kiri = Gambar1.Kiri - 100

Tamat Jika

Tamat Sub

Sub Gambar Peribadi1_MouseDown(Butang Sebagai Integer, Shift Sebagai Integer, X Sebagai Tunggal, Y Sebagai Tunggal)

Gambar1.Bulatan (X, Y), 300

Tamat Sub

Anda perlu mengawal bulatan anda untuk bergerak dalam bekas

Tulis atur cara untuk memasukkan 3 nombor x y z apabila anda mengklik pada borang, dan ia akan dipaparkan pada borang mengikut urutan dari kecil ke besar

Sub Perintah Peribadi1_Klik()

Malapkan a Sebagai Integer, b Sebagai Integer, c Sebagai Integer

Malapkan maks Sebagai Integer, min Sebagai Integer

a = Val(InputBox("Masukkan integer pertama", "Input"))

b = Val(InputBox("Masukkan integer kedua", "Input"))

c = Val(InputBox("Masukkan integer ketiga", "Input"))

maks = a

Jika b >maks Maka maks = b

Jika c >maks Maka maks = c

min = a

Jika b Jika c

Cetak maks, a + b + c - maks - min, min

Tamat Sub

Reka bentuk aplikasi borang tetingkap untuk memasukkan satu siri aksara positif secara rawak daripada kotak teks

Buat kotak teks kaya dan masukkan integer yang dipisahkan dengan koma ",", seperti 123, 45, 67, 89 dan kemudian

Isih kod butang

butang kosong peribadi1_Klik(penghantar objek, EventArgs e)

{

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

jika (!string.IsNullOrEmpty(str.Trim((＂1234567890,＂).ToCharArray())))

{

MessageBox.Show("Data input tidak betul!"

kembali;

}

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

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

untuk (int i = 0; i

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

Array.Isih(lint);

richTextBox1.AppendText("rn Diisih dari kecil ke besar: rn");

foreach (int i dalam lint) richTextBox1.AppendText(i + ＂,＂);

}

Pengaturcaraan Asas Visual 1 Memaksimumkan tetingkap secara automatik selepas program dijalankan 2 Tajuk Borang xxxxxx

Sub Perintah Peribadi1_Klik()

Tamat

Tamat Sub

Sub Borang_Klik() Peribadi

n = CInt(InputBox("Sila masukkan nombor ganjil", "Input data"))

Cetak

Untuk i = 1 Hingga n

Tab Cetak(51 - i);

Untuk j = 1 Hingga 2 * i - 1

Cetak Trim(Str(n Mod 10));

Seterusnya j

Cetak

Seterusnya i

Untuk i = n - 1 Hingga 1 Langkah -1

Tab Cetak(51 - i);

Untuk j = 1 Hingga 2 * i - 1

Cetak Trim(Str(n Mod 10));

Seterusnya j

Cetak

Seterusnya i

Tamat Sub

Sub Borang Persendirian_Muat()

Saya.FontSize = 19

Label1.Saiz Fon = 19

Me.WindowState = 2

Saya.Kapsyen = ＂xxxxxx＂

Label1.Kapsyen = ＂xxxx＂

Tamat Sub

Atas ialah kandungan terperinci Lukis bulatan dalam tetingkap VB, tukar kedudukan bulatan melalui input xy yang berbeza, dan kawal pergerakan bulat melalui papan kekunci. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!