ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¦b«ö¶s¤§¤U¦p¦ó¥[¤J²MªÅ°Å¶Kï

[µo°Ý] ½Ð°Ý¦b«ö¶s¤§¤U¦p¦ó¥[¤J²MªÅ°Å¶Kï

¥»©«³Ì«á¥Ñ donod ©ó 2020-12-23 19:54 ½s¿è

Private Sub CommandButton1_Click()
EmptyClipboard

¥»©«³Ì«á¥Ñ donod ©ó 2020-12-23 20:25 ½s¿è

³o­Ó·|¥X²{  visual basic 400
Dim data As New DataObject

Private Sub CommandButton1_Click()
¡@Set data = New DataObject
¡@data.SetText ""
¡@data.PutInClipboard

TOP

³o­Ó¶¡¤¤·|¥X²{  visual basic 400

Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long

Private Sub CommandButton1_Click()
    OpenClipboard (0&)
    EmptyClipboard
    CloseClipboard

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD