UC知道关于VB用切图的方法换皮肤
来源：百度知道 编辑：UC知道 时间：2024/05/19 15:43:11
我是个初学者，自己瞎捣鼓做了一个小软件。
然后我用PHOTOSHOP做了三套皮肤
我把它切成了一样大小的图，各个控件的位置都没有改变。
我想做成按一个键就可以让所有的界面都把所有的FORM里头的PICTURE里头的图片替换掉。
下面出现了几个问题。
1.换了第二套图片之后再重新打开工程发现图片还是原来的第一套图片。（不能保存）
2.换了第二套图片之后图片的位置都是对的，但是FORM变得好像有些乱七八糟的。
3.换皮肤的那一下所有的窗口都会出来展现一下。包括登录框。我想让它们能在后台最好别出来。
可能我的表述不太清楚。有问题可以加QQ22555642问我。。希望大家能帮帮我，给我支支招。
然后我用PHOTOSHOP做了三套皮肤
我把它切成了一样大小的图，各个控件的位置都没有改变。
我想做成按一个键就可以让所有的界面都把所有的FORM里头的PICTURE里头的图片替换掉。
下面出现了几个问题。
1.换了第二套图片之后再重新打开工程发现图片还是原来的第一套图片。（不能保存）
2.换了第二套图片之后图片的位置都是对的，但是FORM变得好像有些乱七八糟的。
3.换皮肤的那一下所有的窗口都会出来展现一下。包括登录框。我想让它们能在后台最好别出来。
可能我的表述不太清楚。有问题可以加QQ22555642问我。。希望大家能帮帮我，给我支支招。
我接了
已经给你了
部分代码
Private Sub AniGIF1_Click()
Label2(2) = "前闸抬起来了哦!"
End Sub
Private Sub AniGIF2_Click()
Label2(1) = "后闸跟着也抬了起来。。。"
End Sub
Private Sub AniGIF3_Click()
Label2(0) = "值班人员终于吃饭去了…"
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
Label3.Caption = Time
Image1.Move 0, 0
Dim SSet As String
If Dir("set.txt") <> "" Then
Open "set.txt" For Input As #1
Line Input #1, SSet
Close #1
Else
SSet = 1
End If
Image1.Picture = LoadPicture(lPath & "PIC\" & SSet & "\picture\biaoqian.jpg")
Image2.Move 0, Image1.Height
Image2.Picture = LoadPicture(lPath &