看板 Visual_Basic 關於我們 聯絡資訊
※ 引述《Harrychou (Patlabor)》之銘言: : 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? currentX=10:currentY=10 print "hi" currentX=100:currentY=100 print "hi" 這樣你就知道了 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 220.134.166.68