首页 电脑教程 电脑知识 VB窗口中绘制圆形,通过不同的xy输入来改变圆的位置,并通过键盘控制圆形运动

VB窗口中绘制圆形,通过不同的xy输入来改变圆的位置,并通过键盘控制圆形运动

Jan 23, 2024 pm 09:54 PM

VB窗口中绘制圆形,通过不同的xy输入来改变圆的位置,并通过键盘控制圆形运动

VB窗口中绘制圆形,通过不同的xy输入来改变圆的位置,并通过键盘控制圆形运动

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyRight Then

Picture1.Left = Picture1.Left + 100

End If

If KeyCode = vbKeyLeft Then

Picture1.Left = Picture1.Left - 100

End If

End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Picture1.Circle (X, Y), 300

End Sub

你要控制你的圆在一个容器里面移动吧

编写程序单击窗体时输入3个数x y z按从小到大的顺序依次显示在窗体

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

Dim max As Integer, min As Integer

a = Val(InputBox("输入第1个整数", "Input"))

b = Val(InputBox("输入第2个整数", "Input"))

c = Val(InputBox("输入第3个整数", "Input"))

max = a

If b >max Then max = b

If c >max Then max = c

min = a

If b If c

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

End Sub

设计一个window窗体应用程序要从文本框中随机输入一系列的正

弄个richtextbox,输入的整数用逗号“,”隔开,比如123,45,67,89这样,然后

排序按钮代码

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("输入数据不正确!");

return;

}

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从小到大排序为:rn");

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

}

Visual Basic程序设计 1程序运行后自动最大化窗口 2窗体标题xxxxxx

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Click()

n = CInt(InputBox("请输入一个奇数", "数据输入"))

Print

For i = 1 To n

Print Tab(51 - i);

For j = 1 To 2 * i - 1

Print Trim(Str(n Mod 10));

Next j

Print

Next i

For i = n - 1 To 1 Step -1

Print Tab(51 - i);

For j = 1 To 2 * i - 1

Print Trim(Str(n Mod 10));

Next j

Print

Next i

End Sub

Private Sub Form_Load()

Me.FontSize = 19

Label1.FontSize = 19

Me.WindowState = 2

Me.Caption = "xxxxxx"

Label1.Caption = "xxxx"

End Sub

以上是VB窗口中绘制圆形,通过不同的xy输入来改变圆的位置,并通过键盘控制圆形运动的详细内容。更多信息请关注PHP中文网其他相关文章!

本站声明
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系admin@php.cn

热门文章

仓库:如何复兴队友
3 周前 By 尊渡假赌尊渡假赌尊渡假赌
Hello Kitty Island冒险:如何获得巨型种子
3 周前 By 尊渡假赌尊渡假赌尊渡假赌
R.E.P.O.能量晶体解释及其做什么(黄色晶体)
1 周前 By 尊渡假赌尊渡假赌尊渡假赌

热门文章

仓库:如何复兴队友
3 周前 By 尊渡假赌尊渡假赌尊渡假赌
Hello Kitty Island冒险:如何获得巨型种子
3 周前 By 尊渡假赌尊渡假赌尊渡假赌
R.E.P.O.能量晶体解释及其做什么(黄色晶体)
1 周前 By 尊渡假赌尊渡假赌尊渡假赌

热门文章标签

记事本++7.3.1

记事本++7.3.1

好用且免费的代码编辑器

SublimeText3汉化版

SublimeText3汉化版

中文版,非常好用

禅工作室 13.0.1

禅工作室 13.0.1

功能强大的PHP集成开发环境

Dreamweaver CS6

Dreamweaver CS6

视觉化网页开发工具

SublimeText3 Mac版

SublimeText3 Mac版

神级代码编辑软件(SublimeText3)

如何求解Windows错误代码' Invalid_data_access_trap” (0x00000004) 如何求解Windows错误代码' Invalid_data_access_trap” (0x00000004) Mar 11, 2025 am 11:26 AM

如何求解Windows错误代码' Invalid_data_access_trap” (0x00000004)

ENE SYS维护:使系统顺利运行的技巧和技巧 ENE SYS维护:使系统顺利运行的技巧和技巧 Mar 07, 2025 pm 03:09 PM

ENE SYS维护:使系统顺利运行的技巧和技巧

在ENE SYS实施期间避免的5个常见错误 在ENE SYS实施期间避免的5个常见错误 Mar 07, 2025 pm 03:11 PM

在ENE SYS实施期间避免的5个常见错误

哪个应用程序使用ene.sys 哪个应用程序使用ene.sys Mar 12, 2025 pm 01:25 PM

哪个应用程序使用ene.sys

如何停止打开ASIO.SYS消息Windows 11 如何停止打开ASIO.SYS消息Windows 11 Mar 10, 2025 pm 07:54 PM

如何停止打开ASIO.SYS消息Windows 11

发现如何在Windows设置中修复驱动健康警告 发现如何在Windows设置中修复驱动健康警告 Mar 19, 2025 am 11:10 AM

发现如何在Windows设置中修复驱动健康警告

ENE SYS安全吗?最终安全指南 ENE SYS安全吗?最终安全指南 Mar 07, 2025 pm 03:05 PM

ENE SYS安全吗?最终安全指南

为什么驱动器aSio.sys不加载 为什么驱动器aSio.sys不加载 Mar 10, 2025 pm 07:58 PM

为什么驱动器aSio.sys不加载

See all articles