跪求vb.net代码

新建窗口，添加picture控件

站在用户的角度思考问题，与客户深入沟通，找到荥阳网站设计与荥阳网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站制作、做网站、企业官网、英文网站、手机端网站、网站推广、国际域名空间、网络空间、企业邮箱。业务覆盖荥阳地区。

利用line()方法画线

line(开始x坐标,开始y坐标)-(结束x坐标,结束y坐标),线的颜色，画线的方式(默认为线，B为矩形无填充，BF为填充的矩形)

For i = 1 To 16

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(255, 0, 0)

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(255, 0, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(0, 255, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(0, 255, 0)

Next i

如果要在窗口上画也可以调用窗口的line方法即form.line()

用VB.NET程序编写代码

Delphi代码如下：

procedure TForm1.Button1Click(Sender: TObject);

var

购物总价:Integer;

折扣:Extended;

begin

购物总价:=StrToInt(Edit1.Text);

if 购物总价250 then

begin

折扣:=0;

end

else if 购物总价500 then

begin

折扣:=0.05;

end

else if 购物总价1000 then

begin

折扣:=0.075;

end

else if 购物总价2000 then

begin

折扣:=0.1;

end

{

此段的折扣是多少？

else if 购物总价3000 then

begin

折扣:=0.05;

end

}

else if 购物总价=3000 then

begin

折扣:=0.15;

end;

ShowMessage('您享受的折扣是：'+FloatToStr(折扣)

+' 原价：'+IntToStr(购物总价)

+' 折后总价：'+FloatToStr(购物总价*(1-折扣)));

end;

请教一段VB.net代码？请高手指点下

vb.net采用的GDI+实现图形绘制，不再使用VB6的Print、Line等语句

'改成这样试试

Sub Add(ByVal a As Integer, ByVal b As Integer)

a=a+1

b+b+1

End Sub

网站栏目：vb.net的代码,vb源代码网站
分享网址：http://ybzwz.com/article/hdghhd.html