pictureæ°ç» å¯ä»¥ç¨åæ æ¥å®æ ç¨æ°ç»æ¥è®°å½åæ æ£è°±ä»£ç ææ³æ¯é èªå·±åå§ æ¯å¦ Private Sub Form_Load() Picture1(1).Picture = LoadPicture("") 'è¿å¾æ¯å µ End Sub
Private Sub Picture1_Click(Index As Integer) If Index = 1 Then If Picture1(1).Top >= 1000 Then '没è¿æ²³ Picture1(1).Left = 500 'ä¿æä¸å ææå°±æ¯ä¸è½å·¦å³ç§»å¨,å½ç¨é¼ æ æå®ä»çä½åå°±å¯ä»¥ä¸åä¸æ¥ ElseIf Picture1(1).Top <= 700 Then 'å·²ç»è¿æ²³ 'å¯ä»¥å°±è§£é¤éå¶ End If End If End Sub 'è¿è¦å¤æä½ æå®ä½åçåæ ï¼æ¯å¦è¿è¿è¶ è¿ä¸æ¥è·ç¦»ï¼æè¿è¿å°äºä¸æ¥è·ç¦» 'å¯ä»¥ç¨æç»ç线æ¥å¤æä½å å®é 代ç ä¸æ¯è¿æ ·åç åªæ¯å¸æä½ æç½è¿ä¸ªéç