第14章多窗體程序設(shè)計(jì)-文庫吧
2025-08-25 16:36 本頁面
【正文】 lse ? Print Chr$(KeyCode)。 。 Hex$(KeyCode)。 。 ? End If ? End Sub 程序代碼（ form2） ? Dim paintnow As Boolean ? Private Sub Command1_Click() ? ? Unload Me ? End Sub ? Private Sub Form_DblClick() ? Cls ? End Sub ? Private Sub Form_Load() ? DrawWidth = 4 ? ForeColor = RGB(255, 0, 0) ? End Sub ? Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ? paintnow = True ? End Sub ? Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ? If paintnow Then ? PSet (X, Y) ? End If ? End Sub ? Pri
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1