VBµÄÑÕÉ«ÊÇÔõô¶ÔÓ¦µÄ£¿ - VB / »ù´¡Àà
IDEÀïÃæÉèÖð׵ı³¾°É«Îª &H00FFFFFF& ÎÒÏÖÔÚÓиöÑÕÉ«£¬WEBÑÕÉ«ÊÇ#B8D0EE RGBÊÇ 184 208 238 ÎÒ²»ÏëÓôúÂëRGBº¯Êý¸Ä±ä£¬ÎÒÏëÖ±½ÓÉèÖúà µ½ÕâÀïÏÂÁ˸ö¹¤¾ß http://download.csdn.net/down/1936671/santalin ÄܰÑÍøÒ³µÄÑÕɫת»»³ÉVBµÄÑÕÉ«£¬×ª³öÀ´ÊÇ &HEED0B8£¬²»ÄÜÓã¬ËµÊÇÎÞЧµÄÊôÐÔÖµ ¸÷λ´ó´ó£¬ÈçºÎ²ÅÄÜ×Ô¶¨ÒåÑÕÉ«´úÂ룿
ÕâÑù¿ÉÒÔ Text1.BackColor = &HEED0B8 ,ûÓÐ˵ ÎÞЧµÄÊôÐÔÖµ VB code: Public Function WEB2VB(c As String) As Long If (Len(c) <> 7) Then WEB2VB = 0: Exit Function WEB2VB = CLng("&H" & Left$(StrReverse(c), 6)) End Function '²âÊÔ´úÂë Private Sub Command2_Click() Text1.BackColor = WEB2VB("#B8D0EE") End Sub Èçһ¥Ëù˵,Ó¦¸ÃûÓÐÎÊÌâµÄ°¡,Â¥Ö÷ÈçºÎ»¹ÊDz»³É¹¦,¿É°Ñ´úÂëÌù³öÀ´¿´ÊDZðµÄÄÄÀï³öÁËÎÊÌâ ˵ÁË£¬²»ÊÇÓôúÂë½øÐÐÉèÖá£ÊÇÖ±½ÓÔÚÊôÐÔÀ¸½øÐÐÉèÖÃÒýÓà &H0000FF00& ¶ÔÓ¦ÓÚRGB£ºR£½0 G£½FF B£½0 R=&H0000FF00& mod &H100 G=(&H0000FF00&-R) Mod &H100 B=(&H0000FF00&-G*&H100-R) Mod &H100 °´ÄãÕâ˵·¨£¬&H00FFFFFF&¶ÔÓ¦µÄRÊÇ00 GÊÇFF BÊÇFF£¿ Õâ¸ö¶ÔÓ¦ÊÇ»ÆÉ«£¬¿ÉVBÀïÃ÷Ã÷Êǰ×É«¡£²»ÐÅÄã×Ô¼º´´½¨¸ö¶Ô»°¿òÊÔÏÂÒ
Ïà¹ØÎÊ´ð£º
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?> <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xm ......
dim a as string,b as string£¬c as string a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ" b="µ¥Î»¹¤³ÌÃû³Æ" c="µ¥Î»" Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´® ¿´¿´i ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿ Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
ÎÊÌ⣺ ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB TableAÖÐÓмǼÈçÏÂ: ×Ö¶Î1(Name) ×Ö¶Î2(Num) A 3 A 4 B 6 ... ......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~ #include "stdlib.h" #include "math.h" #include "stdio.h" float objfx(float x[]); void constraint(float x[],float g ......