关于vb.net工控实例的信息

VB.NET设置屏幕分辨率、颜色位数、刷新率 实例代码

这篇文章介绍了VB.NET设置屏幕分辨率、颜色位数、刷新率

实例代码,有需要的朋友可以参考一下

复制代码

代码如下:

Private

Declare

Function

GetDeviceCaps

Lib

(ByVal

hdc

As

Long,

ByVal

nIndex

Long)

Long

ChangeDisplaySettings

Alias

"ChangeDisplaySettingsA"

(lpDevMode

Any,

dwflags

Const

CCDEVICENAME

=

CCFORMNAME

DM_BITSPERPEL

DM_PELSWIDTH

DM_PELSHEIGHT

H100000

DM_DISPLAYFLAGS

DM_DISPLAYFREQUENCY

CDS_FORCE

BITSPIXEL

HORZRES

VERTRES

VREFRESH

Type

DEVMODE

dmDeviceName

String

*

dmSpecVersion

Integer

dmDriverVersion

dmSize

dmDriverExtra

dmFields

dmOrientation

dmPaperSize

dmPaperLength

dmPaperWidth

dmScale

dmCopies

dmDefaultSource

dmPrintQuality

dmColor

dmDuplex

dmYResolution

dmTTOption

dmCollate

dmFormName

dmUnusedPadding

dmBitsPerPel

dmPelsWidth

dmPelsHeight

dmDisplayFlags

dmDisplayFrequency

End

Sub

cmdChangeDesktopMode_Click()

Dim

DM

With

.dmPelsWidth

CInt(txtNewWidth.Text)

.dmPelsHeight

CInt(txtNewHeight.Text)

.dmBitsPerPel

CInt(txtNewColor.Text)

.dmDisplayFrequency

CInt(txtNewFreq.Text)

.dmFields

Or

.dmSize

LenB(DM)

If

ChangeDisplaySettings(DM,

CDS_FORCE)

Then

MsgBox

"错误!不支持此模式！"

Form_Load()

txtOldWidth.Text

GetDeviceCaps(Me.hdc,

HORZRES)

txtOldHeight.Text

VERTRES)

txtOldColor.Text

BITSPIXEL)

txtOldFreq.Text

VREFRESH)

VB.net中类的实例化

①不正确

Dim abc As myClass,定义一个可以引用myClass类型对象的变量abc.这个abc变量存在于栈上.

abc=New myClass.New myClass创建myClass实例对象,这个对象存在于托管堆上.然后（同时）让abc引用（指向）这个对象.

abc变量在栈上,而对象在托管堆上.

abc储存的是对象的地址,而不是对象本身.

看下面的代码

Dim a As myClass,b As myClass,c As myClass

a=New myClass

b=a

c=a

整个过程中只创建了一个myClass对象,位于托管堆上.

三个myClass类型的变量a、b、c位于栈上,都指向了这一个myClass对象

实例成员 必须在实例对象上调用

静态成员 可以直接调用,不需要实例对象.

关于VB.NET进度条的实例

该实例有很多实现方法,下面介绍一种不同的给你:

首先要在窗体中载入以下控件:progressbar(进度条),label(用来实时显示文本提示),两个timer(分别控制进度条进度的增减),然后用以下代码就能实现:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Enabled = True

ProgressBar1.Value = 0

ProgressBar1.Maximum = 100

ProgressBar1.Minimum = 0

End Sub

'上述过程是设置控件的初始值,也可以在属性面板设置

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

ProgressBar1.Value += 1

Label1.Text = "当前完成" ProgressBar1.Value "%"

If (ProgressBar1.Value = 100) Then

Timer1.Enabled = False

End If

'timer1用来控制进度的增加

ProgressBar1.Value -= 1

If (ProgressBar1.Value = 0) Then

End Class

VB.net生成单个实例应用程序

就是只允许启动单一个应用程序的实例, 试图启动第二次时不会产生新的实例,并激活已经启动的实例.

以上就是土嘎嘎小编为大家整理的关于vb.net工控实例的信息相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！