[Gambas-user] : why this code not working

[tsukuba GIMP user]

here is
' Gambas class file

'  Private $dbclick As Integer
....(Unrelated content and Comment symbol because i build a package So I shielded them)....
' Public Sub PictureBox1_MouseDown()
'   Dim dicer As Integer
'   dicer = Int(Rnd(1, 5))
'   $dbclick += 1 <---------- i try inc $dbclick still not working...
'   Print $dbclick <--------- TEST ONLY
'   If $dbclick = 8 Then
'     Form3.Text = ("xxxx")
'     Form3.TextBox1.text = ("xxxxxxx!!!!!!")
'     Form3.Show
'   Else
'     Goto just_keep_moveing
'   Endif
'   just_keep_moveing:
'   If dicer = 1 Then
'     Form3.Text = ("xxxx")
'     Form3.TextBox1.Text = ("xxxx...xxxxxx.....")
'     Form3.Show
'   Else If dicer = 2 Then
'     Form3.Text = ("xxxx")
'     Form3.TextBox1.text = ("xx?xxxxxx?")
'     Form3.Show
'   Else If dicer = 3 Then
'     Form3.Text = ("xxxx")
'     Form3.TextBox1.text = ("xxxx~xxxxxxxx~")
'     Form3.Show
'   Else If dicer = 4 Then
'     Form3.Text = ("xxxx")
'     Form3.TextBox1.text = ("xxxxxxxxxxx! xx~xxxx！")
'     Form3.Show
'   Endif
' End




On 07/14/2015 02:37 PM, tsukuba GIMP user wrote:
> i added the private var and in print number is working
> but when number is 8 it's still forget the
> if $dbclick = 8 then.... '$ is private var


What is the content of your function's code now?


Lee
__________


------------------------------------------------------------------------------
Don't Limit Your Business. Reach for the Cloud.
GigeNET's Cloud Solutions provide you with the tools and support that
you need to offload your IT needs and focus on growing your business.
Configured For All Businesses. Start Your Cloud Today.
https://www.gigenetcloud.com/
_______________________________________________
Gambas-user mailing list
Gambas-user at lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user