hi, i wanted to create a simple animated game.below is my code.why the PictureBox1.PictureBox3.Picture3 doesn't show s any picture on form2? is NSBasic/ce 8.0.2a able to create animated game. i was also out of luck in changing nscepicturebox1.resourcebitmapidstr to "pic2" after setting it to "pic1". as now it doesn't support .move properties. i have to change the picture of either PictureBox or nscepicturebox to different pic in a timer. right? any help is appreciated. '--------------------------------------------------------------------- ShowOKButton True 'Set Close button to OK Sub Form1_Load nscepicturebox1.ImageLoadBufferSize = 4096 nscepicturebox2.ImageLoadBufferSize = 4096 nscepicturebox3.ImageLoadBufferSize = 4096 Dim f f = "oct_test2.exe" nscepicturebox1.resourcefile=f nscepicturebox1.resourcebitmapidstr="pic1" nscepicturebox2.resourcefile=f nscepicturebox2.resourcebitmapidstr="pic2" nscepicturebox3.resourcefile=f nscepicturebox3.resourcebitmapidstr="pic3" End Sub '--------------------------------------------- Sub CommandButton1_Click form1_hide form2_show End Sub Sub Form2_Load 'output.drawpicture "\Program Files\pic1",300,0 PictureBox1.Picture = "\Program Files\pic1" PictureBox2.Picture = "\Program Files\pic2" PictureBox3.Picture = "\Program Files\pic3" End Sub '---------------------------------------------- dim r1 Sub CommandButton2_timer Randomize r1 = Int((Rnd * 3) + 1) If r1 = 1 Then nscepicturebox1.width=160 nscepicturebox1.height=107 NSCEPictureBox1.resourcefile=f NSCEPictureBox1.resourcebitmapidstr="pic11" ElseIf r1 =2 Then nscepicturebox1.width=160 nscepicturebox1.height=107 NSCEPictureBox2.resourcefile=f NSCEPictureBox2.resourcebitmapidstr="pic2" Else nscepicturebox1.width=160 nscepicturebox1.height=107 NSCEPictureBox3.resourcefile=f NSCEPictureBox3.resourcebitmapidstr="pic3" End If End Sub '------------------------------------------------- Sub CommandButton1_Click CommandButton2.Timer = 500 CommandButton1.hide End Sub rdgs, TsTan
--~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "nsb-ce" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/nsb-ce?hl=en -~----------~----~----~----~------~----~------~--~---
