第14章多窗體程序設(shè)計(jì)(存儲(chǔ)版)
【正文】 ? ? End Sub ? Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) ? Static i As Integer ? i = i + 1 ? If i Mod 10 = 0 Then ? Print Chr$(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
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1