All this does is actually change the way the frmMain Menu, Credits, Delete Account, New Account, Create Char, Mirage, Char, any other stuff like that...
By: Da Undead Idea: Based on Elysium (Just a little different) Estimated Time: 10 Mins Max (Unless your beginner) Dificutly: 1/5 (Very Easy, Just Copy Paste in Form_Load)
:::All Client Side:::
frmMainMenu
Under:
Private Sub Form_Load()
-----This will be for all of the frm's...
Add:
Dim i As Long Dim Ending As String For i = 1 To 3 If i = 1 Then Ending = ".gif" If i = 2 Then Ending = ".jpg" If i = 3 Then Ending = ".png"
If FileExist("Template\MainMenu" & Ending) Then frmCredits.Picture = LoadPicture(App.Path & "\Template\MainMenu" & Ending) Next i
frmLogin, add:
Dim i As Long Dim Ending As String For i = 1 To 3 If i = 1 Then Ending = ".gif" If i = 2 Then Ending = ".jpg" If i = 3 Then Ending = ".png"
If FileExist("Template\Login" & Ending) Then frmCredits.Picture = LoadPicture(App.Path & "\Template\Login" & Ending) Next i
frmChars, add
Dim i As Long Dim Ending As String For i = 1 To 3 If i = 1 Then Ending = ".gif" If i = 2 Then Ending = ".jpg" If i = 3 Then Ending = ".png"
If FileExist("Template\Chars" & Ending) Then frmCredits.Picture = LoadPicture(App.Path & "\Template\Chars" & Ending) Next i
frmNewChar, add
Dim i As Long Dim Ending As String For i = 1 To 3 If i = 1 Then Ending = ".gif" If i = 2 Then Ending = ".jpg" If i = 3 Then Ending = ".png"
If FileExist("Template\NewChar" & Ending) Then frmCredits.Picture = LoadPicture(App.Path & "\Template\NewChar" & Ending) Next i
frmNewAccount, add:
Dim i As Long Dim Ending As String For i = 1 To 3 If i = 1 Then Ending = ".gif" If i = 2 Then Ending = ".jpg" If i = 3 Then Ending = ".png"
If FileExist("Template\NewAccount" & Ending) Then frmCredits.Picture = LoadPicture(App.Path & "\Template\NewAccount" & Ending) Next i
frmMirage, add:
Dim i As Long Dim Ending As String For i = 1 To 3 If i = 1 Then Ending = ".gif" If i = 2 Then Ending = ".jpg" If i = 3 Then Ending = ".png"
If FileExist("Template\Mirage" & Ending) Then frmCredits.Picture = LoadPicture(App.Path & "\Template\Mirage" & Ending) Next i
frmCredits, add:
Dim i As Long Dim Ending As String For i = 1 To 3 If i = 1 Then Ending = ".gif" If i = 2 Then Ending = ".jpg" If i = 3 Then Ending = ".png"
If FileExist("Template\Credits" & Ending) Then frmCredits.Picture = LoadPicture(App.Path & "\Template\Credits" & Ending) Next i
frmTrade, add:
Dim i As Long Dim Ending As String For i = 1 To 3 If i = 1 Then Ending = ".gif" If i = 2 Then Ending = ".jpg" If i = 3 Then Ending = ".png"
If FileExist("Template\Trade" & Ending) Then frmCredits.Picture = LoadPicture(App.Path & "\Template\Trade" & Ending) Next i
frmTrain, add:
Dim i As Long Dim Ending As String For i = 1 To 3 If i = 1 Then Ending = ".gif" If i = 2 Then Ending = ".jpg" If i = 3 Then Ending = ".png"
If FileExist("Template\Train" & Ending) Then frmCredits.Picture = LoadPicture(App.Path & "\Template\Train" & Ending) Next i
frmSendGetData, You'll need to add this whole sub for this frm ONLY:
Pivate Sub Form_Load() Dim i As Long Dim Ending As String For i = 1 To 3 If i = 1 Then Ending = ".gif" If i = 2 Then Ending = ".jpg" If i = 3 Then Ending = ".png"
If FileExist("Template\Data" & Ending) Then frmCredits.Picture = LoadPicture(App.Path & "\Data\NewAccount" & Ending) Next i End Sub
frmFixItem, add:
Dim i As Long Dim Ending As String For i = 1 To 3 If i = 1 Then Ending = ".gif" If i = 2 Then Ending = ".jpg" If i = 3 Then Ending = ".png"
If FileExist("Template\Fix" & Ending) Then frmCredits.Picture = LoadPicture(App.Path & "\Template\Fix" & Ending) Next i
Now Your Done!
This is compatible with .gif, .jpg, and .png!
Way to edit this is by:
Adding a folder called Template in your Client Folder. Then make your template with the following names: Fix Data NewAccount NewChar Mirage MainMenu Credits DeleteAccount Login Trade Train
And I guess you can match up which goes with which ;).
All Credit Goes To: Da Undead
|