Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB/VB.NetÈçºÎʵÏÖÓÃLabelÔÚ²»Í¬Î»ÖÃÒÆ¶¯µÄЧ¹û£¿

»¹¼ÇµÃÉÏ΢ÈíÍøÕ¾¸üÐÂϵͳ²¹¶¡Ê±£¬Ã¿µ±¹´Ñ¡Ò»¸öÉý¼¶Ïîʱ£¬ÔÚµ±Ç°¹´Ñ¡µÄλÖûá³öÏÖÒ»¸ö´øÎÄ×ֵĺڿòƽ»¬µÄ·ÉÏòÒÑÑ¡ÊýÁ¿µÄλÖÃÉϲ¢¼Ó1£¬µ±È¡Ïû¹´Ñ¡Ê±ÒÔÏà·´µÄ·½Ïò´ÓÒÑÑ¡ÊýÁ¿µÄλÖÃÉϷɻز¢¼õ1£¬Õâ¸öЧ¹û¶¯¸ÐÓиöÐÔ£¬ÏÖÔÚÎÒÏëÔÚVBÒ²ÏëʵÏÖÕâÖÖЧ¹û£¬ÇëÎÊÓÃVBÈçºÎʵÏÖ£¿ÓÃʲôËã·¨£¿

Çë¸÷λ´óϺ°ï°ï棬VB6»òVB.Net¶¼¿ÉÒÔ£¡

Ö±½ÓÓÃGDIº¯Êý¶ÔÆÁÄ»DC²Ù×÷¡£

ÒýÓÃ
Ö±½ÓÓÃGDIº¯Êý¶ÔÆÁÄ»DC²Ù×÷¡£

ÈçºÎʵÏÖ£¿

ÓÃshape¿Ø¼þÄ£Äâ¡£µ«Òª×¢Ò⣺check¿Ø¼þÖ»ÏÔʾһ¸ö¹³Ñ¡¿ò£¬ÆäÏÔʾÄÚÈÝÓÃÁíÍâµÄlabelʵÏÖ¡£

ÒýÓÃ
ÓÃshape¿Ø¼þÄ£Äâ¡£µ«Òª×¢Ò⣺check¿Ø¼þÖ»ÏÔʾһ¸ö¹³Ñ¡¿ò£¬ÆäÏÔʾÄÚÈÝÓÃÁíÍâµÄlabelʵÏÖ¡£


²»ÖªÔõÑùʵÏÖ£¬ÄÜ·ñ¸ø³öʾÀý´úÂëÂ𣿻ò˼·¡¢Ëã·¨Ò²¿ÉÒÔ£¡

GDI²»¶®£¬¼òµ¥µÄÓÃMoveÃüÁîÀ´ÊµÏÖ£¬´óÖÂÈçÏ£º
VB code:
Option Explicit
Dim lngL As Long
Dim lngT As Long
Dim lngW As Long
Dim lngH As Long
Private Sub Command1_Click()
Do
lngT = lngT + 2
lblMove.Move lngL, lngT
DoEvents
Loop Until lblMove.Top >= 3000
End Sub

Private Sub Form_Load()
With lblMove
.Left = 0
.Top = 0
lngL = .Left
lngT = .Top
lngW = .Width
lngH = .Height
End With
End Sub


ÒªÊÇÒÆ¶¯Ð§¹ûƽ»¬Ð©£¬¿ÉÔÚÑ­»·ÖмÓÉÏSleepº¯Êý£¬Ð§¹û»á¸üºÃ

崃쵀


Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

vb´òÓ¡ÎÊÌâ

´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ


printer.print "dsff"
.....
....


Printer.EndDoc


´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ

sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......

vbÈçºÎµ÷ÓÃIllustrator£¨´ËǰIllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

VCÏ»­Í¼ÒªÓÃwin32 GDI API VBÏÂÄØ£¿

ÓÃʲô£¿
VB×Ô¼ººÃÏñÓл­Í¼º¯Êý°É,ÁíÍâVBÒ²ÊÇ¿ÉÒÔÓÃAPIµÄ,¶øÇҺܷ½±ã

ÒýÓÃ
VB×Ô¼ººÃÏñÓл­Í¼º¯Êý°É,ÁíÍâVBÒ²ÊÇ¿ÉÒÔÓÃAPIµÄ,¶øÇҺܷ½±ã

ΪʲôvcûÓÐ×Ô¼ºµÄ»­Í¼º¯Êý£¿

ÒýÓÃ
ÒýÓà 1 Â¥ wltg2001 µ ......

VB´°ÌåµÄÊôÐÔÉèÖôúÂë

Õâ¶Î³ÌÐòÖÐ
Begin VB.Forms_frmmain    BorderStyle = 1 'fixed single
    Caption = "ËÙËã24"
    clientHeight = 6375
    clientLeft = 154 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ