大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
其实原理跟过程之间的传值原理一样,举个例子
成都创新互联公司服务项目包括临桂网站建设、临桂网站制作、临桂网页制作以及临桂网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,临桂网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到临桂省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
测试结果如下
能给个采纳吗
上面是VB的写法,刚注意到你需要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;
objRange.Borders(XlBordersIndex.xlEdgeBottom).LineStyle = XlLineStyle.xlContinuous
objRange.Borders(XlBordersIndex.xlEdgeBottom).ColorIndex = 1
objRange.Borders(XlBordersIndex.xlEdgeBottom).Weight = XlBorderWeight.xlThin
先创建一个模板excel文件,然后作为资源放在程序中,先释放这个文件,然后操作这个文件。
如果能在EXCEL里运行,那就能在VB中运行,首先你要确定“excel 11.0” 或9.0被引用,其次就是变量要定义好,是什么对象最好预定义,宏其实就是一个过程,在VB直接调用就可以了
宏操作是在打开word文档以后录制的,也就是说运行宏也要在打开word文档后进行,所以要把宏复制到vb环境中去运行的话,就得先在vb中操作打开word文档,参考下面代码:(演示前请先c;下建一个文件名为test.doc的word空文档,操作完成后,你会发现C盘里有个aa.doc文件,你打开就会发现宏操作写的一则通知)
Private Sub Command1_Click()
Dim MyWord As Word.Application
Dim MyWordBook As Word.Document
Set MyWord = New Word.Application
Set MyWordBook = MyWord.Documents.Add("c:\test.doc") '打开test.doc用户自定义的空白WORD文档
MyWordBook.Activate
'3.放置宏代码
With MyWordBook
'此处就可以插入宏代码了
' Macro1 Macro
' 宏在 2009-9-20 由 adsl 录制
'
Selection.Font.Size = 30
Selection.FormattedText.Bold = True
Selection.Font.Color = wdColorBlack
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.TypeText Text:=" 通知"
Selection.Font.Color = wdColorRed
Selection.TypeParagraph
Selection.Font.Size = 22
Selection.TypeText Text:=" 今天下午三一)"
Selection.MoveLeft Unit:=wdCharacter, Count:=2
Selection.TypeText Text:="("
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.TypeText Text:="班 全体同学四点钟到操场进行体育课考试。"
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:= _
" "
Selection.InsertDateTime DateTimeFormat:="yyyy-MM-dd", InsertAsField:= _
False, DateLanguage:=wdEnglishUS, CalendarType:=wdCalendarWestern, _
InsertAsFullWidth:=False
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.Font.Size = 22
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
Selection.Font.Size = 16
Selection.TypeText Text:=" "
Selection.Font.Color = wdColorRed
End With
'4.保存,关闭文档,退出
MyWord.Visible = False '设置WORD可见
MyWordBook.SaveAs FileName:="c:\aa.doc"
MyWordBook.Close
MyWord.Quit
Set MyWordBook = Nothing
Set MyWord = Nothing
MsgBox "操作完毕", vbOKOnly, "提醒"
unload me
End Sub