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

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

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

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

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

ÒýÓÃ
ÒýÓà 1 Â¥ wltg2001 µÄ»Ø¸´:
VB×Ô¼ººÃÏñÓл­Í¼º¯Êý°É,ÁíÍâVBÒ²ÊÇ¿ÉÒÔÓÃAPIµÄ,¶øÇҺܷ½±ã

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

VC²»¹ýÊÇC++µÄÒ»¸ö±àÒëÆ÷,ÒÔǰÓеİ汾µÄC++ºÃÏñÒ²»¹Óл­Í¼µÄ¿â,²»¹ýVCÖ»ÊÇÕë¶ÔwindowsµÄÒ»¸ö±àÒëÆ÷,ûÓбØÒªÌṩ»­Í¼º¯Êý¶øÒÑ

ΪʲôÊÇÕë¶ÔwindowsµÄ±àÒëÆ÷£¬¾Íû±ØÒªÌṩ»­Í¼º¯Êý£¬vcºÍwindowsÊÇÒ»ÌåµÄ£¿ÓõÄÊÇͬһ¸ö±àÒëÆ÷£¿

ÒýÓÃ
ΪʲôÊÇÕë¶ÔwindowsµÄ±àÒëÆ÷£¬¾Íû±ØÒªÌṩ»­Í¼º¯Êý£¬vcºÍwindowsÊÇÒ»ÌåµÄ£¿ÓõÄÊÇͬһ¸ö±àÒëÆ÷£¿

VCÒ»°ãÖ»ÄÜÔËÐÐÔÚwindowsÏÂ,¶øÇÒ±àÒë³öÀ´µÄ³ÌÐòÖ»ÄÜÔÚwindowsÏÂÔËÐÐ,²¢²»ÊÇʲôһÌåµÄ.ÁíÍâwindowsϱà³Ì±¾ÖÊÉ϶¼Êǵ÷ÓÃAPI,MFCÒ²ÊǶÔAPIµÄÒ»ÖÖ·â×°,¼ÈÈ»APIÖÐÒѾ­ÓÐÁËGDIº¯ÊýÁË,VCÔÙÌṩÀàËÆµÄ¿â¾ÍûÓбØÒªµÄ.
²»¹ýÏÖÔÚÒѾ­ÓÐÁËGDI+ÁË,Ò²¿ÉÒÔÈÏΪÓÐÁË»­Í¼º¯ÊýÁË.

¡°¼ÈÈ»APIÖÐÒѾ­ÓÐÁËGDIº¯ÊýÁË,VCÔÙÌṩÀàËÆµÄ¿â¾ÍûÓбØÒªµÄ¡±ÄÇvbÖÐΪʲô¾Í±ØÒªÁËÄØ£¿

ÒýÓÃ
¡°¼ÈÈ»APIÖÐÒѾ­ÓÐÁËGDIº¯ÊýÁË,VCÔÙÌṩÀàËÆµÄ¿â¾ÍûÓбØÒªµÄ¡±ÄÇvbÖÐΪʲô¾Í±ØÒªÁËÄØ£¿


ÒòΪVBºÍVC¶¨Î»²»Í¬
VB = very basic
VC = very confused

ÒýÓÃ
¡°¼ÈÈ»APIÖÐÒѾ­ÓÐÁËGDIº¯ÊýÁË,VCÔÙÌṩÀàËÆµÄ¿â¾


Ïà¹ØÎÊ´ð£º

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

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 ......

VB ÊôÐÔµÄʹÓÃÎÞЧ

Private Sub DataList1_Click()
If DataList1.Text = "" Then
Lbl_EmpId = ""
Lbl_EmpName = ""
Lbl_Birth = ""
Lbl_Sex = ""
Lbl_Political_ ......

VBÔõÑùÏÔʾµÇ½Óû§ID

VB+Access·ÖÎöάÐÞ¹ÜÀíϵͳ£¬ÔõÑù½øÈëϵͳ´°ÌåÉÏÏÔʾµÇ½Óû§Ãû£»
Çë¸ßÊÖ°ïæ£»
Õâ¸öÒ»°ãÊÇÓû§¾­¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔʾÔÚstatebarÀïµÄ°É¡£

ÒýÓÃ
Õâ¸öÒ»°ãÊÇÓû§¾­¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔÊ ......

ÔõÑù±£´æVBµÄcomboboxµÄlistÖµ£¿

form1 ÖУ¬ÎÒÔÚText1ÀïÊäÈë1111111111

Dim str1 As String
Private Sub Command1_Click()
str1 = Me.Text1.Text
Combo1.AddItem str1
End Sub

µãCommand1£¬¾Íдµ½Combo1µÄ ÏÂÀ­²Ëµ¥ÀïÈ¥ÁË ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ