正文
vb.net的标准模块 vb 标准模块
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB中标准模块的使用方法？
凡需要在整个工程范围内使用的变量、过程、类型和API函数声明都可放在标准模块中使用。
1.标准模块，只包含过程、类型以及数据的声明和定义的模块。在标准模块中，模块级别声明和定义都被默认为 Public。在 Visual Basic 的早期版本中将标准模块看作代码模块。是将那些与特定窗体或控件无关的代码（文件扩展名为 .BAS ）中。
标准模块中可以包含变量、常数、类型、外部过程和全局过程的全局（在整个应用程序范围内有效的）声明或模块级声明。
2.一个过程可能用来响应几个不同对象中的事件，应该将这个过程放在标准模块中，而不应在每一个对象的事件过程中重复相同的代码。
3.在数据存储方式上，标准模块的数据不可能多于一份。这意味着若程序中某个部分改动了标准模块的公共变量，随后程序的其它部分读取该变量会得到该值。
4.标准模块中的数据在程序作用域内存在，也就是说，它存在于程序的存活期中。
5.当变量在标准模块中声明为 Public 时，则它在工程中任何地方都是可见的。
标准模块代码实例，其中声明了API函数和对象类型及将位图转换为JPG格式的过程，供整个应用程序的存活期中使用图形格式转换用。
Option Explicit
Public Declare Function GdiplusStartup Lib "GDIPlus" (token As Long, inputbuf As GdiplusStartupInput, ByVal outputbuf As Long) As Long
Public Declare Function GdiplusShutdown Lib "GDIPlus" (ByVal token As Long) As Long
Public Declare Function GdipCreateBitmapFromHBITMAP Lib "GDIPlus" (ByVal hbm As Long, ByVal hpal As Long, Bitmap As Long) As Long
Public Declare Function GdipDisposeImage Lib "GDIPlus" (ByVal Image As Long) As Long
Public Declare Function GdipSaveImageToFile Lib "GDIPlus" (ByVal Image As Long, ByVal fileName As Long, clsidEncoder As GUID, encoderParams As Any) As Long
Public Declare Function CLSIDFromString Lib "ole32" (ByVal str As Long, id As GUID) As Long
Public Declare Function GdipCreateBitmapFromFile Lib "GDIPlus" (ByVal fileName As Long, Bitmap As Long) As Long
Public Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Public Type GdiplusStartupInput
GdiplusVersion As Long
DebugEventCallback As Long
SuppressBackgroundThread As Long
SuppressExternalCodecs As Long
End Type
Public Type EncoderParameter
GUID As GUID
NumberOfValues As Long
type As Long
Value As Long
End Type
Public Type EncoderParameters
Count As Long
Parameter As EncoderParameter
End Type
Public Function PictureBoxSaveJPG(ByVal pict As StdPicture, ByVal fileName As String, Optional ByVal quality As Byte = 80) As Boolean
Dim tSI As GdiplusStartupInput
Dim lRes As Long
Dim lGDIP As Long
Dim lBitmap As Long
'初始化 GDI+
tSI.GdiplusVersion = 1
lRes = GdiplusStartup(lGDIP, tSI, 0)
If lRes = 0 Then
'从句柄创建 GDI+ 图像
lRes = GdipCreateBitmapFromHBITMAP(pict.Handle, 0, lBitmap)
If lRes = 0 Then
Dim tJpgEncoder As GUID
Dim tParams As EncoderParameters
'初始化解码器的GUID标识
CLSIDFromString StrPtr("{557CF401-1A04-11D3-9A73-0000F81EF32E}"), tJpgEncoder
'设置解码器参数
tParams.Count = 1
With tParams.Parameter ' Quality
'得到Quality参数的GUID标识
CLSIDFromString StrPtr("{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"), .GUID
.NumberOfValues = 1
.type = 4
.Value = VarPtr(quality)
End With
'保存图像
lRes = GdipSaveImageToFile(lBitmap, StrPtr(fileName), tJpgEncoder, tParams)
'销毁GDI+图像
GdipDisposeImage lBitmap
End If
'销毁 GDI+
GdiplusShutdown lGDIP
End If
If lRes Then
PictureBoxSaveJPG = False
Else
PictureBoxSaveJPG = True
End If
End Function
调用标准模块中转换图片格式PictureBoxSaveJPG过程的某窗体按钮事件代码实例代码：
Private Sub Command3_Click()
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "JPEG Files" "(*.jpg)|*.jpg"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowSave
' 显示选定文件的名字
'MsgBox CommonDialog1.fileName
Set Picture2.Picture = Picture1.Image '转移Picture1所绘图为Picture2.Picture赋值
Dim ret As Boolean
ret = PictureBoxSaveJPG(Picture2, CommonDialog1.fileName) '保存压缩后的图片
If ret = False Then
MsgBox "保存失败"
End If
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
相关问答
Q1: vb中的标准模块是指什么？
标准模块,是独立于所有窗体模块之外的一个模块.通常用来定义应用程序中各个窗体都要用到的全局变量,过程等.它是纯代码的一个模块.大概就这样.
Q2: 懂计算机中vb的大侠进来讲讲吧！vb中的标准模块和通用模块分别在哪？求解！？？？
通用模块？
VB6：工程资源管理器的右键菜单中的“添加”里面有标准模块
VB.NET：类视图空白区域右键菜单中“添加”类里面的“模块”
Q3: vb中，什么是标准模块，他和窗体模块有什么区
模块层有标准模快和窗体模块区分.
Visual Basic 的代码存储在模块中。模块有三种类型：窗体、标准和类。简单的应用程序可以只有一个窗体，
应用程序的所有代码都驻留在窗体模块中。而当应用程序庞大复杂时，就要另加窗体。最终可能会发现在几个窗体中都有要执行的公共代码。因为不希望在两个窗体中重复代码，所以要创建一个独立模块，它包含实现公共代码的过程。独立模块应为标准模块。此后可以建立一个包含共享过程的模块库。
每个标准模块、类模块和窗体模块都可包含： 声明。可将常数、类型、变量和动态链接库 (DLL) 过程的声明放在窗体、类或标准模块的模块级。过程。Sub、Function 或者 Property 过程包含可以作为单元来执行的代码片段。本章后面的“过程概述”一节中将讨论这些内容。
窗体模块窗体模块（文件扩展名为 .FRM ）是大多数 Visual Basic 应用程序的基础。窗体模块可以包含处理事件的过程、通用过程以及变量、常数、类型和外部过程的窗体级声明。如果要在文本编辑器中观察窗体模块，则还会看到窗体及其控件的描述，包括它们的属性设置值。写入窗体模块的代码搜索是该窗体所属的具体应用程序专用的；它也可以引用该应用程序内的其它窗体或对象。标准模块标准模块（文件扩展名为 .BAS）是应用程序内其它模块访问的过程和声明的容器。它们可以包含变量、常数、类型、外部过程和全局过程的全局（在整个应用程序范围内有效的）声明或模块级声明。写入标准模块的代码不必绑在特定的应用程序上；如果不小心用名称引用窗体和控件，则在许多不同的应用程序中可以重用标准模块。
类模块在 Visual Basic 中类模块（文件扩展名为 .CLS）是面向对象编程的基础。可在类模块中编写代码建立新对象。这些新对象可以包含自定义的属性和方法。实际上，窗体正是这样一种类模块，在其上可安放控件、可显示窗体窗口。注意 Visual Basic 的专业版和企业版也包含 ActiveX 文档、ActiveX 设计器和用户控件。它们介绍了具有不同文件扩展名的新模块类型。从编写代码的角度来看，这些模块应视同为窗体模块。
Q4: VB.NET中的模块
在C#中有 静态类 的概念 自然里边全部的方法都是静态的 这意味着你可以直接通过 类名 方法名 去调用（例如System的Math类就是典型） 在VB NET中 没有 静态类 的概念（当然你可以用 单例模式 把构造函数弄成Private的方式 其它方法都是静态的）如果某些方法需要被其它地方频繁使用 可以创建 模块 在VB NET中一旦创建了模块 其中任何方法 属性或者变量都可以被其它地方引用 因此适合全局情况下频繁交互的情况（比如初始化加载的参数 可能后续程序要使用）等
现在问题在于 如果你把一个类似以下的模块代码封装成DLL类库 无论在C#或者是VB NET中都无法引用到其方法
Module A
Public Sub Test()
End Sub
End Module
或许你感到很奇怪——不是在VB NET中这样定义一个Module就直接可以使用其内部方法了么？为什么封装成类库就不可以了呢？上网问了一些人 众说纷纭 后来我在他人协助下终于成功解决了这个问题——解决方法很简单——只要在Module前加Public
理由是 为了兼容C# VB NET由Module封装成类库中这个模块不再是 模块 而是一个标准的类了 如果这样写 那么在 NET中被理解成(C#)
internal A
{
public void Test()
{
}
}
整个模块变成Internal的了！当然你到其它程序集中去引用就引用不到！而把类库中的Module的修饰符改为Public就可以了 这就是MSDN那位友人给我最好的提示
虽然这个提示不是令我太满意（因为要知道VB NET中可以直接不通过 类名 方式直接使用方法名） 但是这给了我很大的暗示 得出重要的结论
）VB NET中Module在制作成类库时候等同于VB NET中的类的规则（里边的方法都是静态的） 默认情况下是Friend（C#是internal）
）根据结论 那么我们知道引用该DLL类库的方法一定是 i）引用命名空间 ii）C#中直接 类名 方法名 对于VB NET 直接可以引用到方法名
lishixinzhi/Article/program/net/201311/12502
vb.net的标准模块的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb 标准模块、vb.net的标准模块的信息别忘了在本站进行查找喔。
