锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net保存对话框 vb弹出保存对话框

IT技术科学

vb.net 保存excel弹出一个重命名对话框，另存为到其他盘添加一个SaveFileDialog，在保存excle选择时候添加
SaveFileDialog1.show（）
用法跟OpenFileDialog相同
VB.NET 单击按钮后，弹出保存文件对话框，把ListBox的内容保存到.txt中 ， 每个item占一行SaveFileDialog1.Filter = "文本文档|*.txt"
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
FileOpen(1, SaveFileDialog1.FileName, IO.FileMode.Open, OpenAccess.Write)
For i As Integer = 0 To ListBox1.Items.Count - 1
Print(1, ListBox1.Items(i).ToString)
Next
FileClose(1)
End If
vb.net如何让父窗体工具栏的保存对话框在所有子窗体通用'代码中Button控件自行在窗体中添加并改名
***********************************父窗体代码：
Public Class Form1
Public Sub From1_保存Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles From1_保存Button.Click
Select Case sender.name
Case "From1_保存Button"
MsgBox("提交的窗体是From1")
Case "Form2_提交Button"
MsgBox("提交的窗体是From2")
End Select
Form2.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_显示子窗体.Click
Form2.ShowDialog()
End Sub
End Class
***********************************子窗体代码：
Public Class Form2
Private Sub Form2_提交Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form2_提交Button.Click
Form1.From1_保存Button_Click(Form2_提交Button, New System.EventArgs)
End Sub
End Class
***********************************
方法满多的，起码三四种，比如用一个全局变量保存当前提交窗体名 ， 执行操作的代码读取这个全局变量就行 。最方便的应该是做过程
Public Sub DateBaseAdd(ByVal From As Form)
，然后父窗体跟子窗体都能调用这个全局过程，同时传入窗体名称
vb.net EXCEL 问题使用了VB.NET开发一个访问excel读取数据并修改的小程序，有一些经验性的东西和大家共享，如果有误还请大家指正 。
大致分为这样几个部分来说明：
1、准备部分：
准备部分我们需要添加excel library的引用到工程中：我使用office2003 ， 它的库文件为 Microsoft excel 11.0 object library 。如果使用excel2000，那么它使用的是Microsoft excel 9.0 object library 。
有需要时，我们添加Imports 命名空间 。
我在这个程序中只是访问了excel的数据，不需要命名空间了哈 。
2、声明一些对象：
这些对象并不是都需要，前面三个应该有，后面的，vb.net保存对话框你需要什么对象就声明：
Dim excelapp As Excel.Application‘声明一个application对象
Dim excelworkbook As Excel.Workbook ‘声明一个工作簿对象
Dim excelsheet As Excel.Worksheet‘声明一个工作表对象
等等…如：
Dim excelrange As Excel.Range‘声明一个范围对象
3、访问一个excel文件：
excelapp = New Excel.Application
excelworkbook = excelapp.Workbooks.Open(strfile) ‘访问到工作簿：这个strfile 是文件的路径，我从打开文件对话框中得到的 。
excelsheet = excelworkbook.Sheets.Item(1)‘访问到工作表：item使用索引值来得到sheet对象的引用
excelsheet.activate
我们可以得到此文件中的值：
定义一个string变量：
Dim strcellvalue as string
Strcellvalue=https://www.04ip.com/post/excelsheet.cells(1,1).value ‘得到A1单元格的内容 。
修改的时候反过来就可以了：
excelsheet.cells(1,1).value= https://www.04ip.com/post/Strcellvalue
4、善后：
在程序的每一个退出口操作excel对象，保存或者不保存：

推荐阅读


上一篇：z490怎么设置启动硬盘，z490ebios设置

下一篇：休闲游戏女生餐厅推荐，适合女生休闲游戏