edsantana

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

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

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.

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

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 ?

**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. ;)

totaly voted :icon_beer:

johnny cash - personal jesus