注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

闻新而动

双核动力

 
 
 

日志

 
 
 
 

Visual Basic 2010初探  

2010-10-27 14:39:50|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

与时俱进,咱也开始研究VB2010了,网上下载了个学习版,免费的用用确实不错。

看看其启动界面吧,确与之前不同的感觉。

图像 2

进入后的界面

图像 3

在里面学到了几种新的方法。

今天先记下来,下次可以用。

控件中有个叫LinkLabel的控件,它可以用来显示超链接,并可以打开超链接。

方法如下:

假设  linklabel1.text=”www.163.com”

那么 System.Diagnostics.Process.Start(LinkLabel1.Text)

就打开了163(网易)的主页。

在VB2010中文件的操作也是相当方便。有专用的语句可以实现。

但要使用必须先引入System.IO的命名空间,在程序的开头引用下面的语句:

Imports System.IO

然后可以执行Directory及File的操作。

创建目录语句:

Directory.CreateDirectory (“D:\电影”)

 

删除目录语句:

Directory.delete (“D:\电影”)  ‘有子目录及文件时不能删除

Directory.delete (“D:\电影”,Ture)    ‘连同子目录及文件一起删除

 

判断目录是否存在:

Directory.Exists(“D:\电影”)

实例:

If Directory.Exists("d:\电影") Then
    MessageBox.Show("电影目录存在")
Else
    MessageBox.Show("电影目录不存在!")
End If

 

列举目录中的子目录:

Directory.GetDirectories(“D:\”)

假如需要匹配加上条件

Directory.GetDirectories(“D:\”,“*F”)

实例:

Dim dirName() As String
Dim i As Integer

dirName = Directory.GetDirectories(”D:\”)
For Each dirName(i) In dirName
    messagebox.show(dirName(i))    ‘循环显示目录中的内容,也可以添加到Listbox中。
    ‘ListBox1.Items.Add(dirName(i)) ‘添加到Listbox中的方法

Next

 

当然也可以搜索子目录:

所有目录  SearchOption.AllDirectories

当前目录  SearchOption.TopDirectoriesOnly

Directory.GetDirectories(“D:\”,“*F”, SearchOption.AllDirectories)

 

返回根目录信息:

MessageBox.Show(Directory.GetDirectoryRoot("D:\电影"))

将返回 “D:\”

 

列举目录中的文件

Directory.GetFiles(“D:\”)

假如需要匹配加上条件

Directory.GetFiles(“D:\”,”*.jpg”)

实例

Dim filename() As String
Dim i As Integer
filename = Directory.GetFiles((“D:\”,”*.jpg”))
For Each filename(i) In filename
    ListBox1.Items.Add(filename(i))

Next

 

更多内容待续。。。

  评论这张
 
阅读(400)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017