VB素材如何导入？

你可以把PNG图图片放在资源里，运行时释放出来，用的时候也是直接调用本地电脑里路径。添加资源发方法是菜单栏“外接程序”-->外界程序管理器，把“VB 6 资源编辑器”打勾，然后把自己的PNG图片放入到资源里。。。

释放资源的源码如下

Function UnRes(ByVal ResID As Integer, ByVal ResName As String, ByVal UnResPath As String)

Dim Temp() As Byte

Temp = LoadResData(ResID, ResName)

Open UnResPath For Binary As #1

Put #1, , Temp()

Close #1

End Function

调用方式Call UnRes(102,"CUSTOM",strDesPath)

其中strDesPath是目标路径，既是你要释放在用户机子上的路径

一、界面设计与属性设置

启动VB6.0，在d出的“新建工程”对话框中新建一个“标准EXE”的工程文件。

首先，单击工具箱中的标签控件，在窗体中拖动鼠标，创建一个标签对象。按照同样的方法，再创建两个标签对象；两个文本框对象；三个按钮对象。

最后，对各对象的属性进行设置，将Form1的Caption属性设为“用户登录器”。

Text1的Text属性设为“空”。

Text2的Text属性设为“空”； Text2的PasswordChar属性设为“*”（目的是为了保证密码的安全性）

Label1的Caption属性设为“信息管理系统”。

Label2的Caption属性设为“用户名”。

Label3的Caption属性设为“密码”。

Command1的Caption属性设为“确定”。

Command2的Caption属性设为“退出”。

二、代码输入与程序调试

为了代码编写的需要，我们设定用户名为admin,密码为123456。

首先，为了显示用户登录状态的提示，我们需要创建一个新窗体。具体 *** 作是执行“工程” →“添加窗体”命令，系统默认为Form2。

在Form2上添加一个标签对象，将其Caption属性设置为空。

其次，双击窗体或按钮，进入程序代码编辑窗口。在“确定”按钮的单击事件中输入程序代码：

If Text1.Text = "admin" And Text2.Text = "123456" Then

Form2.Show

Form2.Label1.Caption = "欢迎进入信息管理系统！"

Unload Form1 '关闭Form1

Else

Form2.Show

Form2.Label1.Caption = "用户名或密码错误，请重新输入！"

End If

接下来，在“退出”按钮的单击事件中输入程序代码：

End

*** 作完成后，我们单击“启动”按钮运行程序。这时，我们可以通过输入用户名和密码来进行程序调试。

这是个简易的登录器！自学后可以再改进！

'万花筒程序

'粘贴下面代码即可, 不用添加任何控件

Private WithEvents Timer1 As Timer

Dim r&, r1&, t&, a1!, a2!, xb!, yb!, s!, b#

Private Sub Form_Load()

      Me.Width = 4500: Me.Height = 4500

      Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2

      Me.AutoRedraw = True

      Me.Caption = "CBM666的万花筒"

      Set Timer1 = Controls.Add("vb.timer", "Timer1")

      Timer1.Interval = 10

End Sub

Private Sub Timer1_Timer()

      Randomize

      r = 340 * Rnd

      If r <> 0 Then

         r1 = 500

         s = r * Rnd

         b = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)

         For t = 1 To 10000

            a1 = t * 3.1415926 / 180

            a2 = (r1 / r) * a1

            xb = 500 + (-(r1 - r) * Cos(a1) - s * Cos(a2 - a1) + 420) * 4

            yb = 500 + ((r1 - r) * Sin(a1) - s * Sin(a2 - a1) + 380) * 4

            Me.PSet (xb, yb), b

         Next t

      End If

End Sub

---