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

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ðµÄÄÄÀï³öÁËÎÊÌâ

˵ÁË£¬²»ÊÇÓôúÂë½øÐÐÉèÖá£ÊÇÖ±½ÓÔÚÊôÐÔÀ¸½øÐÐÉèÖÃ

ÒýÓÃ
&amp;H0000FF00&amp; ¶ÔÓ¦ÓÚRGB£ºR£½0 G£½FF B£½0
R=&amp;H0000FF00&amp; mod &amp;H100
G=(&amp;H0000FF00&amp;-R) Mod &amp;H100
B=(&amp;H0000FF00&amp;-G*&amp;H100-R) Mod &amp;H100

°´ÄãÕâ˵·¨£¬&H00FFFFFF&¶ÔÓ¦µÄRÊÇ00 GÊÇFF BÊÇFF£¿
Õâ¸ö¶ÔÓ¦ÊÇ»ÆÉ«£¬¿ÉVBÀïÃ÷Ã÷Êǰ×É«¡£²»ÐÅÄã×Ô¼º´´½¨¸ö¶Ô»°¿òÊÔÏÂ

Ò


Ïà¹ØÎÊ´ð£º

ΪʲôÓÃVB¸Ä±ä²»Á˹¤¾ßÀ¸°´Å¤µÄ¿í¶È - VB / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

ÇóÖú£ºC´úÂëchange toVB´úÂë - VB / »ù´¡Àà

ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó­¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......

vb activex ´«µÝ²ÎÊý - VB / COM/DCOM/COM+

ÎÒÓÃVBдÁËÒ»¸öactivex£¬ÏÖÔÚÏëÔÚjsÀïÃæÏòactivex´«Öµ£¬Ð´ÁËÒ»¸öpublic·½·¨²»ÐУ¬Ð´ÁËÒ»¸öÊôÐÔÒ²²»ÐУ¬Çë¸ßÊÖÖ¸µã£¬ÔÚÏߵȺò,´úÂëÈçÏÂ
±äÁ¿ÉùÃ÷
Dim dirName As String = ""
·½·¨
Public Sub UrlName( ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ