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дÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......
Private Sub cmdModify_Click() Dim iRet As Integer If dltUser.Text = "" Then MsgBox "ÇëÑ¡ÔñÒªÐ޸ĵÄÓû§£¡", vbOKOnly ......
Private Sub DataList1_Click() If DataList1.Text = "" Then Lbl_EmpId = "" Lbl_EmpName = "" Lbl_Birth = "" Lbl_Sex = "" Lbl_Political_ ......
function multi(a as integer,b as integer,optional third) dim n as integer n = a * b if not ismissing (third) then n = n * thid end if multi = n end fu ......
Ò»¸ö³ÌÐò£¬Á½¸ö´°¿Ú£¬Ò»¸öÓÃÀ´¸ü¸Äaccess±íÊý¾Ý£¨Form1£©,ÁíÒ»¸ö´°¿ÚÓиöcombo1ÓÃÀ´ÏÔʾÊý¾Ý(Form2)¡£form2ÓÐÒ»¸ö°´Å¥(command1)ÓÃÀ´´ò¿ªform1¡£ÏÖÔÚÎÒÏÈ´ò¿ªform2£¬combo1¶ÁÈ¡³öÊý¾Ý£¬µã»÷command1´ò¿ªform1,¸ü¸ÄÊý ......