锐客网

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

vb.net入口函数 vbnet ini( 四 )

IT技术文件


Declare Auto Function ExtractIcon Lib "Shell32.dll" ( ByVal src As System.IntPtr , ByVal strFileName As string , ByVal uiIconIndex As UInt32 ) As System.IntPtr
下面就结合一个示例的编写过程来掌握的这二个Windows API函数的具体使用方法，这个示例的作用就是读取指定文件中的图标数目 ， 并显示文件中的图标 。
三．本文中程序的编写、调试和运行环境：
（1）.视窗2000高级服务器版 。
（2）.Visual Studio .Net 2003企业结构设计版 ， .Net FrameWork SDK版本号4322 。
四．Visual Basic .Net读取文件中的图标的实现步骤：
下面介绍的示例 ， 其功能读取指定文件中包含的图标数目，并把这些图标全部显示出来 。下面是这个示例的实现步骤：
1. 启动Visual Studio .Net 。
2. 选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框 。
3. 将【项目类型】设置为【Visual Basic项目】 。
4. 将【模板】设置为【Windows应用程序】 。
5. 在【名称】文本框中输入【Visual Basic .Net查看文件中的图标】 。
6. 在【位置】的文本框中输入【E:\VS.NET项目】，然后单击【确定】按钮，这样在【E:\VS.NET项目】目录中就产生了名称为【Visual Basic .Net查看文件中的图标】文件夹，里面存放着【Visual Basic .Net查看文件中的图标】项目的所有文件 。具体如图02所示：
图02：【Visual Basic .Net查看文件中的图标】项目的【新建项目】对话框
7. 选择菜单【项目】|【添加新项】 ， 在弹出的对话框中的【模板】设置为【模块】，【名称】文本框设置为【Module1.vb】后 。单击【打开】按钮，则在项目中增加了一个模板文件，名称为【Module1.vb】 。
8. 把Visual Stuido .Net的当前窗口切换到Module1.vb的代码编辑窗口，并在其Module1的代码区中添加下列代码，下列代码是用二种方式声明二个Windows API函数：
【vb.net入口函数 vbnet ini】＜ System.Runtime.InteropServices.DllImport ( "Shell32.dll" ) ＞ _
Public Function _
ExtractIcon ( ByVal src As System.IntPtr , ByVal strFileName As String , ByVal uiIconIndex As UInt32 ) As System.IntPtr
End Function
'声明ExtractIcon函数
Declare Auto Function Icon_Num Lib "Shell32.dll" Alias "ExtractIcon" ( ByVal src As System.IntPtr , ByVal strFileName As String , ByVal uiIconIndex As Integer ) As Integer
9. 把Visual Studio .Net的当前窗口切换到Form1窗体的设计查看，并从【工具箱】中的【Windows窗体】选项卡中拖入下列组件到Form1窗体：
四个Label组件，其中二个用以显示提示信息，另外二个分别用以显示选择的文件名称和这个文件中包含的图标数目 。
一个ListView组件，利用其显示大图标的属性用以显示选定文件中的图标 。
一个OpenFileDialog组件，用以选择要查看图标的文件名称 。
一个ImageList组件，它起的是桥梁的作用，首先把从文件中导出的图标存放到这里，然后再提供ListView组件显示出来 。
一个Button组件 。
10. 按照表01中数值来设定设定组件的主要属性：
组件类型组件名称属性设置结果
FormForm1TextVB.NET查看文件中的图标
Form1MaximizeBoxFalse
Form1MinimizeBoxFalse
Form1FormBorderStyleFixedSingle
ListViewListView1ImageList1LargeImageList
ListView1MultiSelectFalse
ListView1SizeSize ( 380 , 208 )
ButtonButton1Text选择文件
Button1FlatStyleFlat
ImageListImageList1SizeSize ( 32 , 32 )
ImageList1TransparentColorColor.Transparent
LabelLabel1Text文件名称：
Label2Text图标数目：
Label3Text""
Label4 Text"0"
表01：【Visual Basic .Net查看文件中的图标】项目窗体中各组件的主要属性设定数值表

推荐阅读


上一篇：工厂金蝶erp系统学习教程，金蝶erp系统流程图

下一篇：sap再建工程如何导入，sap在建工程结算分配规则2