Now, you declare $dbclick, but you don't set a value to it.
So, every time PictureBox1_MouseDown() starts, $dbclick gets the value 1.
Try: Private $dbclick as Integer = 0
Am 14.07.2015 um 21:01 schrieb 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@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
> ------------------------------------------------------------------------------
> 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@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
------------------------------------------------------------------------------
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@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
