Print Page | Close Window

Adding Templates

Printed From: Mirage Source
Category: Tutorials
Forum Name: Submitted Tutorials
Forum Discription: Tutorial submissions for MSE are posted here, waiting for approval
URL: http://ms.shannaracorp.com/backup-forums/forum_posts.asp?TID=388
Printed Date: 20 December 2006 at 6:05pm
Software Version: Web Wiz Forums 8.01 - http://www.webwizforums.com


Topic: Adding Templates
Posted By: Da Undead
Subject: Adding Templates
Date Posted: 05 March 2006 at 9:51am

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




Print Page | Close Window

Bulletin Board Software by Web Wiz Forums version 8.01 - http://www.webwizforums.com
Copyright ©2001-2006 Web Wiz Guide - http://www.webwizguide.info