51CTO旗下网站
使用OpenFileDialog控件（1）
《Visual Basic 2010入门经典(第6版)》第8章显示对话框，本章将深入研究这些对话框，说明如何在Visual Basic 2010应用程序中使用它们，为用户构建具有专业外观的应用程序。本节为大家介绍使用OpenFileDialog控件。
作者：吴伟敏/李周芳 译来源：清华大学出版社| 19:13
8.2.4& 使用OpenFileDialog控件（1）
学习了OpenFileDialog控件后，下面就运用这些知识编写一个使用OpenFileDialog控件的程序。
试一试：&使用OpenFileDialog
Windows Forms Dialogs.zip
下面这个程序将使用OpenFileDialog控件来显示Open File对话框。我们将通过该对话框来定位并选择文本文件，然后使用My.Computer.FileSystem名称空间将文件的内容读入到窗体的文本框中。
(1) 创建一个新的Windows Forms Application项目，命名为Windows Forms Dialogs。
(2) 给窗体起一个新的名称，在Solution Explorer中，右击Form1.vb并从上下文菜单中选择Rename，然后输入新名称Dialogs.vb。设置窗体的属性值，如下所示：
将Size属性设置为460, 300
将StartPosition属性设置为CenterScreen
将Text属性设置为Dialogs
(3) 要将文件的内容读入文本框，就要先给窗体添加一个文本框。还要给窗体添加一个按钮，以便随意调用Open File对话框。给窗体添加这两个控件，并设置它们的属性，如下所示：
将文本框命名为txtFile，设置如下属性：Anchor = Top，Bottom，Left，Right；Location = 13，13；MultiLine = True；ScrollBars=Vertical；Size = 330, 232。
将Button控件命名为btnOpen，设置如下属性：Anchor = Top，Right；Location = 349，13；Text = Open。
(4) 在窗体中放置好控件，并设置好它们的属性之后，结果如图8-6所示。
提示：在这个示例中锚定控件的原因是，当调整或最大化窗体时，文本框也应相应地调整大小，以便与窗体大小相称，而按钮会停靠在右上角。现在可以运行这个项目，调整窗体的大小对此进行测试。
(5) 在工具箱中，向下滚动，找到Dialogs类别中的OpenFileDialog控件，然后将它拖放到窗体上。该控件会添加到IDE中工作区的底部。
这时，可以在工作区的控件上单击，然后在Properties窗格给这个控件设置各种属性。不过，在此使用该控件的默认名称和默认属性，以后再在代码中设置各种属性。
(6) 切换到窗体的代码编辑器。然后声明一个将包含文件名的字符串变量。在后面的代码中，可以将该变量设置为Open File对话框中的实际路径和文件名：Public&Class&Dialogs &'Declare&variable &Private&strFileName&As&String &
(7) 现在，在btnOpen按钮的Click事件中编写一些代码。在代码编辑器顶部的Class Name组合框中选择btnOpen，在Method Name组合框中选择Click事件。向Click事件处理程序添加如下突出显示的代码：Private&Sub&btnOpen_Click(ByVal&sender&As&Object,&_ &ByVal&e&As&System.EventArgs)&Handles&btnOpen.Click &'Set&the&Open&dialog&properties &With&OpenFileDialog1 &.Filter&=&"Text&Documents&(*.txt)|*.txt|All&Files&(*.*)|*.*"&.FilterIndex&=&1&.Title&=&"Demo&Open&File&Dialog"&End&With &'Show&the&Open&dialog&and&if&the&user&clicks&the&Open&button, &'load&the&file &If&OpenFileDialog1.ShowDialog&=&Windows.Forms.DialogResult.OK&Then &Try &'Save&the&file&path&and&name &strFileName&=&OpenFileDialog1.FileName &Catch&ex&As&Exception &MessageBox.Show(ex.Message,&My.Application.Info.Title,&_ &MessageBoxButtons.OK,&MessageBoxIcon.Error) &End&Try &End&If &End&Sub &
(8) 在此，需要使用Visual Studio 2010自带的一些预先创建好的代码段。在Try…Catch语句块之前的空白处右击并从上下文菜单中选择Insert Snippet。在出现的下拉列表中双击Fundamentals- Collections、Data Types、File System和Math选项，然后在新列表中双击File System-Processing Drives和Folders and Files选项，最后向下滚动列表，双击Read Text from a File选项。此时的代码应如下所示，注意代码中的文件名C:\Test.txt是高亮显示的，这说明需要对这段代码进行修改： Try &'Save&the&file&path&and&name &strFileName&=&OpenFileDialog1.FileName &Dim&fileContents&As&String &fileContents&=&My.Computer.FileSystem.ReadAllText("C:\Test.txt") &Catch&ex&As&Exception &
【责任编辑： TEL：（010）】&&&&&&
大家都在看猜你喜欢
热点热点头条头条热点
24H热文一周话题本月最赞
讲师：131441人学习过
讲师：17626人学习过
讲师：14995人学习过
精选博文论坛热帖下载排行
去年11月至今年8月间，香港学生组织大学师生监察无良企业行动（以下简称SACOM）通过调查发现，戴尔公司位于东莞的三家代工厂严重违反了《劳...
订阅51CTO邮刊通过openFileDialog怎样读取制定目录中的文件
全部答案（共1个回答）
.IO.Path.GetFileName
System.IO.Path.GetFileNameWithoutExtension（无扩展名）的方法
打开时的RichTextBoxStreamType和保存时的RichTextBoxStreamType不一致。
save的时候写成
richTextBox1.S...
使用StreamReader读取数据出来
Dim myStreamreader as streamreader
myStreamreader = File.op...
答: 与单链表相比,双向循环链表有哪些优点
答: 看在哪种类型的单位工作了
如果是国企事业单位有一定的作用
答: 服务器上安装2个网卡A和B
将A的Ip地址设定为
B的IP地址设置成 。
200台电脑的IP分成C、D两组设置
C组100台的IP设置为
网关设置成
根本就没有正式的国际驾照，如果到国外开车，正式的程序：
1、到公证处办理驾照的公证书，可以要求英文或者法文译本（看看到哪个国家而定）；
2、拿公证书到外交部的领事司指定的地点办理“领事认证”，可以登录外交部网站查询，北京有4、5家代办的，在外交部南街的京华豪园2楼或者中旅都可以。
3、认证后在公证书上面贴一个大标志；
4、有的国家还要到大使馆或者领事馆盖章一下。
偶前几天刚刚办过。
这个问题有点不知所问了。
公务员并不由单位性质决定，行政单位行政编的是公务员，但并不是说行政单位的就是公务员，事业单位里面参照管理的也是公务员。
所以你的问题只能回答为：按公务员管理的是公务员。
一般都是对着电视墙，这样的感觉有一些对私密的保护..
因为一般人在自己家里是比较随便的，有时来了客人也来不及收敛，但是如果正对的是电视墙，就给了主人一个准备的时间，就不至于显得很尴尬..
1、问：房地产开发企业拆迁补偿费是否也随土地价格一起交纳契税(以房易房部分的)?
答：是的，因为取得土地的成交价格包括：地出让金、土地补偿费、安置补助费、地上附着物和青苗补偿费、拆迁补偿费、市政建设配套费等承受者应支付的货币、实物、无形资产及其它经济利益，而契税中未对房地产企业有相关的减免政策
2、问：如果交,是就补给拆迁户交差价部分交税还是就全部回迁房价格交税?在什么环节,时间交纳?
答：所谓使用回迁房作为拆迁补偿的形式，就是开发商以原地或异地的房屋抵顶拆迁补偿费的一种方法，相当于延期或分期支付拆迁补偿款，而契税条例中规定是：“纳税义务发生时间在纳税人签订土地、房屋权属移交合同的当天，或者纳税人取得其他具有土地、房屋权属转移合同性质凭证的当天。纳税人应在自纳税义务起10日内，向土地、房屋所在地的税收征收机关办理纳税申报，并在税务征收机关核定的期限内缴纳税款。 ”所以需要在取得土地的时候就要缴纳契税，需要全额计税，不能以补偿款计税。
3、问：土地使用税在什么环节交?如何交?税法说确有困难的可以减或缓,各地有具体政策吗?
答：如果原土地属于耕地的，自取得土地后满一年开始征收，如果属于非耕地的，自取得土地之下月征收。
以前的土地使用税一般都予以减免，特殊情况例外，虽然国家税务总局《关于土地使用税若干具体问题的补充规定》，对于基建项目在建期间使用的土地可以免税，但很多地方的税务机关都认为这不适用房地产企业，因为现在国家是控制房地产过热，不属于鼓励范围。
4、问：回迁部分房屋的营业税在什么环节交?
答：在交付回迁房屋或被拆迁户全部支付差价的时候缴纳，如果不需要支付差价的，以成本价格作为计税依据，如果有差价的，不需要支付部分按成本价格计税，差价部分按实际计税。
准爸爸可以和胎宝宝进行有趣的游戏胎教训l练，这种通过动作刺激来达到胎教目的的方式是值得采用的。为了提高趣味性，准父母可以从简单的抚摸与拍打提升为有内容的游戏，比如藏猫猫游戏：让准爸爸轻轻拍打胎宝宝，然后对胎宝宝说： “爸爸要藏起来了，小宝宝找找看。”然后把脸贴在另一边的腹壁上，让宝宝寻找。
如果胎宝宝正好踢到爸爸的脸颊，一定要对宝宝给予表扬，如果宝宝没有找到，也要耐心轻抚宝宝，鼓励他继续。相信通过这样的游戏，胎宝宝肯定会对爸爸妈妈记忆深刻的。
这种游戏胎教训l练，不但增进了胎儿活动的积极性，而且有利于胎儿智力的发育。
由于我们的手哪儿都摸，病菌很可能会沾在手上，在房事时假如不洗手，病菌很可能通过手感染到生殖系统。
生殖器的清洗
在房事中，除了要重视女性生殖器的清洁卫生外，男性生殖器的清洗也不容忽略。由于男方的包皮部位轻易藏脏东西，所以房事之前，男方可以用一些比较暖和的香皂，将包皮翻起来彻底清洗。
有不适快就医
生殖系统疾病发病后，大多数人都会有不同的症状，比如一些阴道炎会造成外生殖器奇痒不适、白带多、豆渣样或泡沫状白带等症状，淋病会有脓性白带及尿频、尿急、尿痛等症状，尖锐湿疣会在生殖器上长赘生物，梅毒会有皮疹出现等，假如有这些不适，都应尽早到正规医院治疗，假如延迟治疗或治疗不当，将会促使病情发展，导致盆腔感染、输卵管堵塞、不育不孕及宫颈病变，严重者发展为宫颈癌。
孕早期(孕3个月内)和孕晚期(孕7个月后)别过性生活，易造成流产。
孕前半年和怀孕期间避免过多接触化学物质，尤其从事化工类(如鞋厂、纸厂)工作的孕妇更要注意。很多造成畸胎的原因尚不明确，但环境是个重要因素。
孕期抽烟酗酒，会影响胎儿发育，造成畸婴的发生。
孕期禁用染发剂、口红等化妆品，其中的有害化学成分会影响胎儿发育。
孕期用药要特别注意，有些药物会通过胎盘影响胎儿，因此，孕期生病一定要看医生，选择合适的药物治疗。
24周的胎儿现在身长大约25厘米多，体重500多克。宝宝这时候在妈妈的子宫中占据了相当大的空间，开始充满了整个空间。宝宝在此时身体的比例开始匀称。这时候的宝宝皮肤薄而且有很多的小皱纹，浑身覆盖了细小的绒毛。
24周时候的孕妇身体越来越沉重，而且您会发现自己脸上和腹部的妊娠斑更加明显并且增大。有时孕妇还会感觉眼睛发干，畏光，这些都是正常的现象，不必担心。
在这个阶段，胎儿可能会发生早产。在医生的惊心照顾下，早产儿还是可以存活的。但我们还是要尽量从饮食和运动上避免这种情况的发生，毕竟早产儿的先天条件不如足月儿。
妊娠的3-6个月是脑细胞迅速增殖的第一阶段，称为“脑迅速增长期”。主要是脑细胞体积增大和神经纤维增长，使脑的重量不断增加。第二阶段是妊娠7-9个月，其间支持细胞和神经系统细胞的增殖，及树突分支的增加，使已经建立起来的脑神经细胞，发展成神经细胞与细胞之间的突触接合，以传导脑神经细胞的兴奋冲动。对于人的智力来讲，脑神经细胞树突的增加远比细胞数目的增加要重要的多。
其实，盆腔炎感染中房事不洁是重要的致病因。由于一些性伴侣在房事之前兴致高涨，忽略了局部卫生，没有清洗便匆匆上阵。在房事之后，也没有及时排尿或清洗，导致一些致病菌感染给对方，对女方轻易上行感染之盆腔，引起盆腔炎。而实际上有很多生殖系统的疾病如龟头炎、前列腺炎、淋病、梅毒、尖锐湿疣等，都可以通过不洁房事传给对方，使对方发病，严重影响性生活质量。
这东西不便宜，起码也要几万起，温室种植果树不受季节约束，可以根据市场状况来确定种植植物品种，调节开花坐果时间。温室内常见的种植品种有：香蕉、柠檬、火龙果、菠萝蜜、番石榴、荔枝、杨桃、琵琶、芒果等。 温室果树种植技术要点： 温湿度，温室内温湿度要满足果树生长的基本条件，根据需要水果上市时间来来调节温湿度。 光照，要满足果蔬正常生长光照度，为保证水果的甜度，在坐果期间可以适当采用人工光源进行补光。
月嫂主要是照顾产妇和新生儿，包括给新生儿洗澡、喂奶、换尿布，给产妇擦身指导母乳喂养等等。我在金贝家找的月搜服务得很好，做事很细心，服务的技能也很专业
环保涂料yi般的价格是在50元每平方，包含人工费和材料费。固体含量指环保涂料中所含固体比例。由于涂料涂刷后靠其中的固体成分形成涂膜，因此固体含量多少与成膜厚度及涂膜质量密切相关。耐热度指环保涂料成膜后的防水薄膜在高温下不发生软化变形。不流淌的性能，即耐高温性能。
推荐胡家艳律师吧，服务态度不错，也很专业，委托的案子很快很满意处理好了，我的案子就是她帮我做的。
这东西不便宜，起码也要几万起，自身发展和示范带动相结合原则现代农业园区是中国农业产业结构调整的重要形式，肩负着带动周边农村发展和农民致富的使命。现代农业园区一方面要注重自身发展，不断提高园区经济效益，同时园区内产业结构的设置，新品种、新技术的引进，管理经营模式的设计都要具有示范推广价值，要把推动结构调整、促进农民增收放在shou要位置，不断增强带动农民致富的能力。 可持续发展原则 在进行农业园区规划时要合理规划，稳步推进。
正在加载...
Copyright &
Corporation, All Rights Reserved
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区
相关问答：123456789101112131415VB.NET中如何不使用system.windows.forms.openfiledialog控件即可实现类似效果？_百度知道
VB.NET中如何不使用system.windows.forms.openfiledialog控件即可实现类似效果？
VBA里application.GetOpenFileName的function可以直接获取用户选择的文件名（列表）。但VB.NET里OpenFileDialog控件貌似必须寄生在Form里。。。。。。
我有更好的答案
&DllImport(&comdlg32.dll&, SetLastError:=True, CharSet:=CharSet.Auto)& _
Private Shared Function GetOpenFileName(&[In], Out& ByVal ofn As OpenFileName) As Boolean
End Function调用API，需要自定义类型openfilename
采纳率：66%
来自团队：
可以实现首先创建一个Button类型控件数组：1、创建“Windows应用程序”类型的工程，添加名为ButtonArray的类，并使该类继承 System.Collection.CollectionBase 类。System.Collections.CollectionBase类是.NET框架类库中为集合操作提供抽象的基类，通过对它的继承可以为我们的ButtonArray类具备集合增加、删除、索引的功能。2、为ButtonArray类添加ParentForm属性，即控件组所在窗体，创建初始化函数（构造函数）；3、为控件数组类增加AddItem方法，该方法在控件数组类中添加成员；4、为控件数组类增加RemoveItem方法，该方法在控件数组中删除一个成员。示例代码：Public Class ButtonArray
Inherits System.Collections.CollectionBase
Private ReadOnly ParentForm As System.Windows.Forms.FormPublic Sub New(ByVal pForm As System.Windows.Forms.Form)
ParentForm = pForm
End SubDefault Public ReadOnly Property Item(ByVal index As Integer) As System.Windows.Forms.Button
Return Me.List.Item(index)
' ButtonArray的List 属性从CollectionBase 继承
End PropertyPublic Sub AddItem()
Dim btnItem As New System.Windows.Forms.Button
Me.List.Add(btnItem)
ParentForm.Controls.Add(btnItem)
'向窗体中增加控件
btnItem.Tag = Me.Count
'Count属性从CollectionBase 继承
btnItem.Top = Me.Count * 30
btnItem.Left = 200
btnItem.Text = &Button& & Me.Count.ToString
AddHandler btnItem.Click, AddressOf btnItem_Click '绑定事件处理程序
End SubPublic Sub AddItem(ByVal btnItem As System.Windows.Forms.Button)
Me.List.Add(btnItem)
AddHandler btnItem.Click, AddressOf btnItem_Click '绑定事件处理程序
Public Sub RemoveItem()
If Me.Count & 0 Then
ParentForm.Controls.Remove(Me(Me.Count - 1))
Me.List.RemoveAt(Me.Count - 1)
End SubPublic Sub btnItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)
'在这里编写控件数组对点击事件的响应
'例如：
MsgBox(&点击：& & sender.GetType().ToString & CType(CType(sender, Button).Tag, String))
End SubEnd Class使用创建的控件数组在Form1中放置两个按钮Button1、Button2，分别测试控件数组的增添、删除。双击Form添加代码：Public Class Form1
Inherits System.Windows.Forms.Form……Windows窗体设计器生成的代码……
Dim Buttons As New ButtonArray(Me)Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Buttons.AddItem()
End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Buttons.RemoveItem()
End SubEnd Class其他的控件数组也可以用类似的方式来实现例如 Label控件数组LabelArray.vb代码如下：Public Class LabelArray
Inherits System.Collections.CollectionBase
Private ReadOnly ParentForm As System.Windows.Forms.Form
Public Sub New(ByVal pForm As System.Windows.Forms.Form)
ParentForm = pForm
End SubDefault Public ReadOnly Property Item(ByVal index As Integer) As System.Windows.Forms.Label
Return Me.List.Item(index)
' ButtonArray的List 属性从CollectionBase 继承
End PropertyPublic Sub AddItem(ByVal btnItem As System.Windows.Forms.Label)
Me.List.Add(btnItem)
AddHandler btnItem.Click, AddressOf btnItem_Click '绑定事件处理程序
End SubPublic Sub btnItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)
'在这里编写控件数组对点击事件的响应
'例如：
MsgBox(&点击：& & sender.GetType().ToString & CType(CType(sender, Label).Tag, String))
End SubEnd Class使用创建的Label控件在Form1中放置两个按钮Label1、Label2双击Form添加代码：Public Class Form1
Inherits System.Windows.Forms.Form#Region & Windows 窗体设计器生成的代码 &
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
'用来绑定label
BindArray()
End Sub……Windows窗体设计器生成的其他代码……#End Region
Dim Labels As New LabelArray(Me)
Public Sub BindArray()
Me.Label1.Tag = &1111&
Me.Label2.Tag = &222&
Labels.AddItem(Me.Label1)
Labels.AddItem(Me.Label2)
End SubEnd Class然后可以测试点击两个label可以显示相应的Tag的信息。
为您推荐：
其他类似问题
openfiledialog的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB.net项目属性中的设置。怎么保存由OpenFileDialog1.FileName所得到的文件路径。_百度知道
VB.net项目属性中的设置。怎么保存由OpenFileDialog1.FileName所得到的文件路径。
我有更好的答案
在控件的属性窗口设置控件的绑定键就可以在ApplicationSetting下的
PropertyBinding ，
这个属性可以打开一个表格对话框，凡是能绑定的控件属性都列出来了，你可以给Filename 选择或新建一个关键字。可以用你上面的窗口查看新建的条目。
采纳率：77%
来自团队：
定义一个变量来保存不是行了
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。豆丁微信公众号
君，已阅读到文档的结尾了呢~~
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
vb.net openfiledialog属性和方法
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='http://www.docin.com/DocinViewer--144.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口