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

[Âà¶K] Âà¶K Clipboard - ¦s¨ú°Å¶Kï

[Âà¶K] Âà¶K Clipboard - ¦s¨ú°Å¶Kï

Âà¶K¦Û½׾Âleonchou ª©¥D   Clipboard - ¦s¨ú°Å¶Kï
DataObject ¬OÀ³¥Îµ{¦¡©M°Å¶Kï(Clipboard)¤§¶¡ªº¾ô¼Ù¡A
¥i¥H³z¹L DataObject ª«¥ó¦s¨ú°Å¶K諸¤º®e¡C
DataObject ¤º®e·|ÀHµÛÀ³¥Îµ{¦¡Ãö³¬¦Ó®ø¥¢¡A
¦Ó°Å¶K鷺®e«h¥u­n¤£Â÷¶}Windows´N¤£·|®ø¥¢¡C

¥H¤Uµ{¦¡·|«Å§i¨Ã¥Î¨ì DataObject ª«¥ó«¬ºA¡A
¨Ï¥Î«e¥²¶·½T©w¤w¤Þ¥Î MS Forms 2.0 Object Library¡C
(³]©w¤Þ¥Îµ{¦¡®wªº¤è¦¡½Ð°Ñ¦Ò¤U¹Ï)
¥¼©R¦W.png
2012-2-11 23:01

Sub ¨ú±o°Å¶K鷺®e()
¡@Dim data As New DataObject
¡@data.GetFromClipboard
¡@Range("A1") = data.GetText(1)
End Sub

Sub ¼g¤J°Å¶Kï()
¡@Dim data As New DataObject
¡@chars = [A1].Characters(3, 5).Text '¨ú±oA1³¡¥÷¤º®e
¡@data.SetText chars '¼g¤JDataObject
¡@data.PutInClipboard '¼g¤J°Å¶Kï
¡@[B1].Select
¡@ActiveSheet.Paste '¦A¶K¨ìB1
End Sub

Sub ²M°£°Å¶K鷺®e()
¡@Dim data As New DataObject
¡@Set data = New DataObject
¡@data.SetText ""
¡@data.PutInClipboard
End Sub

§A¥i¥H¹ï DataObject ¨Ï¥Î Clear ¤èªk¨Ó²M°£¥¦ªº¤º®e¡A
¦ý³o¤èªk¦b³o¸Ì¨Ã¤£¹ê»Ú¡A
¤£¦pª½±µ¶Ç°e¤@­ÓªÅ¦r¦ê¨ì°Å¶Kï¸Ì¡A¦p¤W­±½d¨Ò¡C
¾Ç®üµL²P_¤£®¢¤U°Ý

¤j¤j³o­Ó§ï§¹«á·|¥X²{  visual basic 400  «ç»ò·|³o¼Ë¤l©O?
¤Ñ¤Ñ·s¦¨ªø

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD