vb.net窗体加载图片,VB中怎么用代码加载图片

VB中怎样在启动窗体时自动加载图片

窗体启动时载入图片:

成都创新互联公司-专业网站定制、快速模板网站建设、高性价比神木网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式神木网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖神木地区。费用合理售后完善,10年实体公司更值得信赖。

Private Sub Form_Load()

Me.Picture = LoadPicture( "路径+文件名")

End Sub

如果程序和图像文件在同一目录内可以改成:

Me.Picture = LoadPicture( App.Path "\文件名")

读写INI文件的方法:

在工程中,新建一个模块,将如下代码粘贴进去!

Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Sub WriteToIni(ByVal FileName As String, ByVal Section As String, ByVal Key As String, ByVal Value As String)

Dim buff As String * 128

buff = Value + Chr(0)

WritePrivateProfileString Section, Key, buff, FileName

End Sub

Public Function ReadFromIni(ByVal FileName As String, ByVal Section As String, ByVal Key As String) As String

Dim i As Long

Dim buff As String * 128

GetPrivateProfileString Section, Key, "", buff, 128, FileName

i = InStr(buff, Chr(0))

ReadFromIni = Trim(Left(buff, i - 1))

End Function

在Form窗体代码某事件【比如:Form_Load()事件】 过程中,

’读取INI文件的例子

Dim p As String

p=ReadFromIni("路径+INI文件名", "名称1", "名称2")

比如:p=ReadFromIni("d:\MusicPlayer.ini", "设置", "文件夹路径")

’写入INI文件的例子

WriteToIni "路径+INI文件名", "名称1", "名称2","字符串或者一个变量"

比如:

WriteToIni "d:\MusicPlayer.ini", "设置", "文件夹路径", "e:\mymusic"

或者:

dim f as string

f="e:\mymusic"

WriteToIni "d:\MusicPlayer.ini", "设置", "文件夹路径", f

vb中如何实现给窗体加载,卸载背景图片

1、点击窗体点击form1,在属性窗口的picture属性中选择要form1背景的图片;可以使form1加载图片背景;

2、删除背景时,鼠标放到picture属性的值(Bitmap)内,点击鼠标,然后点击delete键,删除背景,picture的值变为none;

请采纳,谢谢

vb 如何插入图片

材料/工具:visual basic6

1、首先启动visual basic6,新建一个标准exe文件,进入窗体对话框。

2、选择form1,设置height属性值为6000,width为8000.

3、接着设置borderstyle属性值为4-fixed toolwindow,查看效果变化。

4、双击工具箱中的image控件,在窗体上创建image1控件。

5、采用步骤2的方法设置height属性值为6000,width为8000,top为0,left为0,使其布满窗体。

6、点击picture属性,设置属性值,找到一张图片导入,并设置大小为6000*8000

7、执行文件-生成工程命令,输入文件名称,保存在桌面上,将文件生成exe文件。

VB.NET加载图片问题

'先建立一个bitmap对象,指向图像文件

Dim pic As Bitmap = New Bitmap("e:\1.jpg")

'定义一个图片框的graphics对象

Dim g As Graphics = PictureBox1.CreateGraphics()

'在图片框上绘图

g.DrawImage(pic, 0, 0, pic.Width, pic.Height)

'释放bitmap对象

pic.Dispose()

'现在即可对文件进行操作


分享文章:vb.net窗体加载图片,VB中怎么用代码加载图片
标题URL:http://azwzsj.com/article/dsgisdi.html