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

PHPz
发布: 2024-01-23 21:54:23
转载
622 人浏览过

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中文网其他相关文章!

来源:docexcel.net
本站声明
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系admin@php.cn
热门教程
更多>
最新下载
更多>
网站特效
网站源码
网站素材
前端模板
关于我们 免责声明 Sitemap
PHP中文网:公益在线PHP培训,帮助PHP学习者快速成长!