VB programming Some experiences in college graduate design are prepared a teaching software, so naturally, it is easy to learn, easy to understand, and friendly in the interface. Of course, there are many problems in the process of writing, and some simple small programs will be shared with friends who love programmed. First, the design of the cover cover is like this, first appear a form, which is the pattern you like. Then there is a boat that travels from left to the right. On both sides, the screen is moved from both sides. The specific method is to load a pre-selected background pattern into a cover form, and the form is named CAI. The pre-fabricated bitmap "joy", "welcoming" and ship type are added to the three image controls (iMage), respectively. The three images are then placed in the initial position (ie the pattern is just in the form of the form) and sets their visual attributes to "false". The procedure is as follows: SUB FORM_LOAD () cai.show 'Display Cover Form DIM I' Defining Variable Image3.Visible = True 'Ship type Image Controls A1: if Image3.left <6120 The' 6120 is moving to the right side of the screen, This value can choose image3.move image3.Left 50 'Move this image control, if it is slow, change moving value goto a1 end if image1.visible = "true"' "欢" word A2: if Image1.Left < 2120 THEN '2120 Moves the word "Huan" word to the middle of the screen image1.move image1.lefe 50' Move this image control goto a2 end if image2.visible = "true" '"Welcome" word A3: if Image2.Left> 5420 THEN '5420 Moves the word "welcoming" to the middle of the screen image2.move image2.LEFT-50' Move this image control GOTO A3END IFOR I = 1 to 10000 'makes the form pause for a period of time can be changed by changing the number of cycles Realize Next Imenul.Show 'Display Program Main Form Unload CAI' Uninstall Cover Form End Sub Second, Simple "Animation" Click on a 3D button, the screen performance is parallel into a glass tube in parallel, there is a scatter center in the tube, there is The light is reflected to the initial end of the tube after being incident.
