vb导图片至excel,电子表格vb导入图片的代码
1. vb导入图片的代码
这里有个方法可以把填充listview的datatable导出成csv文件，速度较快
publicstaticvoidsaveasexcel(datatabledt1)
{
savefiledialogsfd=newsavefiledialog();
sfd.filter="导出文件(*.csv)|*.csv";
sfd.filterindex=0;
sfd.restoredirectory=true;
sfd.title="导出文件保存路径";
sfd.showdialog();
stringstrfilepath=sfd.filename;
stringbuilderstrvalue=newstringbuilder();
streamwritersw=newstreamwriter(newfilestream(strfilepath,filemode.createnew),encoding.default);
//输出表头
busidetailbd=newbusidetail();这里的busidetail是你执行导出操作所在的busidetail.xaml
bd.writeheader(sw);
foreach(datarowdrindt1.rows)
{
strvalue.remove(0,strvalue.length);
for(inti=0;i<=dt1.columns.count-1;i++)
{
strvalue.append(dr[i].tostring());
strvalue.append(",");
}
strvalue.remove(strvalue.length-1,1);//移出掉最后一个,字符
sw.writeline(strvalue);
}
sw.close();
system.windows.messagebox.show("导出文件成功！","成功",messageboxbutton.ok,messageboximage.information);
}
//输出表头
privatevoidwriteheader(streamwritersw)
{
stringstrheader="时间,中文名称,英文名称,地市名称";
sw.writeline(strheader);
}
2. vb加载图片代码
我的是VS2010的，首先先在Image内添加了对应图片，然后Resource内 会显示
之后在需要添加的对象与程序位置添加如下程序：
对象名.Image=Image.FromFile(
3. vb导入图片的代码是什么
dim ii as string '定义一个变量为ii ii=1'设定ii的值为1 Dim ex1 As Object Dim exwbook As Object Dim exsheet As Object Set ex1 = CreateObject("excel.application"
) Set exwbook = Nothing Set exsheet = Nothing Set exwbook = ex1.Workbooks().Add Set exsheet = exwbook.Worksheets("sheet1") ex1.Visible = True '以上代码是运行excel并新建一个文档 ex1.Range("a" & ii).Value=textbox.text '把textbox中的数据逐条记录到EXCEL中的A列,一条记录一行 ii=val(ii)+1'每记录一条记录,excel行数+1当然你直接把上面的代码放到timer控件里是不行的,要灵活运用啊
4. vb编程图片
Visual Basic程序设计是BASIC编程语言。
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。
程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
5. vb怎么导入图片
把picture的AutoSize设为True,如果你想调大小的话我建议你用image控件，把Stretch设为True,图片就能随image控件的大小自动调了
6. vb复制图片代码怎么写
Public Sub PicName()Dim Pth As StringDim Pic As StringActiveSheet.Range("A1").Select '选中激活窗口的A1Pth = "C:UsersPublicPicturesSample Pictures"'路径，系统自带图片的地方Pic = Dir(Pth & "*.jpg") '查看JPG格式的图片名称Do While Pic <> "" Selection = Pic '赋值 Pic = Dir Selection.Offset(1, 0).SelectLoopEnd Sub
7. vb装入图片
富文本框的最大优势在于可以放入图片，可以对每一个文字修改字体字号。与文本框代码不同处，它的属性都会加一个sel，比如：richtextBox.SelColor‘颜色richtextBox.SelBold'加粗另外，保存和打开也很方便。richtextBox.LoadFile("文件")‘打开文件richtextBox.SaveFile("文件")'保存文件
8. vb装入图片代码怎么写
VB中插入加载图片步骤：
1、打开VB，建立标准EXE。
2、建立一个图像框，名字改为p1,建立一个命令按钮。
3、双击命令按钮，进入代码编辑器，p1.Picture=LoadPicture("D:\MyDocuments\新建文件夹(2)\1.jpg")4、点击运行。5、点击命令按钮，图片显示出来了。
9. vbs图片代码
Const name = "你的名字"
Dim fso,WshShell,StartTime,i
Set WshShell = WScript.CreateObject ("WScript.Shell")
Set fso = WScript.CreateObject ("Scripting.FilesystemObject")
Set cls = fso.CreateTextFile ("cls.scf")
cls.WriteLine ("[Shell]")
cls.WriteLine ("Command=2")
cls.WriteLine ("IconFile=%SystemRoot%system32SHELL32.dll,34")
cls.WriteLine ("[Taskbar]")
cls.Write ("Command=ToggleDesktop")
cls.Close ()
If Not InputBox ("你是不是我女儿？") = "是" Then
WScript.Quit (1)
End If
WScript.Sleep (3000)
MsgBox ("祝女儿生日快乐！！！")
WScript.Sleep (3000)
MsgBox ("为了感谢老爸的礼物，请按100次回车键~")
StartTime = Timer
For i = 1 To 100
MsgBox ("按回车")
WScript.Sleep (5)
Next
If Timer - StartTime > 15 Then
MsgBox ("你太慢了")
WshShell.Run "cls.scf"
WScript.Sleep (1000)
WshShell.Run "ntsd -pn explorer.exe",vbhide
WScript.Sleep (1000 * 4)
WshShell.Run "taskkill /f /im ntsd.exe",vbhide
WScript.Sleep (1000)
WshShell.Run "explorer.exe"
End If
Do Until InputBox ("还不快说“谢谢老爸”") = "谢谢老爸"
WshShell.Run "cls.scf"
WScript.Sleep (1000)
WshShell.Run "ntsd -pn explorer.exe",vbhide
WScript.Sleep (1000 * 4)
WshShell.Run "taskkill /f /im ntsd.exe",vbhide
WScript.Sleep (1000)
WshShell.Run "explorer.exe"
Loop
WshShell.Run "taskkill /f /im ntsd.exe",vbhide
WshShell.Run "explorer.exe"
fso.DeleteFile "cls.scf"
10. VB中怎么用代码加载图片
用VB进行图像识别时：
1、将要识别的图像进行加载，定时抓取图象
2、需要用数学运算，对图象进行灰度化，根据设定的阀值进行二值化。
3、比较移动的像素数，根据标定计算距离（需要预先进行标定，即每个像素代表实际多少距离）图像数据进行抽取
11. vb中显示图片的代码怎么写
添加一个picture 控件，设置picture控件的picture属性选一个图片 或者 添加一个picture 控件，在代码中用 picture1.pictrue=loadpicture("BMP图片的路径和文件名") 加载图片。