[Paying for a Recruitment System]

couple friends of mine found help from a guy in that site for there company vb app. its worth the shot

[Paying for a Recruitment System]

i meant no disrespect  i am sorry. im  just stating  that you need to be more specific. anyway,
if your willing to pay a couple of bucks, there are some guns for hire in this site. http://www.getacoder.com/
the site is used mostly by web developers  but if you fill the guy in you can get some reasonable help.

cumps

[Paying for a Recruitment System]

if you dont have the time and your too lazy to learn advanced vb coding  why bother ?
like you there are gazilions of people  with the idea " oh shit im gona make a naruto mmo ! " 

it takes time and alot of good ideas, else your doomed to fail.

[Paying for a Recruitment System]

If you have a server up and running, post some scpecs and screen shots mate.
If you need crew for your development team  you must advertise your work, meaning, show what you already have, what your working on, and what are your main goals for your project.

cumps

[[EO] Frame hide/show *Minor Fix]

im sorry but dont you have to create two conditions (if/else)  one for each state of the frame?
from the way i see your code. its just a loop. can you explain more ?

[[EO] Frame hide/show *Minor Fix]

**Objective :** Hide and Show the  Inventory/Party

Hello guys.
This little code modification is just it, small and simple, so it can help any new comer and people who are just starting to take the first steps in Vb.

This follows the Logic Line of many games out there. If you click a button it shows you a frame, if you click the same button, while the same frame is open, it closes it. 

**Logic path  :**
" if not picX.Visible then  picX.visible = True 
Else 
if picX.Visible then picX.visible = False
End if
End if"

**The Code :**  _*note this is all done client side *_
Open your **frmMAIN** (code)  and find the **imgButton_Click** private sub.
Find the select case within the sub and replace with the following code.

```
Select Case Index
        Case 1
            If Not picInventory.Visible Then
                ' show the window
                picInventory.Visible = True
                picCharacter.Visible = False
                picSpells.Visible = False
                picOptions.Visible = False
                picParty.Visible = False
                BltInventory
                ' play sound
                PlaySound Sound_ButtonClick
            Else
            If picInventory.Visible Then
                'hide the window
                picInventory.Visible = False
                picCharacter.Visible = False
                picSpells.Visible = False
                picOptions.Visible = False
                picParty.Visible = False
            End If
            End If
        Case 2
            If Not picSpells.Visible Then
                ' send packet
                Set Buffer = New clsBuffer
                Buffer.WriteLong CSpells
                SendData Buffer.ToArray()
                Set Buffer = Nothing
                ' show the window
                picSpells.Visible = True
                picInventory.Visible = False
                picCharacter.Visible = False
                picOptions.Visible = False
                picParty.Visible = False
                ' play sound
                PlaySound Sound_ButtonClick
                    Else
                If picSpells.Visible Then
                ' Hide the window
                picSpells.Visible = False
                picInventory.Visible = False
                picCharacter.Visible = False
                picOptions.Visible = False
                picParty.Visible = False
                    End If
            End If
        Case 3
            If Not picCharacter.Visible Then
                ' send packet
                SendRequestPlayerData
                ' show the window
                picCharacter.Visible = True
                picInventory.Visible = False
                picSpells.Visible = False
                picOptions.Visible = False
                picParty.Visible = False
                ' play sound
                PlaySound Sound_ButtonClick
                ' Render
                BltEquipment
                BltFace
            Else
                If picCharacter.Visible Then
                ' Hide Window
                picCharacter.Visible = False
                picInventory.Visible = False
                picSpells.Visible = False
                picOptions.Visible = False
                picParty.Visible = False
                End If
            End If
        Case 4
            If Not picOptions.Visible Then
                ' show the window
                picCharacter.Visible = False
                picInventory.Visible = False
                picSpells.Visible = False
                picOptions.Visible = True
                picParty.Visible = False
                ' play sound
                PlaySound Sound_ButtonClick
            Else
                If picOptions.Visible Then
                ' Hide window
                picCharacter.Visible = False
                picInventory.Visible = False
                picSpells.Visible = False
                picOptions.Visible = False
                picParty.Visible = False

            End If
            End If
        Case 5
            If myTargetType = TARGET_TYPE_PLAYER And myTarget <> MyIndex Then
                SendTradeRequest
                ' play sound
                PlaySound Sound_ButtonClick
            Else
                AddText "Invalid trade target.", BrightRed
            End If
        Case 6
            If Not picParty.Visible Then
                ' show the window
                picCharacter.Visible = False
                picInventory.Visible = False
                picSpells.Visible = False
                picOptions.Visible = False
                picParty.Visible = True
                ' play sound
                PlaySound Sound_ButtonClick
            Else
                If picParty.Visible Then
                ' Hide Window
                picCharacter.Visible = False
                picInventory.Visible = False
                picSpells.Visible = False
                picOptions.Visible = False
                picParty.Visible = False

            End If
            End If

    End Select
```
et voila ! its done. Compile and test it.  remember allways keepbackups, if you fail try again.

*Hardcore members, please forgive me if this is a repost, and if you find any errors please tell me .

Have Fun.  ;)

[The "new" vote for eclipse post]

totaly voted  :icon_beer:

[What Are You Listening To]

johnny cash - personal jesus