vbnet自动整理代码

『壹』 vb中怎样设置使代码窗口中的代码自动对齐

问题1：——把抄三个窗口的startupposition属性都设为2。或在form_load中把三个窗口的left设为相等的值，top也设为相等的值。
问题2：——在“格式”里有“对齐”，但只能在设计阶段，并且行距两个以上的控件时才能使用。

『贰』 用VB.NET程序编写代码

Delphi代码如下：

procereTForm1.Button1Click(Sender:TObject);

var

购物总价:Integer;

折扣:Extended;

begin

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

if购物总价<250then

begin

折扣:=0;

end

elseif购物总价<500then

begin

折扣:=0.05;

end

elseif购物总价<1000then

begin

折扣:=0.075;

end

elseif购物总价<2000then

begin

折扣:=0.1;

end

{

此段的折扣是多少？

elseif购物总价<3000then

begin

折扣:=0.05;

end

}

elseif购物总价>=3000then

begin

折扣:=0.15;

end;

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

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

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

end;

『叁』 vb.net 如何写代码让SQL SERVER数据库自动计算

只要是提到“System.Data.OracleClient的”
连接字符串的例子：
用户ID =用户;数据源=服务器/数据库名;密码=通过; - 其他与sqlserver的是相似的，但这种改变的OracleConnection
的SqlDataAdapter的SqlConnection想改变OracleDataAdapter
的SqlCommand想改变的OracleCommand

『肆』 跪求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()