看板 Visual_Basic 關於我們 聯絡資訊
Dim colorval As Long Private Sub Form_Load() colorval = RGB(255, 255, 255) End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Cls PSet (X, Y), colorval Print "滑鼠左鍵" End If If Button = 2 Then Cls PSet (X, Y), colorval Print "滑鼠右鍵" End If End Sub 如果要在mousedown時在游標處print出字串,是非得加上PSet來指定位置? 又能否將這段步驟省去,只用print? -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.115.84.252
zupi:CurrentX=xxx, CurrentY=xxx 220.134.166.68 07/06
Harrychou:不解,是另設2字串變數下去指定? 59.115.84.252 07/06