å¨VBä¸CommandButtonæé®æ§ä»¶çä½ç¨æ¯å¯ä»¥å¼å§ãä¸ææè ç»æä¸ä¸ªè¿ç¨ã
CommandButton æ§ä»¶å¯ä»¥å¼å§ãä¸ææè ç»æä¸ä¸ªè¿ç¨ãéåè¿ä¸ªæ§ä»¶åï¼CommandButton æ¾ç¤ºæä¸çå½¢ç¶ï¼æ以ææ¶ä¹ç§°ä¹ä¸ºä¸åæé®ã
é常ï¼å°ä¸ä¸ª Click äºä»¶è¿ç¨éå å°ä¸ä¸ª CommandButton æ§ä»¶ä¸ç¨æ¥æ§è¡å½ä»¤æ类似å½ä»¤çæä½ã
以ä¸æ¯éè¿æé®çClickäºä»¶è¿ç¨æ§è¡æå°è£ è½½å¨å¾çæ¡å¾çã
Private Sub cmdPrint_Click()
On Error GoTo ABC
If Picture1.Picture <> LoadPicture("") Then
Printer.PaintPicture Picture1.Picture, 200, Picture1.Top + 1000
Else
MsgBox "Picture1ä¸æ²¡æå¾çå¯æå°ï¼"
End If
Printer.EndDoc
Exit Sub
ABC:
End Sub
以ä¸æ¯ç¹å»æé®æ§è¡å è½½ä¸ä¸ªçªä½ç代ç ã
Private Sub cmdRef_Click()
frmRef.Show
End Sub