vb怎么保存程序里面的设置

将所有设置的数据

保存到文本文件中

程序启动时再读取出来就可以了

open

"文本文件地址"

for

output

as

#1

print

#1,"设置内容"

close

#1

=======保存

open

"文本文件地址"

for

input

as

#1

line

input

#1,tmp

close

#1

msgbox

tmp

=======读取

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Const SRCCOPY = &HCC0020

Sub ScreenSave(FilePath As String)

Dim lngDesktopHwnd As Long

Dim lngDesktopDC As Long

Picture1AutoRedraw = True

Picture1ScaleMode = vbPixels

lngDesktopHwnd = GetDesktopWindow

lngDesktopDC = GetDC(lngDesktopHwnd)

'filePath为截屏要保存的路径

FilePath = "E:\ajpg"

MeVisible = False

MeWindowState = 2

Picture1Width = ScreenWidth

Picture1Height = ScreenHeight

'这里注释是测试用，正常使用时设置FALSE

' Picture1Visible = False

Call BitBlt(Picture1hdc, 0, 0, ScreenWidth, ScreenHeight, lngDesktopDC, 0, 0, SRCCOPY)

Picture1Picture = Picture1Image

Call ReleaseDC(lngDesktopHwnd, lngDesktopDC)

MeVisible = True

SavePicture Picture1, FilePath '保存

End Sub

Private Sub Command1_Click()

ScreenSave "FilePath"

End Sub

关于数据保存，有很多方法,常用的有下面三种

1数据库

(用于要保存的数量非常大，而且需要进行管理）

2配置文件

（用于数据量不太多，不需要进行管理,能读／写即可）

3注册表

（用于数据量非常少，不用管理，只要能读／写即可）

根据你的要求，可以用2,3两种方法

在你的界面中，增加一个保存配置的按钮或菜单项，用于保存（也可以在相关内容有变化时自动时时保存）

然后在Form_Load事件中，或Sub_Main过程中，先读取相应的保存的信息，再对其相关变量或属性进行赋值，就能达到你的要求了

以上就是关于vb怎么保存程序里面的设置全部的内容，包括:vb怎么保存程序里面的设置、VB中，如何将VB程序窗口截图并保存在某个位置、vb程序输入数据怎么保存等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！