Looks good; what did you make it in?
Oh ok. I haven't seen many Visual Studio 2010 trainers yet. For me, the web install fails after a while and the iso for all of the express editions gets corrupted >.<
I use Visual Basic 2008.
Yes, most of the tutorials i have seen on here are for VB6, which is kind of outdated.
Visual Studio 2010 makes everything look nice :P
VB 2008 is still pretty nice
Could you send your projects source code (the place where you put all your variable editing code in) to me plz? My security is giving me a virus message, that can often happen in trainers.
Hopefully this is what you meant:
Code:Public Class Form1 Private Sub moneybut_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles moneybut.Click Call AxShockwaveFlash1.SetVariable("_root.gold", moneytxt.Text) End Sub Private Sub woodbut_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles woodbut.Click Call AxShockwaveFlash1.SetVariable("_root.wood", woodtxt.Text) End Sub Private Sub interestbut_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles interestbut.Click Call AxShockwaveFlash1.SetVariable("_root.interest", interesttxt.Text) End Sub Private Sub lvlselectcom_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvlselectcom.SelectedValueChanged Dim level As String level = lvlselectcom.Text Select Case level Case 1 Call AxShockwaveFlash1.SetVariable("_root.level", 0) Case 2 Call AxShockwaveFlash1.SetVariable("_root.level", 1) Case 3 Call AxShockwaveFlash1.SetVariable("_root.level", 2) Case 4 Call AxShockwaveFlash1.SetVariable("_root.level", 3) Case 5 Call AxShockwaveFlash1.SetVariable("_root.level", 4) Case 6 Call AxShockwaveFlash1.SetVariable("_root.level", 5) Case 7 Call AxShockwaveFlash1.SetVariable("_root.level", 6) Case 8 Call AxShockwaveFlash1.SetVariable("_root.level", 7) Case 9 Call AxShockwaveFlash1.SetVariable("_root.level", 8) Case 10 Call AxShockwaveFlash1.SetVariable("_root.level", 9) Case 11 Call AxShockwaveFlash1.SetVariable("_root.level", 10) Case 12 Call AxShockwaveFlash1.SetVariable("_root.level", 11) Case 13 Call AxShockwaveFlash1.SetVariable("_root.level", 12) Case 14 Call AxShockwaveFlash1.SetVariable("_root.level", 13) Case 15 Call AxShockwaveFlash1.SetVariable("_root.level", 14) Case 16 Call AxShockwaveFlash1.SetVariable("_root.level", 15) Case 17 Call AxShockwaveFlash1.SetVariable("_root.level", 16) Case 18 Call AxShockwaveFlash1.SetVariable("_root.level", 17) Case 19 Call AxShockwaveFlash1.SetVariable("_root.level", 18) Case 20 Call AxShockwaveFlash1.SetVariable("_root.level", 19) Case 21 Call AxShockwaveFlash1.SetVariable("_root.level", 20) Case 22 Call AxShockwaveFlash1.SetVariable("_root.level", 21) Case 23 Call AxShockwaveFlash1.SetVariable("_root.level", 22) Case 24 Call AxShockwaveFlash1.SetVariable("_root.level", 23) Case 25 Call AxShockwaveFlash1.SetVariable("_root.level", 24) Case 26 Call AxShockwaveFlash1.SetVariable("_root.level", 25) Case 27 Call AxShockwaveFlash1.SetVariable("_root.level", 26) Case 28 Call AxShockwaveFlash1.SetVariable("_root.level", 27) Case 29 Call AxShockwaveFlash1.SetVariable("_root.level", 28) Case 30 Call AxShockwaveFlash1.SetVariable("_root.level", 29) Case 31 Call AxShockwaveFlash1.SetVariable("_root.level", 30) Case 32 Call AxShockwaveFlash1.SetVariable("_root.level", 31) Case 33 Call AxShockwaveFlash1.SetVariable("_root.level", 32) Case 34 Call AxShockwaveFlash1.SetVariable("_root.level", 33) Case 35 Call AxShockwaveFlash1.SetVariable("_root.level", 34) Case 36 Call AxShockwaveFlash1.SetVariable("_root.level", 35) Case 37 Call AxShockwaveFlash1.SetVariable("_root.level", 36) Case 38 Call AxShockwaveFlash1.SetVariable("_root.level", 37) Case 39 Call AxShockwaveFlash1.SetVariable("_root.level", 38) End Select End Sub End Class
Looks alright actually. Note. This bit..
I presume if the user types in lets say "5" then your level will be five? You could also use a ComboBox as an alternative, just some info. Your system is goodCode:Private Sub lvlselectcom_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvlselectcom.SelectedValueChanged Dim level As String level = lvlselectcom.Text Select Case level Case 1 Call AxShockwaveFlash1.SetVariable("_root.level", 0) Case 2 Call AxShockwaveFlash1.SetVariable("_root.level", 1) Case 3 Call AxShockwaveFlash1.SetVariable("_root.level", 2) Case 4 Call AxShockwaveFlash1.SetVariable("_root.level", 3) Case 5 Call AxShockwaveFlash1.SetVariable("_root.level", 4) Case 6 Call AxShockwaveFlash1.SetVariable("_root.level", 5) Case 7 Call AxShockwaveFlash1.SetVariable("_root.level", 6) Case 8 Call AxShockwaveFlash1.SetVariable("_root.level", 7) Case 9 Call AxShockwaveFlash1.SetVariable("_root.level", 8) Case 10 Call AxShockwaveFlash1.SetVariable("_root.level", 9) Case 11 Call AxShockwaveFlash1.SetVariable("_root.level", 10) Case 12 Call AxShockwaveFlash1.SetVariable("_root.level", 11) Case 13 Call AxShockwaveFlash1.SetVariable("_root.level", 12) Case 14 Call AxShockwaveFlash1.SetVariable("_root.level", 13) Case 15 Call AxShockwaveFlash1.SetVariable("_root.level", 14) Case 16 Call AxShockwaveFlash1.SetVariable("_root.level", 15) Case 17 Call AxShockwaveFlash1.SetVariable("_root.level", 16) Case 18 Call AxShockwaveFlash1.SetVariable("_root.level", 17) Case 19 Call AxShockwaveFlash1.SetVariable("_root.level", 18) Case 20 Call AxShockwaveFlash1.SetVariable("_root.level", 19) Case 21 Call AxShockwaveFlash1.SetVariable("_root.level", 20) Case 22 Call AxShockwaveFlash1.SetVariable("_root.level", 21) Case 23 Call AxShockwaveFlash1.SetVariable("_root.level", 22) Case 24 Call AxShockwaveFlash1.SetVariable("_root.level", 23) Case 25 Call AxShockwaveFlash1.SetVariable("_root.level", 24) Case 26 Call AxShockwaveFlash1.SetVariable("_root.level", 25) Case 27 Call AxShockwaveFlash1.SetVariable("_root.level", 26) Case 28 Call AxShockwaveFlash1.SetVariable("_root.level", 27) Case 29 Call AxShockwaveFlash1.SetVariable("_root.level", 28) Case 30 Call AxShockwaveFlash1.SetVariable("_root.level", 29) Case 31 Call AxShockwaveFlash1.SetVariable("_root.level", 30) Case 32 Call AxShockwaveFlash1.SetVariable("_root.level", 31) Case 33 Call AxShockwaveFlash1.SetVariable("_root.level", 32) Case 34 Call AxShockwaveFlash1.SetVariable("_root.level", 33) Case 35 Call AxShockwaveFlash1.SetVariable("_root.level", 34) Case 36 Call AxShockwaveFlash1.SetVariable("_root.level", 35) Case 37 Call AxShockwaveFlash1.SetVariable("_root.level", 36) Case 38 Call AxShockwaveFlash1.SetVariable("_root.level", 37) Case 39 Call AxShockwaveFlash1.SetVariable("_root.level", 38) End Select End Sub
In-fact, that is a ComboBox
Note the 'SelectedValueChanged' bit.
That basically says anytime the ComboBox is activated and a new value is chosen, the trigger is activated.
Oh yh I see that now, sorry. It's just when I see "lvlselectcom.text" I think of a textbox. See I'm not used to customised names, I keep mine as "ComboBox1" and "ContextMenuStrip1" etc.